Comparar columnas macros
Buen día tengo las columnas a y b con datos y en la c con una macro aparezca los datos que no se repitan de las columnas a y b
1 Respuesta
Te mando mi solución y sigue mi ejemplo: En mi ejemplo tenemos las columnas A y B con datos desde la fila 1 hasta la 50. Marca con el ratón el rango A1:B50 y después ejecuta esta macro:
Sub analisis() fila = 1 For Each celda In Selection If Application.WorksheetFunction.CountIf(Selection, celda.Value) = 1 Then Cells(fila, 3).Value = celda.Value fila = fila + 1 End If Next End Sub
recuerda finalizar y puntuar
si esta bien pero en mi cuadro que yo tengo por ejemplo los que quiero comparar son la columna C y F al seleccionarlas me sale un error de depuración esta linea
If Application.WorksheetFunction.CountIf(Selection, celda.Value) = 1 Then
claro aclarando que ya cambie este código Cells(fila, 21).Value = celda.Value lo cambio por 21 por que quiero que salga en al columna U.
Gracias de antemano.
Aquí tienes la solución:
Sub analisis()
fila = 1
Range("c1").Select
Do While ActiveCell.Value <> ""
If Application.WorksheetFunction.CountIf(Columns(3), ActiveCell) = 1 And Application.WorksheetFunction.CountIf(Columns(6), ActiveCell) = 0 Then
Cells(fila, 21).Value = ActiveCell.Value
fila = fila + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("f1").Select
Do While ActiveCell.Value <> ""
If Application.WorksheetFunction.CountIf(Columns(6), ActiveCell) = 1 And Application.WorksheetFunction.CountIf(Columns(3), ActiveCell) = 0 Then
Cells(fila, 21).Value = ActiveCell.Value
fila = fila + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
