Eu tenho uma planilha do Excel compartilhada por vários usuários. Nós usamos vlookup
para inserir dados atualizados na planilha, para que todos os usuários saibam o que mudou. Gostaríamos de ter qualquer célula que tenha sido alterada em amarelo com fonte vermelha.
eu tenho este código isso funciona, mas não sei como adicionar preenchimento amarelo ao código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet, ws2 As Worksheet
Dim i As Boolean Application.ScreenUpdating = False 'Create Change Log if one does not exist.
i = False
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Change Log" Then
i = True
Exit For
End If
Next ws
If Not i Then Set ws2 = ThisWorkbook.Worksheets.Add
ws2.Visible = xlSheetHidden
ws2.Name = "Change Log"
ws2.Range("A1") = "Sheet"
ws2.Range("B1") = "Range"
ws2.Range("C1") = "Old Text Color"
Else Set ws2 = Sheets("Change Log")
End If 'Store previous color data in change log for rollback.
ws2.Range("A1").Offset(ws2.UsedRange.Rows.Count, 0) = Target.Worksheet.Name
ws2.Range("B1").Offset(ws2.UsedRange.Rows.Count - 1, 0) = Target.Address
ws2.Range("C1").Offset(ws2.UsedRange.Rows.Count - 1, 0) = Target.Font.Color 'Change font color to red.
Target.Font.Color = 255
Application.ScreenUpdating = True
End Sub
fonte