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..
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.
Sub Test()
If Range("AX180") = Empty Then Range("AX180") = 0
Range("A1:AX180").SpecialCells(xlCellTypeBlanks) = 0
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.