Makro ile farklı satırlardaki hücreleri nasıl saydırabilirim

[serhank20]

Merhaba üstadlar,

sayfa1.cells(10,2)
sayfa1.cells(20,2)
sayfa1.cells(30,2)
.
.
.

bunları makro ile birer birer nasıl saydırabilirim?

 

[muygun]

Merhaba;

Sub sayy()
For i = 10 To Range("b65536").End(xlUp).Row Step 10
If Sayfa1.Cells(i, 2) <> "" Then say = say + 1
Next i
MsgBox (say & " adet veri")
End Sub

Bir butona bağlayıp deneyin.
İyi çalışmalar.

 

[serhank20]

Merhaba;

Sub sayy()
For i = 10 To Range("b65536").End(xlUp).Row Step 10
If Sayfa1.Cells(i, 2) <> "" Then say = say + 1
Next i
MsgBox (say & " adet veri")
End Sub

Bir butona bağlayıp deneyin.
İyi çalışmalar.

Eyvallah eline sağlık kardeşim. Bunu bulunduğu hücrelerin değerlerini toplatsak nasıl çevirebiliriz acaba?

 

[muygun]

Merhaba;

If Sayfa1.Cells(i, 2) <> "" Then say = say + 1

satırını;

If Sayfa1.Cells(i, 2) <> "" Then say = say +Sayfa1.Cells(i, 2)

Şeklinde düzenleyerek deneyin.

İyi çalışmalar.