İki değer arasını boyama

[akgun17]

Merhaba arkadaşlar,
Yaklaşık 1 saattir arıyorum ama çözüm bulamadım.
Genel bir takvim planı içerisinde "Start" ve "Finish" diye hücreler var.
Örneğin A1 hücresi boş
B1 hücresine Start yazıyor
B1'den H1'e kadar boş ve H1'de "Finish" yazıyor.
Ben B1 ve H1 aralığını boyamak istiyorum.
Yani komutta "Start" ve "Finish" değerlerini gör arasında kalan hücreleri kırmızıya boya demem lazım.
Yardımcı olabilir misiniz.
Teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz. Bakalım oldu mu?

Sub Boya()
 
    Dim Kol     As Integer
    Dim BKol    As Integer
    Dim i       As Integer
    
    Kol = Cells(1, Columns.Count).End(1).Column
    
    For i = 1 To Kol
        If Cells(1, i) = "Start" Then BKol = i
        If Cells(1, i) = "Finish" Then _
            Range(Cells(1, BKol + 1), Cells(1, i - 1)).Interior.ColorIndex = 3
    Next i
    
End Sub