VBA İLE SATIRSAY-BOŞLUKSAY

[editedbycenk]

Merhabalar

vba ile satırsay-boşluksay nasıl yaparız (satır sayısından boşluk sayısını çıkartacağım) bulduğu rakamı yine vba da for döngüsüne sokacağım

 

[uzmanamele]

Merhaba

Boş bir sayfa üzerinde veri girerek deneyiniz.

Sub BoslukSay()
x = 0: y = 0: Z = 0
x = Range("A1048576").End(3).Row
For i = 1 To x
If Cells(i, 1) = "" Then
y = y + 1: Cells(i, 1) = y
End If
Next
Z = x - y
For j = 1 To Z
Cells(j, 2) = j
Next
End Sub

 

[bmutlu966]

Alternatif olsun.
Datanız A1 den başlayacak şekilde A kolonunda olduğu varsayılmıştır.

Sub say()
son = [A65000].End(3).Row

For t = 1 To son
    If Cells(t, 1) = "" Then bos = bos + 1
Next
dolu = WorksheetFunction.CountA(Range("A1:A" & son))
MsgBox "Dolu : " & dolu & Chr(10) & "Bos : " & bos

End Sub

 

[editedbycenk]

Hocalarım tekrar merhaba
Yanlış anlattım sanırım satırsay eksi boşluk say formülü sonucu bi sayı çıkıyor o sayıyı ben başka bir döngüde kullanacağım o çıkan sayıya kadar dönsün for döngüm

 

[uzmanamele]

Hocalarım tekrar merhaba
Yanlış anlattım sanırım satırsay eksi boşluk say formülü sonucu bi sayı çıkıyor o sayıyı ben başka bir döngüde kullanacağım o çıkan sayıya kadar dönsün for döngüm

Verdiğim örnekte;
Satırsay=x
Boşluksay=y

z=x-y
For j=1 to z

Bu değil mi?

 

[editedbycenk]

Hocam peki bu formül e sütununa göre uyarlayabilirmiyiz sayfa1 E sütunu

 

[Ömer]

Merhaba,

Alternatif. s_say - b_say ile döngüye sokabilirsiniz.

Sub text()
    Dim s_say As Long, b_say As Long
    s_say = Range("E1:E100").Rows.Count
    b_say = WorksheetFunction.CountBlank(Range("E1:E100"))
End Sub

 

[editedbycenk]

Merhaba,

Alternatif. s_say - b_say ile döngüye sokabilirsiniz.

Sub text()
    Dim s_say As Long, b_say As Long
    s_say = Range("E1:E100").Rows.Count
    b_say = WorksheetFunction.CountBlank(Range("E1:E100"))
End Sub

Hocam çok teşekkür ederim

peki bu formüle sayfa adını nereye yazabilirim örneğin sayfa2 deki e sütununu kullanacağım

 

[Ömer]

Deneyiniz.

Sub text()
    Dim s_say As Long, b_say As Long, S1 As Worksheet
    Set S1 = Sheets("Sayfa2")
    s_say = S1.Range("E1:E100").Rows.Count
    b_say = WorksheetFunction.CountBlank(S1.Range("E1:E100"))
End Sub

 

[editedbycenk]

Çok teşekkürler hocam