|

Excel Makro İle Tablo Özetleme

Excel içinde visual basic arayüzü ile hazırlanmıştır. Kodlar aşağıdaki gibidir. Çok karmaşık olarak anlatmamaya özen gösterdim. Daha basit ve kısa kodlar var ancak anlaşılabilir olması ve mantığın kavranması adına bu şekilde kodlamayı daha uygun gördüm.

Aşağıdaki videodan içeriği izleyebilirsiniz.

Faydalı olması dileğiyle…

 

Private Sub CommandButton1_Click()
Range("H2:I1000").ClearContents

Dim ilk
Dim son
Dim tarih
Dim dongu
Dim dongu2

ilk = 2
son = 31
tarih = Cells(2, 7)

For dongu = ilk To son
dongu2 = WorksheetFunction.CountIf(Range("H2:H1000"), "<>") + 2
If Cells(dongu, 2) = tarih Then Cells(dongu2, 8) = Cells(dongu, 1)
If Cells(dongu, 2) = tarih Then Cells(dongu2, 9) = Cells(dongu, 3)

Next dongu

End Sub

 

Video’da yer alan excel dosyasını indirmek için tıklayınız.

Similar Posts

12 Comments

  1. Merhaba

    Yukardaki örneği şu şekilde nasıl yapabiliriz;

    * 2 tarih aralığında,

    * Adı: Ayşe, Fatma, Ahmet… olan (ne kadar veri dahil edilirse, dahil edilen verileri 2 tarih arasında arasın. boşsa tamamını arasın)

    * Satış adedi: 1, 3, 4 adet olanlar (ne kadar veri dahil edilirse, dahil edilen verileri 2 tarih arasında arasın. boşsa tamamını arasın)

    Ben başka bir program yapmak istiyorum. Verdiğin uygulama üzerinden sormak istedim. Sorumun cevabını verirsen kendime göre uyarlayabiirim.

    Teşekkür ederim.

    1. Merhaba Önder Bey,
      Örnek bir dosya oluşturup admin@bymmb.com adresine mail atıp, isteğinizi detaylı anlatabilirseniz yardımcı olurum. Burada yazarak anlatmak çok zor olur 🙂

  2. Mustafa bey merhaba

    Vermiş olduğunuz bu örneği sayfa2 ye nasıl yazdıra bilirim. Sayfa ismi eklemeye çalıştım ama olmadı. Yardımcı olabilir misiniz. Teşekkürler

    1. Merhaba,
      Kod içinde bir sayfaya referans vermek için sheets(“Sayfa ismi”)… şeklinde dizilim olmalıdır.

  3. Mustafa bey merhaba
    Güzel bir çalışma olmuş ellerinize sağlık.
    Örneği excel sayfasına kopyaladım. Çalışıyor. Fakat ben aynı verileri makro ile sayfa2 ye getiremedim. Makro yu sayfa2 de veriler sayfa1 olacak şekilde nasıl ayarlaya bilirim.
    Teşekkürler

      1. Mustafa bey bende aynı sayfanın örnrğinden alabilirmiyim bende 2. sayfadaki verileri getiremiyorum teşekkürler.

  4. saygılar mustafa bey
    çizgi grfkte dikey eksen veri değiştirdiğimde sıfırdan başlıyor ve çizgiler yukarda düz bir hat halini alıyor yani dikey eksenin en küçük sayıdan başlamasını istiyorum yardımlarınızı rica ediyorum saygılarımla

    1. Merhaba,
      Dikey eksen üzerinde sağ tıklayıp, ekseni biçimlendir deyin.
      Açılan kutuda en az ve en fazla seçeneklerini istediğiniz şekilde değiştirin.
      Kolay gelsin.

  5. iyi çalışmalar
    Bu işlemi tarih olarak değilde sarfiyat malzemesi olarak düşünüp depo stok olarak nasıl oluşturabiliriz
    mesela butonu sayfa 1 e ekleyip sayfa 2 de depo da ki ürün adedi nicsi gelen ve depo çıkan. sayfa 3 te ise güncel depo son durumu göstermesi…
    Galiba biraz karışık anllatım ama sayfa 1 de depoya giriş veya çıkış butonu oluşturup diger sayfalarda otomatik + – yapabilirmiyiz…

  6. iki tarih arasında veri olmaya örnek verebilirmisin ayrıca otamatik köprü eklemeye de örnek verebilirseniz seviniriz teşekkürler

  7. merhaba mustafa bey. bende sayfa 1 verilerinde sayfa 2 de rapor oluşturmaya çalışıyorum lakin beceremedim. eğer banada sheets(“Sayfa ismi”) nasıl kullanacağımı atarsanız size müteşekkir kalırım. şimdeden tşekkürler.

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Bu site, istenmeyenleri azaltmak için Akismet kullanıyor. Yorum verilerinizin nasıl işlendiği hakkında daha fazla bilgi edinin.