aynılarını birleştirip toplamlarını çıkarma

[ozki85]

merhaba arkadaşlar,

ekte göndermiş olduğum listede değişkenler

mesela:

A, B ve C bölümündeki aynı yazıları birleştirip QTY (adet)'lerini toplayacak ve Total GBP toplamlarını yapacak bi formul lazım bana ekte gönderiyorum. alt sayfada 2009 ve TOPLANMIŞ'lar var buradan örneklere bakabilirsiniz. Fakat formül yok

Teşekkürler.

 

[İhsan Tank]

merhaba arkadaşlar,

ekte göndermiş olduğum listede değişkenler

mesela:

A, B ve C bölümündeki aynı yazıları birleştirip QTY (adet)'lerini toplayacak ve Total GBP toplamlarını yapacak bi formul lazım bana ekte gönderiyorum. alt sayfada 2009 ve TOPLANMIŞ'lar var buradan örneklere bakabilirsiniz. Fakat formül yok

Teşekkürler.

merhaba
toplanmışlar sayfasının d2 hücresine

=TOPLA.ÇARPIM(('2009'!$B$2:$B$65536=TOPLANMIŞ!$A2)*('2009'!$D$2:$D$65536=TOPLANMIŞ!$C2)*('2009'!$E$2:$E$65536))

f2 hücresine

=TOPLA.ÇARPIM(('2009'!$B$2:$B$65536=TOPLANMIŞ!$A2)*('2009'!$D$2:$D$65536=TOPLANMIŞ!$C2)*('2009'!$H$2:$H$65536))

bu formülü yazıp aşağıya doğru çekiniz.

 

[ozki85]

tşkler biraz yaklaştı ama tam olarak istediğim şey olmadı yani tek bi olayda yapabilirmiyiz bilmiyorum mesela şöyle bişey var

mesela
a, b, c aynı d= adet e= toplam

şimdi burada yapmak istediğim
a, b, c aynı olan yazıları tek bi yerde birleştirip adet ve toplamını verecek ,

örnek:
A ürünü b firması c ürün tipi d 1000 adet e 1000$
A ürünü b firması c ürün tipi d 2000 adet e 1500$
A ürünü b firması c ürün tipi d 2100 adet e 1200$
A ürün1 b firması c ürün tipi d 1000 adet e 1000$
A ürün1 b firmat c ürün tipi d 1200 adet e 1200$
A ürün1 b firmat c ürün tip2 d 1400 adet e 1000$

şimdi burada adet ve fiyat hariç aynı olanları birleştirip adet ve toplamını çıkarmak istiyorum yani tek bir satırda çıkmasını istiyorum.

 

[İhsan Tank]

tşkler biraz yaklaştı ama tam olarak istediğim şey olmadı yani tek bi olayda yapabilirmiyiz bilmiyorum mesela şöyle bişey var

mesela
a, b, c aynı d= adet e= toplam

şimdi burada yapmak istediğim
a, b, c aynı olan yazıları tek bi yerde birleştirip adet ve toplamını verecek ,

örnek:
A ürünü b firması c ürün tipi d 1000 adet e 1000$
A ürünü b firması c ürün tipi d 2000 adet e 1500$
A ürünü b firması c ürün tipi d 2100 adet e 1200$
A ürün1 b firması c ürün tipi d 1000 adet e 1000$
A ürün1 b firmat c ürün tipi d 1200 adet e 1200$
A ürün1 b firmat c ürün tip2 d 1400 adet e 1000$

şimdi burada adet ve fiyat hariç aynı olanları birleştirip adet ve toplamını çıkarmak istiyorum yani tek bir satırda çıkmasını istiyorum.

örnek dosya üzerinde açıklama yapar mısınız. nasıl bir işlem istediğinizi

 

[halit3]

tşkler biraz yaklaştı ama tam olarak istediğim şey olmadı yani tek bi olayda yapabilirmiyiz bilmiyorum mesela şöyle bişey var

mesela
a, b, c aynı d= adet e= toplam

şimdi burada yapmak istediğim
a, b, c aynı olan yazıları tek bi yerde birleştirip adet ve toplamını verecek ,

örnek:
A ürünü b firması c ürün tipi d 1000 adet e 1000$
A ürünü b firması c ürün tipi d 2000 adet e 1500$
A ürünü b firması c ürün tipi d 2100 adet e 1200$
A ürün1 b firması c ürün tipi d 1000 adet e 1000$
A ürün1 b firmat c ürün tipi d 1200 adet e 1200$
A ürün1 b firmat c ürün tip2 d 1400 adet e 1000$

