Hatalı Hücreleri Renklendirme
02 Ocak 2021
27 Mayıs 2021
757
Hatalı Hücreleri Renklendirme isimli kod, bir işlem yapılmış Excel hücrelerini tarar ve hata içeren hücreleri renklendirmenizi sağlar.
Sub Hatali_Hucreleri_Renklendirme()
Dim Alan As Range
Dim i As Integer
For Each Alan In ActiveSheet.UsedRange
If WorksheetFunction.IsError(Alan) Then
i = i + 1
Alan.Style = "Kötü" 'ingilizce versiyonlar "Bad" yazılır
End If
Next Alan
MsgBox "Toplam " & i & " hatalı hücre var."
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ı
Kod çalıştıktan sonra hatalı alanlar renklenir ve MsgBox ile kaç hatalı alan olduğu sayısı verilir.
Etiketler :
Hazır Dosyayı İndir
Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
| YARARLI KISAYOLLAR | |
|---|---|
| Yeni Sayfa Ekleme | Shift F11 |
| Satır ve Sütun Başlıklarını Gizleme Gösterme | Alt P Ü |
| Yazdırma | Ctrl P |
| Stil Penceresini Açma | Alt Shift 2 |
| Soldaki Veriyi Kopyalama | Ctrl R |