Sayfalardaki tablo bilgilerini bir sayfada toplamak

[Mertsan]

Merhaba Değerli dostlarım,

Depozito Takip adlı ekli dosyamda tüm sayfalardaki ürün isimlerinin olduğu sütünların kırmızı ile belirtilmiş devir rakamlarını ürün başlığı ile birlikte ayrı bir sayfada listelemek istiyorum.

Sütun başlıkları 3 hücre birleştirilmiş bir hücrede bulunuyor.

Ekli dosyada örnek olarak bu işi el ile doldurduğum "sayfaToplamlar" adlı bir sayfa oluşturarak yaptım. Sayfalardaki ürün başlıkları ve sayfa isimleri olan müşteri adları aynen bu şekilde kesişecek/raporlanacak. Yani ilgili sayfa adı(müşteri adları) karşısına o sayfa içindeki ürün başlığı altındaki devir sayısı gelecek.

Burada ifadesi kolay olmadı ama örneğe bakarsanız anlaşılacaktır.

Sırası ise önemli değil elbette alfabetik sıralatılabilir sonradan. Önemli olan ilgili ürün başlılarının ilgili sütun başlığıyla birlikte ilgili müşteri karşısında bulunmasını sağlamak.

Tabi ki bu örnek dosya kısa, asıl dosyada yüzlerce sayfa bulunmaktadır.

Bir makro kaydedip kodlar üzerinde çalıştım. Aşağıdaki gibi bir kod ortaya çıktı, ancak içteki döngü hatalı ve zaten tam olarak çalışmıyor. Sadece isimleri listeleyebildim.

Yardımcı olabilecek dostlara şimdiden çok teşekkür ederim.
Mertsan

Sub Macro2()
'
' Macro2 Macro
'
For i = 1 To Worksheets.Count

    Sheets(i).Select
    a = Sheets(i).Name
    Sheets("sayfaToplamlar").Select
    Cells(i + 1, 1).Value = a
    
    For b = 2 To [IV12].End(1).Column Step 3
        
        d = Cells(12, b).Copy
        'Sheets("Sheet2").Select
        Worksheets("SayfaToplamlar").Cells(b, 2).Value = d
        
    Next b
   
Next i

Worksheets("SayfaToplamlar").Columns("A:A").AutoFit
        
End Sub

 

[Ömer BARAN]

Merhaba.

Belge ekte.
Sayısal değerler döngü yerine formül ile bulunup, değer olarak yazılmaktadır.
Test ediniz.

 

[Mertsan]

Ömer bey,

Ellerinize zihninize sağlık.
Çok güzel ve tam istediğim gibi olmuş. Tekrar çok teşekkür ederim.

Doğrusu kodlama/programlama bilginize hayran kaldım. Özellikle Excel VBA konusunda NET'te çok sayıda makale, eğitim ve forum yayınları olmasına rağmen bunların çoğu amatör düzeyde parça parça bilgi veren makaleler. Aslında böyle hemen her konuda çözüme götürebilecek algoritma tasarlayıp program kurabilecek düzeyde düşündüğümüzden daha az sayıda uzman var.

Umuyorum ki sizler gibi program geliştirebilecek düzeye geliriz, ilerledikçe forum paylaşımlarına destek olmak ta isterim. iyi geceler ve işlerinizde bol kazançlar dilerim.
Mertsan.

 

[Ömer BARAN]

Estağfurullah.
İltifatlar için teşekkürler,
iyi dilekleriniz için ise bilmukabele diyorum.

İyi günler dilerim.