Zrobiłem sobie w arkuszach formatowanie warunkowe takie, że gdy nie ma pewnych danych koloruje wiersze na czerwono.
Teraz chcę żeby po otwarciu i przed zamknięciem pokazywał mi te pokolorowane wiersze.
Private Sub Workbook_Open()
For Each Zakladka In Sheets
For Each Komorka In Zakladka.Range("A2:A1000")
If Komorka.FormatConditions.Item(1).Interior.Color=255 Then
MsgBox "Brak danych w wierszu " & Komorka.Row & " " & Komorka.Value & " " & "w zakladce " & Zakladka.Name
End If
Next Komorka
Next Zakladka
End Sub
Ponieważ w komórce nie pojawia się informacja o kolorze (jest tylko biały):
If Komorka.FormatConditions.Interior.Color=255 Then
Zamieniłem to na to:
If Komorka.FormatConditions.Item(1).Interior.Color=255 Then
Oczywiscie to też nie działa, bo wszedzie jest informacja o kolorze czerwonym ustawionym w warunku.
Gdzie znajdę informację o wartości warunku? |