Boş Hücreleri Sıfırlarla Değiştirme
16 Şubat 2021
16 Şubat 2021
1259
Boş Hücreleri Sıfırlarla Değiştirme isimli kodu kullanarak, Excel sayfanızda seçtiğiniz alanda yer alan boş hücreleri sıfır ile değiştirebilirsiniz.
Sub replaceBlankWithZero()
Dim rng As Range
Selection.Value = Selection.Value
For Each rng In Selection
If rng = "" Or rng = " " Then
rng.Value = "0"
Else
End If
Next rng
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ı
Bir sayfa üzerinde yer alan bir alandaki boş değerleri sıfırla değiştmek isterseniz, bu kodu kolayca kullanabilirsiniz.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Tüm Tabloyu Seçme | Ctrl A |
| Bitiş Modunu Açma | End |
| Hızlı Kenarlık Ekleme | Ctrl Shift & |
| Bir sonraki sonucu bulma | Shift F4 |
| Sayfayı Hızlı Çoğaltma | Ctrl Sürükle |