Eliminar filas según condición suma
Hola Amigos tengo la siguiente duda: tengo una lista en la cual quiero eliminar filas dependiendo del valor de la suma del rango(C:D) se deberían eliminar los que sumen 0 según ejemplo subrayado
A B C D
1 GG 10 0
2 UU 0 0
3 PP 0 25
4 YY 0 0
tengo este código pero no me funciona
Sub Quitar_Asientos_Cero()
Range("j1:k1").Select
Do While Not IsEmpty(ActiveCell)
Rem If ActiveCell = 0 Then
I Then
Selection.EntireRow.Delete
Else
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(1, 1)).Select
End If
Loop
End Sub
Gracias por su apoyo
1 respuesta
Respuesta de Luis Mondelo
1
Te paso mi solución con esta macro:
Sub proceso()
'por luismondelo
Range("c2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = 0 And ActiveCell.Offset(0, 1).Value = 0 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Subrecuerda finalizar
