Cual es el código o macro para eliminar la fila que contenga la palabra "Alta"
Cual es el código o macro para eliminar las filas que contenga la palabra "Alta" a partir del rango a2:a100 , la idea es que elimine todas las filas que contengan esta palabra no solo una por una , como lo hace el código que uso actualmente.
Podrían Ayudarme con el código correcto.
Sub EliminarFila()
Dim Dato, fila
Dato = InputBox("Ingrese el valor a eliminar")
If Dato <> "" Then
Set fila = Range("a2:a1000").Find(what:=Dato)
If Not fila Is Nothing Then
Cells(fila.Row, 1).EntireRow.Delete
Else
MsgBox "el valor: " & Dato & " no existe"
End If
End If
Set fila = Nothing
End Sub
1 Respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución. Ejecuta esta macro y todo listo:
Sub ejemplo22()
'por luismondelo
dato = InputBox("que dato buscamos")
If dato = "" Then Exit Sub
dato = UCase(dato)
Range("a65000").End(xlUp).Offset(1, 0).Value = "final"
Range("a2").Select
Do While ActiveCell.Value <> "final"
If UCase(ActiveCell.Value) = dato Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveCell.ClearContents
End Subrecuerda finalizar
