Kodların Anlamı Nedir?

[drejan62]

Merhabalar alttaki kod döngüsünde amaç nedir acaba?
Teşekkür ederim.

Kod: [Seç]

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim son As Long
son = Range("a65536").End(3).Row - 1
If son < 7 Then Range("b4").Value = 0: Exit Sub
Range("b4").Value = WorksheetFunction.CountA(Range("a7:a" & son))
End Sub

[Bülent Öztürk]

Merhaba Ercan Bey.

Kodda;
Mevcut Excel dosyasında, bir Özet Tablo güncellenmesi durumunda, yapılacak işlemler belirtilmiş.
"son" değişkenine A sütunun dolu son satırının bir eksiği atanmış.
"son" değerinin 7'den küçük olması durumunda B4 hücresine 0 yazılıp kodlara devam etmeden çıkılması,
aksi halde ise B4 hücresine A7 ile A sütunun dolu son hücresi arasındaki dolu hücrelerin sayısının yazılması düşünülmüş, sanırım.

[drejan62]

Teşekkürler üstad