Bir satırdaki Dolum Olan SAtırları Sayma

[ahmedummu]

Merhaba arkadalar.

A sütununun herhangi bir satırı aktif iken B ve F hücreleri aralığındaki dolu hücrelerin sayısını bulmak istiyorum.

Örneğin imleç A16 hücresinde ise B16:F16 aralığındaki dolu hücrelerin sayısını bulma. Yardımcı olursanız sevinirim.

 

[antonio]

Merhaba,
B:F aralığındaki dolu hücrelerin sayısı hangi sütuna yazılmalı?

 

[askm]

Aşağıdaki şekilde deneyin. Dolu hücre sıfırdan fazla ise kod çalışıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sut = Target.Column
Say = WorksheetFunction.CountIf(Range(Cells(Target.Row, "B"), Cells(Target.Row, "F")), "<>")

If Sut = 1 And Say > 0 Then
    Target.Value = WorksheetFunction.CountIf(Range(Cells(Target.Row, "B"), Cells(Target.Row, "F")), "<>")
End If
End Sub

 

[antonio]

A hücresine tıklayınca, B:F aralığındaki dolu satırları istediğinize göre, ben kodları; dolu satır sayısını G sütununa atacak şekilde hazırladım. Siz dilediğiniz gibi değişiklik yapabilirsiniz.
Sayfanızın sekmesine sağ tıklayarak >> Kod Görüntüle seçeneğini seçtiktan sonra, açılan pencereye, aşağıdaki kodları kopyalayarak yapıştırınız, sonucu gözlemleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim say As Byte, sat As Long
If Not Intersect(Target, [A:A]) Is Nothing Then
    sat = Target.Row
    say = WorksheetFunction.CountA(Range("B" & sat & ":F" & sat))
    Range("G" & sat).Value = say
End If
End Sub

 

[antonio]

Sayın askm yanıtlamış, benimki alternatif olsun.

 

[ahmedummu]

Her iki cevap için de teşekkür ederim arkadaşlar. sağolun

Hücre sayısı bir değişkene aktarılacak.