Solamente pasar datos de varias filas de una pestaña a otra si cumple con una condición con macros
Como puedo pasar varias filas a otra pestaña si cumple una condición en la misma fila con macros, solo que pueda copiar las filas que están con "x" en la columna "E", muchas gracias.
2 Respuestas
Respuesta de Adriel Ortiz Mangia
2
[Hola
Te paso la macro
Para finalizar hay 2 opciones Excelente o bueno saludos!
Sub copiar()
'Por Adriel Ortiz
Set h1 = Sheets("Hoja1") ' Hoja1
Set h2 = Sheets("Hoja2") ' Hoja2
'
j = 2
For i = 2 To h1.Range("E" & Rows.Count).End(xlUp).Row
If LCase(h1.Cells(i, "E")) = "x" Then
h1.Rows(i).Copy h2.Rows(j)
j = j + 1
End If
Next i
'
MsgBox "fin"
End Sub
