Marko Excel ile boşluklara 0 atamak

[solmertak]

Excelde yaptığım matriste çok fazla boşluk oluyor ve olacak. Bu boşluklara makro yardımı ile otomatik olarak 0 değerini nasıl atayabilirim?

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz. Kırmızı alana işlem yapmak istediğiniz hücreleri giriniz.

Sub kod()
Dim alan As Range, hcr As Range
Set alan = Range("A1:D4")
For Each hcr In alan
    If hcr.Value = "" Then hcr.Value = 0
Next
End Sub

Seçili alanda işlem yapmak için koddaki Range("A1:D4") ifadesinin yerine Selection yazınız.
İyi çalışmalar...

 

[solmertak]

Çok teşekkür ederim. Emeğinize sağlık

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...