Macro para seleccionar valores numéricos 0.00 y copiarlos de la hoja de origen a otra hoja
Tengo una hoja de excel con más de 8000 filas de registros con saldos de capital de 5,000, 1,000 y valores con 0.00, lo que quiero hacer es:
1. En la hoja original, seleccionar solo los valores con datos 0.00 ubicados en la columna 53 hacia abajo.
2. Copiar el encabezado de la hoja original a la "hoja3".
3. En la hoja original, cortar la fila con los valores 0.00 y pegarlos, en una "hoja3", con el encabezado de la hoja original.
3. En la hoja original una vez cortados los datos, se debe eliminar las filas en blanco.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub CopiarFilas()
'Por.Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("hoja original")
Set h2 = Sheets("Hoja3")
'
h2.Cells.Clear
h1.Rows(1).Copy h2.Rows(1)
'
For i = h1.Cells(Rows.Count, 53).End(xlUp).Row To 2 Step -1
If h1.Cells(i, 53) = 0 Then
h1.Rows(i).Copy
h2.Rows(2).Insert Shift:=xlDown
h1.Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
