Boş hücrelere otomatik nokta "." doldurma..

[Gorarr]

Selamlar. A1:H11 arası hücre boş ise eğer otomatik "." ile dolduracak kodlarda yardımcı olurmusunuz. bunda gerekirmiydi bilemedim ama örnek dosyamı koydum. yardımlarınız için teşekkürler...

 

[Ömer]

Merhaba,

Sub BoslukBul()
 
On Error GoTo son:
    [COLOR=blue]Range("A1:H11").SpecialCells(xlCellTypeBlanks) = "."[/COLOR]
Exit Sub
son:
MsgBox " Boş hücre bulamadım."
 
End Sub

Bu şekilde kullanabilirsiniz..

.

 

[Gorarr]

Çok çok teşekkürler....