Hatalı Hücreleri Renklendirme
02 Ocak 2021
27 Mayıs 2021
759
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 | |
|---|---|
| Hücreleri biçimlendirme ekranını açma | Ctrl 1 |
| Farklı Kaydetme | F12 |
| Koyu Yazdırma / Alternatif | Ctrl 2 |
| Hücreyi Sayı Olarak Biçimlendirme | Ctrl Shift ! |
| Yapıştır Kısayolu | Ctrl V |