Macro para buscar celdas iguales y colocarlas en el la columna siguiente
Que busque un dato en una columna y lo coloque en la misma fila
La columna A tiene 500 filas.
Respuesta de Dante Amor
1
Gracias por contestar ya te he mandado el correo
H o l a:
Te anexo la macro para las diferencias
Sub Diferencias()
'Por.Dante Amor
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
If u < 3 Then u = 3
Range("E3:L" & u).ClearContents
'
cd = 3 'cajas diferencia
cn = 3 'cajas no existen en c
For i = 3 To Range("A" & Rows.Count).End(xlUp).Row
Set b = Columns("C").Find(Cells(i, "A"), lookat:=xlWhole)
If Not b Is Nothing Then
If Cells(i, "B") * -1 <> Cells(b.Row, "D") Then
Cells(cd, "I") = Cells(i, "A")
Cells(cd, "J") = Cells(i, "B")
Cells(cd, "K") = Cells(i, "A")
Cells(cd, "L") = Cells(b.Row, "D")
cd = cd + 1
End If
Else
Cells(cn, "E") = Cells(i, "A")
Cells(cn, "F") = Cells(i, "B")
cn = cn + 1
End If
Next
'
cn = 3 'madera no existen en A
For i = 3 To Range("C" & Rows.Count).End(xlUp).Row
Set b = Columns("A").Find(Cells(i, "C"), lookat:=xlWhole)
If b Is Nothing Then
Cells(cn, "G") = Cells(i, "C")
Cells(cn, "H") = Cells(i, "D")
cn = cn + 1
End If
Next
MsgBox "Fin"
End Sub':) ':)
