Boş Hücrelere 1 yazmak

[bendiler]

Belli aralıktaki boş hücrelere 1 yazdırmak istiyorum. Örnek : A1:G21 arasında bazı hücreler dolu kalan boş hücrelere seçip 1 yazılmasını nasıl yapabilrim?
Yardımlarınız için Teşekkürler.

 

[uzmanamele]

merhaba

bunlar işinizi görür mü?

Sub birdirbir()
Dim hcr As Range
For Each hcr In Range("A1:G21")
    If hcr.Value = "" Then hcr.Value = 1
Next
End Sub

ayrıca,
A1:G21 fareyle seçin, git / özel / boşluklar
formül çubuğuna 1 yazın ve ctrl+enter

 

[bendiler]

sn uzmanamele, teşekkür ederim.

 

[Necdet]

Merhaba,

Makroya bir örnekte benden olsun

Sub HepBirlikte()
    Cells.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "1"
End Sub