Birleştir Menüsü ile toplama

[leonadies]

Üstadlarım ekli dosyada sütunlarda karmaşık verilen cins ve adetleri Menüdeki birleştir butonu ile birleştirip toplu sayı alabiliyorum. Ancak 2 problemle karşılaşıyorum.
1-Bu menü ile sadece bulunduğu sayfaya sonuç yazdırabiliyorum. Ben ise "sonuç" sayfası A1 e yazdırmak istiyorum
2- Makro kaydetme ile yaptığım Makroda tanımlı olan yol sorun yaratıyor. Bu exceli başka bir yere kopyalayıp aldığımda makro sürekli bu eski yolu arıyor.
3-Şimdilik veriler F sutununa kadar ama ileride z ye kadar gidebilir. Bİraz karışık oldu. Dosyam ne demek istediğimi anlatır sanırım

Sub topla()
'
' topla Makro
'

'
    Sheets("Veriler").Select
    Selection.Consolidate Sources:=Array( _
        "'C:\Users\PC\Desktop\[Birleşik Toplama.xlsx]Veriler'!C1:C2", _
        "'C:\Users\PC\Desktop\[Birleşik Toplama.xlsx]Veriler'!C3:C4", _
        "'C:\Users\PC\Desktop\[Birleşik Toplama.xlsx]Veriler'!C5:C6"), _
        Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodlar ile yapabilirsiniz.

Sub topla_Test()
    Dim SayfaAdi_Kaynak As String
    Dim SayfaAdi_Hedef As String
   
    SayfaAdi_Hedef = "Sonuc"
    SayfaAdi_Kaynak = "Veriler"
   
    Sheets(SayfaAdi_Hedef).Range("A1").Consolidate Sources:=Array( _
        "'" & SayfaAdi_Kaynak & "'!C1:C2", _
        "'" & SayfaAdi_Kaynak & "'!C3:C4", _
        "'" & SayfaAdi_Kaynak & "'!C5:C6"), _
        Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
End Sub

 

[leonadies]

Teşekkür ederim kodlar çalışıyor. Exceli başka yere taşıyınca da sorun yok. Tek sorun F sütunu ile sınırlandım. Çalışmanın durumuna göre z Sütununa kadar gidebilirim düz mantık araya şu kodu ekledim ama olmadı. Nasıl aşabilirim ?

"'" & SayfaAdi_Kaynak & "'!C5:C6"), _
"'" & SayfaAdi_Kaynak & "'!C7:C8"), _
Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False

 

[Muzaffer Ali]

Şöyle olmalı.

        "'" & SayfaAdi_Kaynak & "'!C5:C6", _
        "'" & SayfaAdi_Kaynak & "'!C7:C8"), _

Parantez kapat en sonda olacak.

 

[leonadies]

Teşekkür ederim gözden kaçırmışım. çok güzel oldu. Umarım başka arkdaşlara da faydası dokunur.

 

[igultekin2000]

Teşekkür ederim gözden kaçırmışım. çok güzel oldu. Umarım başka arkdaşlara da faydası dokunur.

Ben de hazır kodarı kullanabilen biri olarak, sormak istiyorum. 6 sütunlu veriyi C1-C2 , C3-C4 gibi belirterek , veri sayfasına 6 sütunda " yenilenen değer ve Genel Toplam alma" işlemini nasıl yapıyor anlayamıd.

 

[Muzaffer Ali]

"Veri / Veri Araçları / Veri Birleştir" özelliğini inceleyiniz.

C1-C2 Kolon numaralarıdır. C1= Column1(1.Kolon) anlamında
birinci kolonda yinelenen değerlerin aynı satırında bulunan 2. Kolondaki değerleri toplar.

 

[igultekin2000]

"Veri / Veri Araçları / Veri Birleştir" özelliğini inceleyiniz.

C1-C2 Kolon numaralarıdır. C1= Column1(1.Kolon) anlamında
birinci kolonda yinelenen değerlerin aynı satırında bulunan 2. Kolondaki değerleri toplar.

anladım, teşekkürler, C sütunu gibi düşününce çok anlamsız geliyordu, kolon olarak düşünce sorun çözülmüş oldu. iyi çalışmalar.