şimdi burada adet ve fiyat hariç aynı olanları birleştirip adet ve toplamını çıkarmak istiyorum yani tek bir satırda çıkmasını istiyorum.

kod aşağıdaki mesajda

 

[halit3]

kodu yeniden düzenledim

Sub aktar()
sat = 2
Worksheets("TOPLANMIŞ").Range("A2:f65000").ClearContents
For r = 2 To Worksheets("2009").Cells(Rows.Count, "A").End(3).Row
yer1 = Sheets("2009").Cells(r, 1).Value
yer2 = Sheets("2009").Cells(r, 2).Value
yer3 = Sheets("2009").Cells(r, 3).Value
yer4 = Sheets("2009").Cells(r, 4).Value
aranan1 = yer1 & yer2 & yer3 & yer4
Sheets("2009").Cells(r, 9).Value = aranan1
say5 = 0
say8 = 0
If Sheets("2009").Cells(r, 9).Value <> "" Then
If WorksheetFunction.CountIf(Worksheets("2009").Range("I2:I" & r), aranan1) = 1 Then
For i = r To Worksheets("2009").Cells(Rows.Count, "A").End(3).Row
deg1 = Sheets("2009").Cells(i, 1).Value
deg2 = Sheets("2009").Cells(i, 2).Value
deg3 = Sheets("2009").Cells(i, 3).Value
deg4 = Sheets("2009").Cells(i, 4).Value
aranan2 = deg1 & deg2 & deg3 & deg4
If aranan2 = aranan1 Then
say5 = say5 + CDbl(Sheets("2009").Cells(i, 5).Value)
say8 = say8 + CDbl(Sheets("2009").Cells(i, 8).Value)
End If
Next i
Sheets("TOPLANMIŞ").Cells(sat, 1).Value = Sheets("2009").Cells(r, 1).Value
Sheets("TOPLANMIŞ").Cells(sat, 2).Value = Sheets("2009").Cells(r, 2).Value
Sheets("TOPLANMIŞ").Cells(sat, 3).Value = Sheets("2009").Cells(r, 3).Value
Sheets("TOPLANMIŞ").Cells(sat, 4).Value = Sheets("2009").Cells(r, 4).Value
Sheets("TOPLANMIŞ").Cells(sat, 5).Value = say5
Sheets("TOPLANMIŞ").Cells(sat, 6).Value = say8
sat = sat + 1
End If
End If
Next r
For J = 2 To Worksheets("2009").Cells(Rows.Count, 9).End(3).Row
Sheets("2009").Cells(J, 9).Value = ""
Next J
End Sub

 

[ozki85]

tşkler güzel oldu fakat ben tam halini göndermedim yani içindekilerini hepsini göndermedim çünkü kalalının kendim yapayım öğreniyim diye : şimdi eklediğim dosyada hepsini gönderdim bunların hepsini adet ve toplamlarını çıkartmak istiyorum aslında istediğim bu kadardı ben pek bişey anlatamadım

 

[halit3]

ekli dosyanda sayfa isimleri farklı tam ne yapmak istiyorsan açıklayıcı bilgini yaz toplamlar hangi sayfaya yapılacak burada sayfa3 var bunamı yoksa önceki mesajında farklı bir sayfa vardı

 

[ozki85]

yapmak istediğim şey b lerin aynıları alacak sonra c dekilerinde aynılarını sonra d deklerinde aynılarını alacak ve qty'leri toplayacak ve toplam gbp yi toplayacak istediğim bu yani aynı olanlardan bir sürü var onları toplamam gerekiyor

 

[halit3]

mesajımı iyi anlıyamadınız herhalde hangi sayfayayı yapacakki hangi sayfaya toplayacak gönderdiğin dosyalardaki sayfalar farklı

bilgi olarak 2009,2010 sayfası var
sayfa3 boş

 

[ozki85]

aslında ben formulunu öğreniyim kendim yapayım istedim o yüzden ilk olarak örnek olabilecek şeyleri gönderdim 2009u ayrı 2010 u ayrı olarak yapacağım 2009.xls 2010.xls olacak şekilde ayıracaktım. Hazıra konmak istemedim formulu varsa öğrenip yapmak istiyorum sadece. tşkler yapılmış şekilde gönderirseniz yeni gelecek olanlarada aynılarını uygularım tşkler.

 

[İhsan Tank]

