boş olan hücreler 0 yazmak

[ahmet79]

arkadaşlar forumda arama yaptım fakat bulamadım a1:ax180 arasındaki boş olan hücrelerin hepsinin değeri 0 olsun istiyorum. yardımcı olabilirmisiniz?

 

[TRABLUS]

Yapmak istediğiniz alanı bloklayın sırasıyla
ctrl + H yapın ve aranan kısmını boş bırakın, yeni değer yazan yeri 0 yapıp tümünü değiştir deyin.
Edit: Soru makro bölümündeymiş yeni farkettim..

 

[Kemal Demir]

Sub bosusıfıryap()
'100 satır ve 50 sutun için geçerlidir
For c=2 to 100
Fork =1 to 50
if Cells(c,k).value="" Then
Cells(c,k).value=0
End if
next
next
End Sub

Zannedersem işinizi Görür

Bu arada Sn. TRABLUS,

Yapmak istediğiniz alanı bloklayın sırasıyla
ctrl + H yapın ve aranan kısmını boş bırakın, yeni değer yazan yeri 0 yapıp tümünü değiştir deyin.

Daha Kolay Bir yol

 

[Haluk]

Alternatif:

Sub Test()
    If Range("AX180") = Empty Then Range("AX180") = 0
    Range("A1:AX180").SpecialCells(xlCellTypeBlanks) = 0
End Sub