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.
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.
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 🙂
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
Merhaba,
Kod içinde bir sayfaya referans vermek için sheets(“Sayfa ismi”)… şeklinde dizilim olmalıdır.
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
Örnek dosyayı size mail olarak ilettim.
Mustafa bey bende aynı sayfanın örnrğinden alabilirmiyim bende 2. sayfadaki verileri getiremiyorum teşekkürler.
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
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.
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…
iki tarih arasında veri olmaya örnek verebilirmisin ayrıca otamatik köprü eklemeye de örnek verebilirseniz seviniriz teşekkürler
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.