Eliminar una fila con una sentencia if
hola estoy desarrollando una macro donde utilizo un if como sentencia para eliminar la fila de la siguiente manera:
Range("H2:H" & Cells(65535, 1).End(xlUp).Row).Select
For Each celda_dias In Selection
If celda_dias.Value < 2 Then
celda_dias.EntireRow.Delete
End If
Next celda_dias
pero no me marca error alguno y no me elimina las filas que deseo que me elimine
espero me puedan ayudar
1 respuesta
Respuesta de Luis Mondelo
1
Te paso la macro para conseguirlo
Sub proceso()
'por luismondelo
Range("h65000").End(xlUp).Offset(1, 0).Value = "end"
Range("h2").Select
Do While ActiveCell.Value <> "end"
If ActiveCell.Value < 2 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveCell.ClearContents
End Subrecuerda finalizar la consulta
