Macro para copiar fila según criterio
Buen día me gustaría una macro que me recorra cierta columna E y si encuentra un valor COMP copie la fila y la pegue en otra hoja hasta donde encuentre en blanco
1 Respuesta
Respuesta de Dante Amor
1
La macro:
Sub copiar()
'Por.DAM
'nombres de hojas
Set h1 = Sheets("Hoja1") 'hoja origen
Set h2 = Sheets("Hoja2") 'hoja destino
col = "E" 'columna para verificar
u = h2.UsedRange.Rows(h2.UsedRange.Rows.Count).Row + 1
For i = 1 To h1.Range(col & Rows.Count).End(xlUp).Row
If UCase(h1.Cells(i, col)) = "COMP" Then
h1.Rows(i).Copy h2.Rows(u)
u = u + 1
End If
Next
End SubCambia en la macro "Hoja1" y "Hoja2" por lo nombres de tus hojas.
Lo del valor "COMP" no lo entendí, así que puse en la macro la palabra "COMP". Si te refieres a otra cosa, deberás poner un ejemplo.
