Macro para copiar de una hoja a otra de Excel las filas cuyo campo ENTREGADO este vacío
Buenas tardes,
Necesito su ayuda en lo siguiente, tengo un libro de Excel con varias hojas las cuales tienen la información por día de las facturas emitidas y que fueron entregadas, y quiero copiar las filas en otra hoja únicamente las que tengan el campo ENTREGADO vacío (columna n).
Saludos y gracias...
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro. Cambia en la macro "Hoja1" y "Hoja2" por los nombres de tus hojas.
Sub copiar()
'Por.DAM
'nombres de hojas
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'columna para verificar si tiene vacío
col = "N"
Application.ScreenUpdating = False
u = h2.UsedRange.Rows(h2.UsedRange.Rows.Count).Row + 1
For i = 1 To h1.Range(col & Rows.Count).End(xlUp).Row
If h1.Cells(i, col) = "" Then
h1.Rows(i).Copy
h2.Rows(u).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
u = u + 1
End If
Next
Application.ScreenUpdating = True
MsgBox "Registros copiados", vbInformation, "COPIAR"
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
