jerryeagle

Si, eso hace Excel, la única forma que se me ocurre es creando una función así. En el Editor de VBA (ALT + F11), inserta un Modulo y pega esto: Public Function MesNombre(ByVal Fecha as Date, ByVal Abreviado as Boolean) as String If Abreviado = True...

After_Update

Sub prueba1() ' 'prueba1 Macro 'Acceso directo:CTRL+s ' Range("B3:J8").Copy ActiveSheet.Paste Application.CutCopyMode=False End Sub

Solo modifica un poco el código: 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 TextBox1.SetFocus MsgBox("El Codigo " &...

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

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