Sayfalar arası aramalı toplamlı veri aktarımı

[sosyal2006]

Ana sayfaya diğer sayfalardaki aynı ürünlerin aynı fiyatlarını toplatarak aktarım yapmak istiyorum.

Şimdiden teşekkürler.

 

[Vedat Özer]

Selamlar,

M Sütununa sayfa adları yazmakla başlayalım,

Bütün sayfa isimleri yazdıktan sonra,

Ekle/Ad Tanımlaması Münesünü açalım.


Aşagıdaki formülü yapıştıralım,

Ad İsmi:YIL

=KAYDIR(anaform!$M$1;;;BAĞ_DEĞ_DOLU_SAY(anaform!$M:$M))

Bu şekilde dilediğimiz kadar sayfa sekmesini M sütununa girdiğimizde aşagıdaki vereceğim formül kendini yenileyecektir.

Formül sınırı 200 Hücreye kadara siz kendinize göre uyarlarsınız veri genişliğinie göre.

B Sütununa yazılması gereken formül,

=TOPLA.ÇARPIM(ETOPLA(DOLAYLI("'"&YIL&"'!$A$2:$A$200");$A2;DOLAYLI("'"&YIL&"'!B$2:B$200")))

C Sütununa yazılması gereken formül,

=TOPLA.ÇARPIM(ETOPLA(DOLAYLI("'"&YIL&"'!$A$2:$A$200");$A2;DOLAYLI("'"&YIL&"'!C$2:C$200")))

D Sütununa yazılması gereken formül,

=TOPLA.ÇARPIM(ETOPLA(DOLAYLI("'"&YIL&"'!$A$2:$A$200");$A2;DOLAYLI("'"&YIL&"'!D$2:D$200")))

E Sütununa yazılması gereken formül,

=TOPLA.ÇARPIM(ETOPLA(DOLAYLI("'"&YIL&"'!$A$2:$A$200");$A2;DOLAYLI("'"&YIL&"'!E$2:E$200")))

F Sütununa yazılması gereken formül,

=TOPLA.ÇARPIM(ETOPLA(DOLAYLI("'"&YIL&"'!$A$2:$A$200");$A2;DOLAYLI("'"&YIL&"'!F$2:F$200")))

Öğrenmek açısından burdaki işlemleri sırasıyla yaparsanız hem işleminiz yapılmış olur hemde öğrenmiş olursunuz.

 

[sosyal2006]

Öncelikle yardımınız için teşekkür ederim.
Ancak ürünler ve yıllar arttığı zaman formüller hesaplama yaparken çok bekletecek.Ortalama 300 ürün 5 çeşit fiyat ve 6 yıl olduğunu düşünürsek tablo çok ağırlaşmaz mı?
O yüzden sadece toplam sonuçlarını değer olarak bir butonla ana sayfaya atmak istedim.
Bu konuda yardımcı olabilirmisiniz?

 

[Vedat Özer]

Selamlar,


Makro bilgin yok biraz bekleyelim makro bilen arkadaşlarımız var mutlaka yardımcı olurlar.

 

[mesudiye_052]

Selamlar;

A firması için

=TOPLA.ÇARPIM((ETOPLA(DOLAYLI("'"&SATIR($2009:$2014)&"'!A2:A4");$A2;DOLAYLI("'"&SATIR($2009:$2014)&"'!B2:B4"))))

 

[mesudiye_052]

Selamlar;

Örnek Dosya

 

[sosyal2006]

Selamlar;

Örnek Dosya

Teşekkürler.
Formül yerine makrolu bir çalışma yapmam lazım.Nedeni 3.mesajda yazılı.
O konuda yardımcı olur musunuz?

 

[mesudiye_052]

Selamlar
Sayın Sosyal2006
bende sabırsızlıkla makro ile yapılışını bekliyorum
özellikle Etopla makrolu yapılışı

Saygılarla;

 

[sosyal2006]

Selamlar
Sayın Sosyal2006
bende sabırsızlıkla makro ile yapılışını bekliyorum
özellikle Etopla makrolu yapılışı

Saygılarla;

Selam.
Bende sonucu çok merak ediyorum.Ama bu gidişle yardım gelmeyecek herhalde.
Olmazsa özel mesajdan yardım isteyeceğim.
Bir dosya var.Formülü dosyaya uyguladım.Boyutu 3 MB oldu.

 

[Merhum İdris SERDAR]

