Pregunta para luismondelo...
Luis gusto en saludarte, tengo el siguiente caso, una base de datos con alrededor de 5000 filas y como 15 columnas todas con datos (hoja1), y en (hoja2) fila A tengo otros datos, lo que necesito es con una macro recorrer la columna A de la hoja1 y compararlas con los datos de la columna A de la hoja2, y cuando encuentre un datos en la hoja 1 que esté en la hoja2 borre la fila completa de la hoja1, si fuera posible que también desplase hacia arriba las filas vacías que quedan.
espero me entiendas y me puedas ayudar.
saludos
Gracias
1 Respuesta
Respuesta de Luis Mondelo
1
Esta es la macro que necesitas:
(También te lo he enviado por mail)
Sub ejemplo()
'por luismondelo
Sheets("datos").Select
Range("a1").Select
Do While ActiveCell.Value <> ""
valor = ActiveCell
Sheets("22-03").Select
Range("a65000").End(xlUp).Offset(1, 0).Value = "end"
Range("a2").Select
Do While ActiveCell.Value <> "end"
If ActiveCell.Value = valor Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveCell.ClearContents
Sheets("datos").Select
ActiveCell.Offset(1, 0).Select
Loop
End Subrecuerda finalizar la consulta
