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