Eliminar las filas con una condición
Me ayudan con lo siguiente, necesito eliminar las filas de una hoja, si en la columna "G" aparece la palabra "Aceptado", al final que me aparezca un mensaje con la cantidad de líneas eliminadas.
Gracias
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro.
Sub EliminarContar()
'Por.Dante Amor
For i = Range("G" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, "G") = "Aceptado" Then
Rows(i).Delete
n = n + 1
End If
Next
MsgBox "Se eliminaron : " & n & " Filas", vbInformation, "TERMINADO"
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
