boşsa boya

[emrexcel123]

üstadlar ve arkadaşlar kolay gelsin
elimizdeki excel dosyasında boş olan hücreleri nasıl renklendirebiliriz yani a1:f69 hücre aralığındaki boş alanları nasıl renklendirebiliriz ii çalışmalar...

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub Button2_Click()
Range("a1:f69").Interior.ColorIndex = xlNone
For Each alan In Range("a1:f69")
If alan.Value = "" Then alan.Interior.ColorIndex = 36
Next
End Sub

 

[hamitcan]

Bir örnekte benden.

Sub renklendir()
[a1:f69].SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 6
End Sub

 

[Recep İpek]

Bir örnekte benden.

Sub renklendir()
[a1:f69].SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 6
End Sub

Bu daha süperr.

 

[hamitcan]

Sayın ripek, teşekkürler. Ama benim ki sadece bir alternatifdi.

 

[emrexcel123]

buldum

arkadaşlar çok sağolun yardımlarınız için görsel şekilde yapıp kendim düzenledim
git > boşluklar > renklendir şeklinde tekrar teşekkür ederim

 

[emrexcel123]

peki doluysa

peki dostlar tam tersi için ne yapılabilir yani dolu alanlar için ne yapılabilir...

 

[Recep İpek]

Sub Button2_Click()
Range("a1:f69").Interior.ColorIndex = xlNone
For Each alan In Range("a1:f69")
If alan.Value <> "" Then alan.Interior.ColorIndex = 36
Next
End Sub

 

[mehmett]

peki dostlar tam tersi i&#231;in ne yap&#305;labilir yani dolu alanlar i&#231;in ne yap&#305;labilir...

Sn hamitcan'&#305;n yazd&#305;&#287;&#305; kodda k&#252;&#231;&#252;k bir de&#287;i&#351;iklik yaparak bu i&#351;lem i&#231;in de kullanabilirsiniz.

Sub Makro1()
[a1:f69].SpecialCells([COLOR=red]xlCellTypeConstants[/COLOR]).Interior.ColorIndex = 6
End Sub

 

[mehmett]

Sn ripek'den de bir satır alırsak daha güzel olacak.

Sub Makro1()
[COLOR=red]Range("a1:f69").Interior.ColorIndex = xlNone[/COLOR]
[a1:f69].SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 6
End Sub

 

[Seyit Tiken]

Arkadaşlar bende Makrosuz bir çözüm sunuyorum. İlgili dosya ektedir.

 

[Recep İpek]

Makrosuz bir çözüm sunuyorum.

Nasıl yani...

 

[Seyit Tiken]

Soruda ne deniliyor : İligili alana, dolu hücrenin(yani içinde veri olan hücre) renklenmesi, dimi. O alana sayı veya metin türünde veri girildiği zaman, o hücre renklenir, silindiği zaman hücre bomboş olur...

 

[Recep İpek]

Yani bunu nas&#305;l yapt&#305;n&#305;z?&#304;lgimi &#231;ekti.

 

[mehmett]

Soru Makro b&#246;l&#252;m&#252;nde soruldu&#287;u i&#231;in gayr&#305; ihtiyari olarak makrolu &#231;&#246;z&#252;mler gelmi&#351;.

Sn Seyit Tiken, soruyu ko&#351;ullu bi&#231;imlendirme ile &#231;&#246;zerek makrosuz &#231;&#246;z&#252;mler de bulunabilece&#287;ini g&#246;stermi&#351;. Ekte g&#246;nderdi&#287;im dosyada ko&#351;ullu bi&#231;imlendirme ile yap&#305;lan bir ba&#351;ka &#246;rnek daha var.

G&#246;nderdi&#287;im sayfan&#305;n sol taraf&#305;nda bo&#351; h&#252;creler, sa&#287; taraf&#305;nda dolu h&#252;creler renklendiriliyor.

 

[Seyit Tiken]

Sayın Ripek, "Koşullu Biçimlendirme" ile yapılmıştır. Gerçi orda biraz fazla formül kullandık. Formül şu : =EĞER(A1<>"";1;0) şeklinde işlemi gerçeleştiriyor.

 

[Recep İpek]

Olay &#351;imdi anla&#351;&#305;ld&#305;.Buray&#305; kontrol etmemi&#351;tim.

Kolay Gelsin.

 

[Ali]

Space(aral&#305;k &#231;ubu&#287;una) bas&#305;ld&#305;&#287;&#305; zamanda h&#252;cre i&#231;erik olarak bo&#351; g&#246;z&#252;kmesine ra&#287;men karakter olarak kabul edecektir. Bunun &#246;n&#252;ne ge&#231;mek i&#231;in ko&#351;ula

=ESAYIYSA(BUL(" ";A1) eklemek gerekir.

Desenler k&#305;sm&#305;ndan renk bo&#351; se&#231;ilmelidir.