Excel VBA: Makro do kolorowania wierszy na podstawie wartości w kolumnie

🔍 Co robi to makro?

To makro automatycznie koloruje całe wiersze w zależności od wartości w konkretnej kolumnie. Przykład: jeśli w kolumnie „Status” znajduje się „Zakończony”, to wiersz zostanie podświetlony na szaro, a jeśli „W toku” – na żółto.

📋 Krok po kroku: Makro VBA z opisem

' Rozpoczęcie makra
Sub KolorujWierszeWedlugStatusu()

  ' Zmienne pomocnicze
  Dim lastRow As Long
  Dim i As Long
  Dim status As String

  ' Odczytujemy ostatni wiersz na podstawie kolumny A
  lastRow = Cells(Rows.Count, "A").End(xlUp).Row

  ' Przechodzimy przez każdy wiersz
  For i = 2 To lastRow
    status = Cells(i, 3).Value ' Zakładamy, że kolumna C zawiera statusy

    Select Case LCase(status)
      Case "zakończony"
        Rows(i).Interior.Color = RGB(200, 200, 200) ' szary
      Case "w toku"
        Rows(i).Interior.Color = RGB(255, 255, 153) ' żółty
      Case "błąd"
        Rows(i).Interior.Color = RGB(255, 102, 102) ' czerwony
      Case Else
        Rows(i).Interior.ColorIndex = xlNone ' brak koloru
    End Select
  Next i

  MsgBox "Kolorowanie zakończone!", vbInformation
End Sub

🛠️ Jak użyć tego makra?

1. Otwórz Excela i naciśnij ALT + F11.
2. Wklej kod do nowego modułu.
3. Upewnij się, że dane zaczynają się od wiersza 2 i kolumna C zawiera statusy (np. „Zakończony”, „W toku”, „Błąd”).
4. Uruchom makro KolorujWierszeWedlugStatusu.

✅ Podsumowanie

To makro pozwala na automatyczne wyróżnienie wierszy na podstawie statusów lub innych wartości tekstowych. Idealne do raportów, list zadań, rejestrów projektów i harmonogramów.