Veri Dogrulama İle 0 Sayısının Renk Değişmesi..!

[ileri]

Arkadaşlar Benim Sizlere Bir Sorum Olucaktı...
Excell'de B Sutunundaki sayılar 0 ise renk sarı olabilirmi ?

Örnk: B Sutununda ' 0 ' Sayısı Var. veri dogrulama ile yada bir onay kutusu yada chext box ile tıklayınca sarı tekar tıklayınca siyah olabilirmi ?

Şimdiden Tesekkürler

Tr'yi Yanlış Kullandıysam Özürdilerim

 

[İhsan Tank]

Arkadaşlar Benim Sizlere Bir Sorum Olucaktı...
Excell'de B Sutunundaki sayılar 0 ise renk sarı olabilirmi ?

Örnk: B Sutununda ' 0 ' Sayısı Var. veri dogrulama ile yada bir onay kutusu yada chext box ile tıklayınca sarı tekar tıklayınca siyah olabilirmi ?

Şimdiden Tesekkürler

Tr'yi Yanlış Kullandıysam Özürdilerim

eki inceler misiniz
koşulu biçimlendirme ile yapıldı

 

[İLYASİLERİ]

TŞkler

eki inceler misiniz
koşulu biçimlendirme ile yapıldı

Hocam Teşekkürler Ama bunu İstege Baglı Yapamazmıyız Tıklayıp olur Seklinde

 

[İhsan Tank]

Hocam Teşekkürler Ama bunu İstege Baglı Yapamazmıyız Tıklayıp olur Seklinde

merhaba

Sub renk()
Dim i As Long
For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
With Range("B" & i & ":B" & i)
If Cells(i, "B") = "" Then
.Interior.ColorIndex = 0
ElseIf Cells(i, "B") = "0" Then
.Interior.ColorIndex = 6
End If
End With
Next i
MsgBox "0'lar Renklendirildi", vbInformation, "İhsan Tank"
End Sub

kod olarak bunu kullanabilirsiniz.
eki inceleyin

 

[ileri]

merhaba

Sub renk()
Dim i As Long
For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
With Range("B" & i & ":B" & i)
If Cells(i, "B") = "" Then
.Interior.ColorIndex = 0
ElseIf Cells(i, "B") = "0" Then
.Interior.ColorIndex = 6
End If
End With
Next i
MsgBox "0'lar Renklendirildi", vbInformation, "İhsan Tank"
End Sub

kod olarak bunu kullanabilirsiniz.
eki inceleyin

Teşekkürler hocam Fakat Bir Sorun var Hücre Renklenmiyecek direk Rakam Sarı Renk olabilirmi ?
2. Olaraktan'da butona Tekrar Basıldıgında Rakam Eski Haline Gelebilirmi Yani
1 Kez Basıldı Rakam Sarı oldu 2. Kez Basıldı Rakam siyah Oldu..
Çok Teşekkürler.