Buscar repetidos con dos condiciones

cordial saludo

solicito su colaboración ya que necesito un código vba que busque repetidos si se cumplen dos condiciones. Tengo en un libro (A) de excel datos que se diferencian de los otros por las columnas A e D y necesito pegar estos datos en otro libro (B) siempre y cuando no se encuentren en libro (B). Las columnas del libro (B) son A e I.

tengo el siguiente código que valida la información de una sóla columna pero no sé como hacerlo para las dos condiciones. Les dejo el código que sé no es muy pulido

ThisWorkbook.Activate 'libro(A)
Sheets("Consolidado").Select
Range("D2").Select
Do While Not IsEmpty(ActiveCell)
valor = ActiveCell.Value
On Error Resume Next
Windows("Consolidado General.xls").Activate 'Libro (B)
Sheets("Consolidado").Select
Columns("I:I").Select
Selection.Find(what:=valor, after:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
If valor <> ActiveCell.Value Then
ThisWorkbook.Activate
Sheets("Consolidado").Select
ActiveCell.Offset(0, -3).Activate
Else
ubicación = ActiveCell.Address
Range(ubicación).Select
ThisWorkbook.Activate
Sheets("Consolidado").Select
ActiveCell.Offset(0, -3).Activate
Range(Selection, Selection.Offset(0, 8)).Select
Selection.Copy
Windows("Consolidado General.xls").Activate
Sheets("Consolidado").Select
ActiveCell.Offset(0, 5).Activate
'ActiveCell.Activate
Selection.PasteSpecial Paste:=xlPasteValues
End If
ThisWorkbook.Activate
Sheets("Consolidado").Select
Application.CutCopyMode = False
ActiveCell.Offset(1, 3).Activate
Loop
ThisWorkbook.Activate
Sheets("Consolidado").Select

Agradezco su colaboración

1 Respuesta

Respuesta
1

Me podrías enviar los 2 libros con ejemplos a mi correo, es importante para entender lo que necesitas, pongas ejemplos de cómo está tu información y LO MÁS IMPORTANTE cómo la quieres, utiliza imágenes, comentarios y colores para explicarme lo que deseas.
Saludos. Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas