İmlecin bulunduğu yerden aşağı doğru toplama

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel sayfamda ALTTOPLAM formülü ile gizlenen satırlar dışında kalan dolu satırları topluyor.

Benim yapmak istediğim B sütununda imleci tıkladığım yerden en son dolu satıra kadar toplamı görmek istiyorum.

Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Son = Cells(Rows.Count, 2).End(3).Row
    If Target.Row > Son Then
        Range("G1") = Empty
    Else
        Range("G1") = WorksheetFunction.CountA(Range("B" & Target.Row & ":B" & Son))
    End If
End Sub

 

[ASLAN7410]

Sayın Korhan Bey çok teşekkür ederim ellerinize sağlık, tam istediğim gibi oldu.

Hayırlı geceler hayırlı çalışmalar diliyorum.

 

[ASLAN7410]

Sayın Korhan Bey kusura bakmayın tekrar rahatsız ediyorum.

Kod gizli olan satırlarıda sayıyor, bu kodu ALTTOPLAM(3;C1;C1048576) formülü gibi çalıştırılabilir mi?

 

[Korhan Ayhan]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Son = Cells(Rows.Count, 2).End(3).Row
    If Target.Row > Son Then
        Range("G1") = Empty
    Else
        Range("G1") = WorksheetFunction.Subtotal(3, Range("B" & Target.Row & ":B" & Son))
    End If
End Sub

 

[ASLAN7410]

Sayın Korhan Bey çok teşekkür ediyorum, Allah razı olsun hayırlı çalışmalar hayırlı geceler.