VBA comparar dos columnas y con colores ?

[tazzwt]

Aca tengo un ejemplo, la columna puede tener N filas, la idea es que la columna Estado, puede clasificar si son iguales o no lo son.

Código Excel:

if(Columna_1 == Columna2 ){
Item.Text = "Bien"
ActiveWorkbook.Colors(40) = RGB(234, 234, 234)
}
else
{
Item.Text = "Mal"
}
 

Code Source: bajar aqui

[mrocf]

Hola! tazzwt
Siempre que sea posible, hay que "escaparle" a los métodos iterativos como el que muestras pues son muy ineficientes.

Una alternativa podría ser el siguiente

Código:

Sub Clasificador()
Dim LRow As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.AutoFilterMode = False
LRow = [b1].End(xlDown).Row
Range("C2:C" & LRow).Delete xlShiftUp
With Range("C2:C" & LRow)
  .Value = Evaluate("IF(A2:A" & LRow & "=B2:B" & LRow & ", ""Bien"", ""Mal"")")
  Union([C1], .Cells).AutoFilter 1, "Bien"
  .Font.Color = RGB(0, 176, 240)
  Union([C1], .Cells).AutoFilter 1, "Mal"
  .Font.Color = RGB(255, 0, 0)
End With
ActiveSheet.AutoFilterMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Saludos, Cacho.