Elsa Matilde

Me parece que respondí una consulta posterior donde no aparecía el código. Viendolo aquí, en el For le estás indicando que vaya hasta la fila 2 pero debiera ser 3 para que no elimine las primeras. Comentame si es esto lo que necesitas. En ese caso no...

Qué pena no dejaste la instrucción de evaluación para agregarle la 2da condición, que es la de la fila (row): Ej: considerando que la fila es 'filx': If range("F" & filx) = 0 and filx > 2 then range("F" & filx).EntireRow.Delete Si esto resuelve tu...

Según surge de tus comentarios, lo que necesitas es ubicar la primer celda libre en B, esto lo podés obtener con esta instrucción: libre = Range("B" & Rows.count).End(xlup).Row +1 Luego volcarás en esa celda y de ahí hacia abajo: Range("B" & libre) =...

No comprendí en que fila necesitas insertar, como indicar que es fila "x". Así que dejo las instrucciones, en este caso insertara a partir de fila 6: Range("C6"). EntireRow. Inserta Si declaras una variable, por ej: X= 10 Range("C" &...

Enviame un mail a alguno de los correos que aparecen en la portada de mi sitio para que te envíe una muestra de lo que necesitas. No olvides recordarme la consulta que estamos tratando.

Para abrir el cuadro de diálogo y seleccionar la carpeta destino (sPath) estas son las instrucciones: Sub Pori_y_Salo() ' ' abrir pori Dim File As String Dim sPath Dim Direc Set Direc = Application.FileDialog(msoFileDialogFolderPicker) 'si se cancela...

Te dejo la macro que necesitas. Se coloca en el Editor en el objeto HOJA donde vayas a trabajar. Coloqué una nota por si necesitas ajustar la primer fila de acción, que por ahora es 10. Private Sub Worksheet_Change(ByVal Target As Range) 'x...

Te dejo las instrucciones de un libro en mi haber para que observes los textos en negrita: Private Declare PtrSafe Function FindWindow Lib "USER32" _ Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Así en...

Leyendo el código efectivamente te falta declarar la variable ct, dejala así: Dim ct Además la expresión correcta es Me. Controls Sdos!

El código aparece todo en 1 sola línea difícil de leerla, pero la idea sería esta: Al confirmar tenés un array... bien, necesitas 2: Sheets(Array(Hoja1,... ) todas las que van a pegarse en libro Nómina Y luego el otro Array. Quizás parte del código...