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
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
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