Eliminar filas con un criterio con una macro

Hola ojala me puedas ayudar
En la Hoja1, en la celda L10 ingreso un dato, luego que la busque en la columna A de la hoja2 y si la encuentra que elimine la fila completa, de lo contrario que salga un mensaje posición no existe y después que se quede esperando en la celda L10 de la hoja1.
Por tu ayuda mucha gracias

1 Respuesta

Respuesta
1
Copia y pega esta macro
Sub MyMacro()
dato = Worksheets("hoja1").Range("L10").Value
Sheets("hoja2").Select
Range("a1").Select
On Error GoTo NoEncontro:
[A:A].Find(What:=dato, After:=ActiveCell).Select
If ActiveCell.Value <> dato Then
NoEncontro:
Sheets("hoja1").Select
MsgBox ("Dato no encontrado")
Exit Sub
Else
Selection.EntireRow.Delete
Sheets("hoja1").Select
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas