hücre rengi

[fth241003]

arkadaşlar hücre rengi kırmızı veya başka bir reng rengli olan hücreye 1 rengsiz olan yani dolgusuz olan hücereye 0 yazdırmak istiyorum bu konuda bilgi verirmisiniz?

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butona bağlayıp dener misiniz?

Önce belli bir bölge seçeceksiniz sonra makroyu çalıştıracaksınız.

Sub DurumNe()
For Each Hücre In Selection
    If Hücre.Interior.ColorIndex = xlNone Then
        Hücre.Value = 0
    Else
        Hücre.Value = 1
    End If
Next Hücre
End Sub