jerryeagle

En el evento SelectionChange pon esto: If Range("Celda Click") then Userform.Show End if Es todo

Dire = ThisWorkBook.Path & "\"

En el mismo evento: If Target.Address = Range("Celda Selector").Address Then Call "Mi Macro" End If

Puedes enviar los datos a Excel y de ahí la mandas a imprimir ya sea directamente a la impresora o primero a Vista Previa.

¿Y dónde esta ese formulario? ¿De dónde toma o busca loas datos? ¿Qué usas, Excel? ¿Visual Basic? Se necesitan más datos para saber que hacer.

No veo la necesidad de usar 3 textbox, con uno es suficiente y obligar a que se escriba una fecha correcta, en el evento After_Update del textbox pon esto: If Not IsDate(TextBox.Text) Then MsgBox "Escriba una fecha Correcta" Exit Sub End If

Supongo que usas VB6, checa este link, aunque en Visual Studio 2008 o Visual Basic 2005 o 2008 express Edition es mucho más fácil, Importando Microsoft. Office. Interop. Excel, incluso tienes "intelisence" con los comandos de VBA Excel....

No especificas en donde lo necesitas, o para que, un ejm seria así: Msgbox ThisWorkBook.Name

Tu código se puede optimizar, no es necesario "seleccionar" la celda para darle un valor. Checa esto: Private Sub CommandButton1_Click() Dim ultimafila As Long Dim ultimacolumna As Long 'Busca lo del TExtBox1 Set Existe =...

En el botón o con lo que guardas los datos, ahí agrega la linea: lblpedidototal.Text = Val(lblpedido.Text) + 1