Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 23 Mart 2011, 18:52:54

Başlık: Kodların Anlamı Nedir?
Gönderen: drejan62 - 23 Mart 2011, 18:52:54

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

Başlık: Ynt: Kodların Anlamı Nedir?
Gönderen: Bülent Öztürk - 24 Mart 2011, 11:21:12

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.

Başlık: Ynt: Kodların Anlamı Nedir?
Gönderen: drejan62 - 24 Mart 2011, 17:22:40

Teşekkürler üstad