jerryeagle

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

En el evento AfterUpdate del Textbox del Código: Set N = Sheets("Hoja de Datos").Range("A:A").Find(TextBox1,,,xlWhole) If Not N Is Nothing Then TextBox2 = N.Offset(0, 1) Else MsgBox("El Codigo " & TextBox1 & " no se ha encontrado!") Exit Sub End If

No se pueden "cargar" los archivos en Variables, se puede "cargar" la ubicación de los Archivos, lo que no especificas es si lo harás "dinamicamente", es decir que el usuario elija cuales archivos abrir, pero... ¿qué vas a hacer con esos archivos? Si...

Ocultalas, selecciona las Columnas, click derecho, ocultar, haz lo mismo con las filas

Pues desprotegelas, haz lo que deseas y las vuelves a proteger Sheet("Nombre"). Unprotect "Contraseña si la hay" Sheet("Nombre"). Protect "Contraseña si la hay"

Hay que hacer un bucle "For Each in" para recorrer los libros abiertos, así: For Each W in WorkBooks If W.Name = "INDEX" Then msgbox "INDEX SE ENCUENTRA OPERANDO", 64, "Abierto" End If Next Pruébalo

¿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.

En el evento donde insertas filas, pon esto: TextBox.Value = Range("A" & Rows.Count).End(xlUp).Value Es todo

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

Modifícalo un poco tu código así: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Select Case Target.Column Case = 1 'Pon lo q quieras q haga si es la columna 1 Case = 2 'Pon lo q quieras q haga si es la...