Hej,
do tego nie potrzeba makra. Wystarczy formatowanie warunkowe.
Ale jeśli musi być VBA...
Sub Kolor()
Dim i As Long
Dim iRow As Long
iRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
For i = 2 To iRow
If ActiveSheet.Range("D" & i).Value <> "" Then
If ActiveSheet.Range("H" & i).Value = 0 Then
ActiveSheet.Range("B" & i & ":G" & i).Interior.ColorIndex = 10
End If
End If
Next i
End Sub
Cytat:Cześc, potrzebuje napisać jakąś stosunkowo prostą pętle, której zadanie jest następujące:
W swoim arkuszu w każdym wierszu od H2 do H2xxx mam wartości liczbowe i chciałbym żeby w przypadku gdy wartość w tej komórce wyniesie 0 to komórki od B do G w tym samym rzędzie zostały pokolorowane na dany kolor.
Opcjonalnie dodać jeszcze jakby warunek sprawdzający, że jeśli komórki dla kolumny D są puste to pętla nie będzie uruchamiana.
Jeśli ktoś miałby chwilę i pomysł jak takie coś zrobić, będę bardzo wdzięczny :) |