Macro para Buscar un Registro y Eliminarlos continuación
Lo que necesito ahora es que habrá y cierre el libro 2.
¿Me puede ayudar?
Sub buscar()
'Por. DAM
'Act. Adriel Ortiz
'
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja1")
Set l2 = Workbooks("Libro2.xlsx") 'nombre libro2
Set h2 = l2.Sheets("Hoja2") 'hoja a buscar en libro2
'
u = h2.Range("A" & Rows.Count).End(xlUp).Row
Set b = h2.Range("A8:A" & u).Find(h1.Range("A7"), lookat:=xlWhole)
If Not b Is Nothing Then
If MsgBox("Desea cargar el codigo " & h2.Cells(b.Row, "A") _
, vbQuestion & vbYesNo, "Cargar codigo") = vbYes Then _
h2.Rows(b.Row).Delete
Else
MsgBox "El código buscado no existe", vbCritical
h1.Range("A7").Select
End If
End Sub
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1