Boşluk Olan Hücreleri Renklendirme
02 Ocak 2021
01 Haziran 2021
874
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 |
| Aktif Pencereyi Kapatma | Ctrl W |
| Hücreyi Taşıma | Sürükle |
| Hücreyi Araya Yerleştirme | Shift Sürükle |
| Kes / Alternatif | Shift Delete |