boş hücrelere otomatik değer atama

[incsoft]

Arkadaşlar örneğin E ve F sütünlarında 5000.satıra kadar otomatik olarak "0" değerini yazdırmak için buttonuma ne gibi bir kod yazmam gerekmektedir?

 

[askm]

Sub askm()
Application.ScreenUpdating = False
For i = 1 To 5000
    Cells(i, 5) = 0
    Cells(i, 6) = 0
Next i
Application.ScreenUpdating = True
End Sub

 

[askm]

Alternatif

Sub askm()
Application.ScreenUpdating = False
Dim k As Range
For Each k In Range("E1:F5000")
    k = 0
Next
Application.ScreenUpdating = True
End Sub

 

[incsoft]

Hocam bütün hücrelere 0 atadı. Ben sadece boş olan hücrelere yazdırtmak istemiştim.

Teşekkürler.

 

[antonio]

Merhaba,
Size Sayın askm tarafından önerilen kodu aşağıdaki şekilde kullanabilirsiniz:

Sub askm()
Application.ScreenUpdating = False
Dim k As Range
For Each k In Range("E1:F5000")
    [COLOR="Red"][B]If k.Value = "" Then[/B][/COLOR]
        k.Value = 0
    [COLOR="red"][B]End If[/B][/COLOR]
Next
Application.ScreenUpdating = True
End Sub

 

[incsoft]

Merhaba,
Size Sayın askm tarafından önerilen kodu aşağıdaki şekilde kullanabilirsiniz:

Sub askm()
Application.ScreenUpdating = False
Dim k As Range
For Each k In Range("E1:F5000")
    [COLOR="Red"][B]If k.Value = "" Then[/B][/COLOR]
        k.Value = 0
    [COLOR="red"][B]End If[/B][/COLOR]
Next
Application.ScreenUpdating = True
End Sub

Güzel hocam ancak çok aşırı yavaş çalışıyor nedense

 

[YUSUF44]

E1:F5000 aralığını seçin (sol üstteki adres çubuğuna E1:F5000 yazıp Enter yaparak hızlıca seçebilirsiniz)

F5 tuşuna basın

Özel düğmesine basın

Boşlukları işaretleyin

0 yazın

CTRL +ENTER yapın

 

[antonio]

Güzel hocam ancak çok aşırı yavaş çalışıyor nedense

Aşağıdaki kodları deneyin.

Sub bos_hucrelere_sifir_ata()
Dim sh As Worksheet, hcr As Range, ss As Long
Set sh = Sayfa1
ss = sh.Range("E:F").Find("*", , , , xlByRows, xlPrevious).Row
Set hcr = sh.Range("E2:F" & ss)
hcr.SpecialCells(xlCellTypeBlanks).Select
Selection.Value = 0
sh.Range("E1").Select
MsgBox "İşlem tamamlandı..", vbInformation, "antonio"
End Sub