Como realizar Macro en Excel
Necesito una macro para Excel que realice la siguiente acción. Compare el contenido de la columna "A" de dos hojas y eliminé de la segunda hoja todas las filas que no tengan coincidencia en la columna "A" con la hoja 1. No sé si se entiende.
Siento preguntar esto por aquí pero en el trabajo no hay programadores, es más no nos dedicamos a la programación, pero se nos exige dicha macro.
1 Respuesta
Respuesta de Adriel Ortiz Mangia
2
[Hola
Te paso la macro
Sub Eliminar_fila()
'Por.Adriel Ortiz
'
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
u = h2.Range("A" & Rows.Count).End(xlUp).Row
Set r = h1.Columns("A")
For i = u To 2 Step -1
Set b = r.Find(h2.Cells(i, "A"), lookat:=xlWhole)
If b Is Nothing Then
h2.Rows(i).Delete Shift:=xlUp
End If
Next
MsgBox "fin"
End SubValora la respuesta para finalizar saludos!
