Vba ile birer satır arayla koşullu biçimlendirme

[meleklerim]

Arkadaşlar selamlar
Bir excel sayfasında
önce aktif olan sayfadaki varsa tüm koşullu biçimlendirmeleri kaldırıp
sonra
A1>0 ise A1-L1 satırının dolgusunu gri renkli yap ve satırın çerçevesini çiz (hücre içlerini değil)
A2>0 ise A2-L2 satırınına dolgu yapma, sadece satırın çerçevesini çiz (hücre içlerini değil)
diye bir dolgulu bir dolgusuz kendini tekrarlayan koşullu biçimlendirme yapmak için nasıl bir vba kodu oluşturmalıyız?
Yardımcı olacak arkadaşlara şimdiden teşekkürler
(örnek biçimlendirme ekteki dosyada)

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[meleklerim]

çok teşekkürler, olorindex 48 çok koyu geldi. daha açık olması için ne yapmam lazım onu araştırıyorum. istediğim koyuluk dolgu menüsünde "%15 daha koyu" olan seçenek. Sol üstten üçüncü

 

[pitchoute]

Merhabalar, şu şekilde dener misiniz;

Sub KosulluBicimlendirmeUygula()
    Dim ws As Worksheet
    Dim sonSatir As Long
    Dim i As Long
    Dim toggle As Boolean
    Dim rng As Range
    Dim griRenk As Long
    Set ws = ActiveSheet
    ws.Cells.FormatConditions.Delete
    sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    toggle = True
    griRenk = RGB(217, 217, 217)
    For i = 1 To sonSatir
        If ws.Cells(i, "A").Value > 0 Then
            Set rng = ws.Range(ws.Cells(i, "A"), ws.Cells(i, "L"))
            With rng.Borders
                .LineStyle = xlContinuous
                .Weight = xlThin
                rng.Borders(xlInsideVertical).LineStyle = xlNone
            End With
            If toggle Then
                rng.Interior.Color = griRenk
            Else
                rng.Interior.ColorIndex = xlNone
            End If
            toggle = Not toggle
        End If
    Next i
    MsgBox "Koşullu biçimlendirme tamamlandı.", vbInformation
End Sub