yapmak istediğim şey b lerin aynıları alacak sonra c dekilerinde aynılarını sonra d deklerinde aynılarını alacak ve qty'leri toplayacak ve toplam gbp yi toplayacak istediğim bu yani aynı olanlardan bir sürü var onları toplamam gerekiyor

merhaba
dosyanızda istediğinizi anladığım kadarı ile yapmaya çalıştım.
sayfa3'e bakınız üç Kriter birbiri ile aynı yada eşit ise toplam alıyor.
umarım doğru anlamışımdır.

 

[ozki85]

sormak istediğmi aslında formulu ogrenmekti. evet ikisinide yapmam gerekiyor işte ilerde yine olursa formulunu bilirim onlarıda sormadan ben kendim yaparım diye düşündüm o yüzden ilk mesajda örnek olan ufak bi yerini göndredim. Yani öğrenip kendim yapayım istedim. 2009.xls 2010.xls şeklinde olacak. Tşkler.

 

[halit3]

bakınız son göndermiş olduğunuz dosyada 2009,2010,sayfa3 sayfaları var buradan toplanmasını istediğiniz sayfa 2009 sayfası olsun bunu aktarırken hangi sayfaya toplayıp aktaracak ilk sayfada TOPLANMIŞ sayfası vardı oysa şimdi sayfa3 sayfası mevcut bu yüzden kod yazarken sayfa adını tanıtmamız gerekiyor.

 

[ozki85]

gönderdiğim mesajçıkmadı sandım tekrar gönderdim tekrar mesaj gönderdiğim için kusura bakamyın. gönderdiğinize baktım bu işimi görür sanırım 2009 b dekileri sayfa3 b ye tek tek kopyalamamız gerkeiyor peki aynılarını nasıl silecem yani burada aynılarından birden fazla var bunları nasıl 1 taneye düşürcem bunu de yaparsam tamamdır. tşkler çok iyi oldu.

 

[İhsan Tank]

gönderdiğim mesajçıkmadı sandım tekrar gönderdim tekrar mesaj gönderdiğim için kusura bakamyın. gönderdiğinize baktım bu işimi görür sanırım 2009 b dekileri sayfa3 b ye tek tek kopyalamamız gerkeiyor peki aynılarını nasıl silecem yani burada aynılarından birden fazla var bunları nasıl 1 taneye düşürcem bunu de yaparsam tamamdır. tşkler çok iyi oldu.

merhaba
sanırım benim gönderdiğim 12 nolu mesaj'dan bahsediyorsunuz. burada tam olarak ne yapmak istiyorsunuz anlatırsanız yardım etmeye çalışayım

 

[ozki85]

şimdi son gönderdiğim excel'de 2009 ve 2010 var, b bölümünde kodlar var, c deki de o etiketin ne olduğunu yani karton mu falan filan mı. aynı kodların karton sticker vs. olduğu için onlarıda dikkate almamız gerekiyor. Birde c var, bu da hangi firmaya yapıldığı. Şimdi burada yapmak istediğim b c ve d aynı olanları tek bir satırda birleştirip qty lerini ve toplam gbp lerini toplamak.

eğer ki c farklıysa onu da ayrı bir satırda toplayacak
eğer ki d farklıysa onu da ayrı bir satırda toplayacak
umarım anlatabilmişimdir.

 

[halit3]

ekli dosyayı kontrol ediniz.

 

[ozki85]

olmuş süper olmuş fakat şöyle bişey var en baştaki CUSTMER NAME olmayacak onu silerek yapabilirmisiniz? bu şekilde ürünler 2 3 kere çıkıyor farklı firmalar olduğu için bana o ürün ne kadar yapıldı kaç para yapıldı toplamı lazım firmaya göre istemiyorum yani. çok teşekkürler.

 

[halit3]

olmuş süper olmuş fakat şöyle bişey var en baştaki CUSTMER NAME olmayacak onu silerek yapabilirmisiniz? bu şekilde ürünler 2 3 kere çıkıyor farklı firmalar olduğu için bana o ürün ne kadar yapıldı kaç para yapıldı toplamı lazım firmaya göre istemiyorum yani. çok teşekkürler.

sorunuzun kime olduğu belli değil sorularınıza benden başka cevap veren arkadaşlarda var

birde hangi sayfada neyi istemiyorsunuz belli değil ve anlaşılmıyor CUSTMER NAME hesaplamalarda olmayacakmı yoksa hesaplıyacak sayfa3 de mi olmayacak