• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

boşsa boya

E

emrexcel123

Katılım
15 Ocak 2007
Mesajlar
791
Excel Vers. ve Dili
2003 excel visual basic
ü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...
 
Aşağıdaki kodları kullanabilirsiniz.

Kod: 
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
 
Bir örnekte benden.

Kod: 
Sub renklendir()
[a1:f69].SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 6
End Sub
 
Sayın ripek, teşekkürler. Ama benim ki sadece bir alternatifdi.
 
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
 
peki doluysa

peki dostlar tam tersi için ne yapılabilir yani dolu alanlar için ne yapılabilir... :)
 
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
 
emrexcel123' Alıntı:
peki dostlar tam tersi i&#231;in ne yap&#305;labilir yani dolu alanlar i&#231;in ne yap&#305;labilir... :)
Genişletmek için tıkla ...

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.

Kod: 
Sub Makro1()
[a1:f69].SpecialCells([COLOR=red]xlCellTypeConstants[/COLOR]).Interior.ColorIndex = 6
End Sub
 
Sn ripek'den de bir satır alırsak daha güzel olacak. :)

Kod: 
Sub Makro1()
[COLOR=red]Range("a1:f69").Interior.ColorIndex = xlNone[/COLOR]
[a1:f69].SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 6
End Sub
 
Arkadaşlar bende Makrosuz bir çözüm sunuyorum. İlgili dosya ektedir.
 
Son düzenleme:
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...
 
Yani bunu nas&#305;l yapt&#305;n&#305;z?&#304;lgimi &#231;ekti.
 
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.
 
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.
 
Olay &#351;imdi anla&#351;&#305;ld&#305;.Buray&#305; kontrol etmemi&#351;tim.

Kolay Gelsin.
 
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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst