Estou tentando copiar uma linha de uma planilha para outra e, em seguida, tentar alterar a cor de várias células com base nos valores das células. No entanto, a última célula foi a única célula que mudou de cor. Eu sou novo no VBA/Macro. Abaixo estão os códigos. Obrigado!
For k = 1 To column_count
If ws1.Cells(i, k).value <> ws2.Cells(j, k).value Or (Not IsEmpty(ws1.Cells(i, k).value) And IsEmpty(ws2.Cells(j, k).value)) Or (IsEmpty(ws1.Cells(i, k).value) And Not IsEmpty(ws2.Cells(j, k).value)) Then
ws1.Rows(i).Copy Destination:=ws3.Rows(lastRow3)
'change the cell color to red
ws3.Rows(lastRow3).Cells(1, k).Interior.color = RGB(255, 0, 0)
End If
Next k