Ana sayfaya diğer sayfalardaki aynı ürünlerin aynı fiyatlarını toplatarak aktarım yapmak istiyorum.

Şimdiden teşekkürler.

.

Dosyanız ekte.

Makrosuz.

Konu için bakınız:

Tabloların Konsolide edilmesi


.

 

[sosyal2006]

.

Dosyanız ekte.

Makrosuz.

Konu için bakınız:

Tabloların Konsolide edilmesi


.

Selam.
Dosyayı .zip'siz ve .rar'sız upload etmeniz mümkünmüdür?
Şirket bilgisayarları indirmeye izin vermiyor.

 

[mesudiye_052]

Selamlar;
Sayın Yurttaş hocama çok teşekkürler

bende acizane kod ile yaptım

Sub Toplama()
Dim Rng_1 As Range
Dim Sht As Worksheet
Dim Topla As Double
Dim Son As Long
Son = Range("A65536").End(xlUp).Row
For Each Rng_1 In Worksheets(1).Range("B2:F" & Son)
    For Each Sht In Worksheets
        If Sht.Name <> Worksheets(1).Name Then
            Topla = Topla + WorksheetFunction.SumIf(Sht.Range("A2:A100"), _
            Rng_1.Offset(0, -(Rng_1.Column - 1)), _
            Sht.Range(Cells(2, Rng_1.Column).Address & ":" & Cells(100, Rng_1.Column).Address))
        End If
    Next
    Rng_1.Value = Topla
    Topla = 0
Next
End Sub

Saygılarımla;

 

[mesudiye_052]

Selamlar;

Örnek dosya

 

[Merhum İdris SERDAR]

Selam.
Dosyayı .zip'siz ve .rar'sız upload etmeniz mümkünmüdür?
Şirket bilgisayarları indirmeye izin vermiyor.

.

Dosyalar ekte.

.

 

[sosyal2006]

.

Dosyalar ekte.

.

Yardımınız için teşekkürler Yurttaş.
Sizin göstermiş olduğunuz yolu daha önce kullanmadım.İyi bir yol.Biraz pratikle işimi çok kolaylaştıracaktır.

Selamlar;

Örnek dosya

Teşekkürler mesudiye_052.
İstediğim buydu.Yanlız tabloyu aşağıdaki gibi revize edersek kodu nasıl değiştirmemiz gerekiyor?
Sadece "anaform" sayfasına bir sütun diğer sayfalara 2 sütun eklendi.

 

[mesudiye_052]

Selamlar;

Sub Toplama()
Dim Rng_1 As Range
Dim Sht As Worksheet
Dim Topla As Double
Dim Son As Long
Son = Range("A65536").End(xlUp).Row
For Each Rng_1 In Worksheets(1).Range("B2:G" & Son)
    For Each Sht In Worksheets
        If Sht.Name <> Worksheets(1).Name Then
            Topla = Topla + WorksheetFunction.SumIf(Sht.Range("A2:A100"), _
            Rng_1.Offset(0, -(Rng_1.Column - 1)), _
            Sht.Range(Cells(2, IIf(Rng_1.Column > 2, Rng_1.Column + 1, Rng_1.Column)).Address & ":" & Cells(100, IIf(Rng_1.Column > 2, Rng_1.Column + 1, Rng_1.Column)).Address))
        End If
    Next
    Rng_1.Value = Topla
    Topla = 0
Next
End Sub

?
Saygılarla

 

[sosyal2006]

Selamlar;

Sub Toplama()
Dim Rng_1 As Range
Dim Sht As Worksheet
Dim Topla As Double
Dim Son As Long
Son = Range("A65536").End(xlUp).Row
For Each Rng_1 In Worksheets(1).Range("B2:G" & Son)
    For Each Sht In Worksheets
        If Sht.Name <> Worksheets(1).Name Then
            Topla = Topla + WorksheetFunction.SumIf(Sht.Range("A2:A100"), _
            Rng_1.Offset(0, -(Rng_1.Column - 1)), _
            Sht.Range(Cells(2, IIf(Rng_1.Column > 2, Rng_1.Column + 1, Rng_1.Column)).Address & ":" & Cells(100, IIf(Rng_1.Column > 2, Rng_1.Column + 1, Rng_1.Column)).Address))
        End If
    Next
    Rng_1.Value = Topla
    Topla = 0
Next
End Sub

?
Saygılarla

İşlem tamamdır.Çok teşekkür ederim.Elinize bilginize sağlık.