Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: Kodların Anlamı Nedir?  (Okunma sayısı 7427 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Kodların Anlamı Nedir?
« : 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

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: Kodların Anlamı Nedir?
« Yanıtla #1 : 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.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Kodların Anlamı Nedir?
« Yanıtla #2 : 24 Mart 2011, 17:22:40 »
Teşekkürler üstad