Boşluk Olan Hücreleri Renklendirme
02 Ocak 2021
01 Haziran 2021
213
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ücre Biçimlendirme Yazı Tipi Sekmesini Açma | Ctrl Shift F |
| Sonraki Sayfaya Gitmek | Ctrl Page Down |
| Altı Çizgili Yazdırma / Alternatif | Ctrl 4 |
| Hücreyi Taşıma | Sürükle |
| Farklı Kaydetme | F12 |
Excel hücrelerinizde, ok tuşlarının dışında;
- Enter tuşu ile alt hücreye,
- Shift + Enter tuşları ile üst hücreye
- Tab ile sağ hücreye,
- Shift + Tab tuşları ile sol hücreye