Macro eliminar filas y copiar en otra hoja
Tengo un archivo de Excel tode tengo datos como nombre teléfono correo ect. Hasta la celda ak, en la celda ak coloco un valor, necesito que todas las filas que tenga valor 0 me los elimine de esa hoja y me los pase a otra hoja de nombre eliminados, al momento de pasarlos quiero que se copie con los valores y el formato
1 respuesta
Respuesta de Dante Amor
Te anexo la macro, solamente actualiza en la macro los nombres de tus hojas.
Supongo que tus datos empiezan en la fila 2, si empiezan en otra fila, cambia en la macro el 2 en esta línea por el número de fila:
For i = h1.Range("AK" & Rows.Count).End(xlUp).Row To 2 Step -1
Sub Depurar_Filas()
'Por Dante Amor
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1") 'hoja con datos
Set h2 = Sheets("eliminados") 'hoja destino
u2 = h2.Range("AK" & Rows.Count).End(xlUp).Row + 1
'
For i = h1.Range("AK" & Rows.Count).End(xlUp).Row To 2 Step -1
If h1.Cells(i, "AK").Value = 0 And h1.Cells(i, "AK").Value <> "" Then
h2.Rows(u2).Insert
h1.Rows(i).Copy
h2.Range("A" & u2).PasteSpecial Paste:=xlPasteValues
h2.Range("A" & u2).PasteSpecial Paste:=xlPasteFormats
End If
Next
h2.Select
Application.ScreenUpdating = True
MsgBox "Fin"
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
