Necesito una macro para copia datos de la hoja1 a la hoja2
Me ayudan con una macro para copiar los datos de la hoja1 que ne la columna B sean diferentes de 0 a la hoja2 en la última fila disponible y de ahí hacia abajo se copien todos los registros.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub CopiarDiferenteCero()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
For i = 1 To h1.Range("B" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "B") <> 0 Then
j = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
h1.Rows(i).Copy h2.Rows(j)
End If
Next
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
