Macro crear Msgbox de búsqueda
Es un gusto saludarlos nuevamente.
Tengo la Hoja1 y Hoja2. Tanto en Hoja1 columna A como en hoja2 Columna A, debieran tener los mismos valores pero en diferente orden.
Necesito que aparezca un Msgbox si no se encuentra algún valor en Hoja2.
La idea es crear una advertencia (MsgBox) en el caso de que en la Hoja2 falten valores contenidos en la Hoja1.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub Buscar_en_Hoja2()
'Por Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row
Set b = h2.Columns("A").Find(h1.Cells(i, "A").Value, lookat:=xlWhole)
If b Is Nothing Then cad = cad & h1.Cells(i, "A").Value & ", "
Next
MsgBox "Valores que están en Hoja1 pero no están en Hoja2: " & vbCr & vbCr & cad
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta.
