j12:j38 aralığına veri girildikçe kod çalışsın

[canercan02]

merhaba arkadaşlar;
forumda bulduğum kodlarla sayfa1 deki j12:j38 deki değerler değiştikçe bu aralıktaki dolu hücre sayısını yazdırmak istedim. fakat bir türlü sorunumu çözemedim.


kodlar aşağıdaki gibidir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [j12]) Is Nothing Then Exit Sub
sayi = WorksheetFunction.CountA(ActiveSheet.Range("j12:j38"))
Sheets("sayfa1").Range("a1").Value = sayi
End Sub

yapmak istediğim şey. j12 hücresine veri girildiğinde a1 hücresine 1 yazması, j12 dolu ve j13 hücresine de veri girilirse yine a1 hücresine 2 yazmasıdır. bu durum j38 hücresine kadar devam edecek.
yardımlarınız için şimdiden teşekkürler.

 

[isteobenim]

Selamlar,

Kod bu şekilde çalışıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
sayi = WorksheetFunction.CountA(ActiveSheet.Range("j12:j38"))
Sheets("Sayfa1").Range("a1").Value = sayi
End Sub

Formülle istersenizde;
=BAĞ_DEĞ_DOLU_SAY(J12:J38)
şeklinde deneyebilirsiniz.

 

[canercan02]

sağol usta ama kod bende çalışmadı. verdiğin formül ile sorunumu çözdüm. teşekkürler..

 

[isteobenim]

Rica ederim,

Kodu aşağıdaki gibi "Sayfa1" kod alanında çalıştırmıştım.Tekrar denedim çalışıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
sayi = WorksheetFunction.CountA(ActiveSheet.Range("J12:J38"))
Sheets("Sayfa1").Range("a1").Value = sayi
End Sub