Macro para buscar un dato y si lo encuentra que elimine la fila
Necesito una macro, que me abra una ventana y me pregunte por un dato, que busque el dato en la columna A, si lo encuentre que me abra otra ventana y me pregunte si lo quiero eliminar, si escojo Si que elimine la fila. Si escojo no entonces que no haga nada.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub BuscarEliminar()
'Por.Dante Amor
dato = InputBox("Escribe el dato a buscar: ")
If dato = "" Then Exit Sub
Set b = Range("A:A").Find(dato, lookat:=xlWhole)
If Not b Is Nothing Then
If MsgBox("Desea eliminar la fila", vbQuestion & vbYesNo, "DATO ENCONTRADO") = vbYes Then
Rows(b.Row).Delete
End If
Else
MsgBox "El dato no existe", vbExclamation
End If
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
