Boşluk Olan Hücreleri Renklendirme
02 Ocak 2021
01 Haziran 2021
595
Boşluk Olan Hücreleri Renklendirme isimli kod, Excel sayfalarınızda bir yerine iki boşluk bırakılmış alanların renklendirilmesini sağlar.
Sub Bosluk_Olan_Hucreleri_Renklendirme()
Dim Alan As Range
For Each Alan In ActiveSheet.UsedRange
If Alan.Value = " " Then
Alan.Style = "Not" 'İngilizce "Note"
End If
Next Alan
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Kodda 2 boşluk olanların renklendirilmesi sağlanmaktadır. Eğer daha fazla boşluk kontrolü yapmak istiyorsanız; If Alan.Value = " " Then satırındaki " " kısmını revize etmeniz yeterli olacaktır.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Hücreyi Üste Yaslı Hale Getirmek | Alt Ş ÜS |
| Eğik Yazdırma | Ctrl T |
| Yapıştır Kısayolu | Ctrl V |
| Şerit Menüyü Genişletme, Daraltma | Ctrl F1 |
| Veri Aralığının En Altına Gitme | Ctrl ↓ |