IF DÖNGÜSÜ

[BBBBuRaKKKK]

If Range("A" & i) = "0" Then
            Range("A").Interior.Color = xlNone

Merhabalar arkadarşlar

Bu if döngüsünde sadece "A" sütununu değilde birden çok sütun seçmek istiyorum .Yardımcı olursanız sevinirim.

Birde "0" koyamıyorum hata veriyor "0" dan faklı olanları boyamasını istiyorum

 

[hamitcan]

Farklı bir döngü kullanın.

For each hcr in range("a1:g500")

'kodlarınız'

next

 

[BBBBuRaKKKK]

Merhaba olayı bu şekilde çözdüm çalışıyor. Teşekkür ederim Hamit Bey

If Range("A" & i) = 0 Then
        Range("A" & i).Interior.Color = xlNone
        Else
        Range("A" & i).Interior.ColorIndex = 46
        End If
        If Range("B" & i) = 0 Then
        Range("B" & i).Interior.Color = xlNone
        Else
        Range("B" & i).Interior.ColorIndex = 46
        End If
        If Range("C" & i) = 0 Then
        Range("C" & i).Interior.Color = xlNone
        Else
        Range("C" & i).Interior.ColorIndex = 46
        End If