sütun toplam birleştirme

[oguzhansmsn]

Merhaba Arkadaşlar,
Ekte göndermiş olduğum tablo sizin için çok basit ama benim için çok zor,
sizlerden ricam mümkünse bir göz atmanız.
Sütundaki aynı metni ve rakamları ayırmak,ve sütünda kaç adet varsa ve karşığındaki sütundaki toplam rakamı kadar ayrıca toplamak.:dusun:
Teşekkürler...

 

[Ömer]

Merhaba,

Kodları module kopyalarak çalıştırınız..

Sub Deneme()
Application.ScreenUpdating = False
Range("G1:G65536").ClearContents
Range("J1") = "Kodu"
Range("G1") = "Toplam Adet"
Dim x As Long
On Error Resume Next
For x = 2 To [A65536].End(3).Row
Cells(x, "j") = Split(Cells(x, "A"), " ")(0)
Cells(x, "k") = Cells(x, "b")
Next x
i = [J65536].End(3).Row
    Range("J1:J" & i).AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("F1"), Unique:=True
For y = 2 To [F65536].End(3).Row
Cells(y, "g") = WorksheetFunction.SumIf(Range("J:J"), Cells(y, "f"), Range("K:K"))
Next y
Range("J1:K65536").ClearContents
Range("F:G").Borders.LineStyle = 0
Range("F1:G" & y - 1).Borders.LineStyle = 1
Range("F1:F" & y - 1).HorizontalAlignment = xlLeft
Application.ScreenUpdating = True
End Sub

.

 

[oguzhansmsn]

Ömer Bey, teşekkür ediyorum ilginize.
Formülu görünce "yav be" dedim.
Bu arada kendi kendime ilk sorum modül ne demek oldu,tabii size danışmadan önce forumda aratma yapınca Korhan Ayhan Beyin modüle nerden girileceği ve resimli anlatımını buldum ve uyguladım,ancak son aşamada yani formülü yapıştırdıktan sonra kaydet veya uygula gibi birşey göremedim burda tıkandım kaldım.

 

[uzmanamele]

merhaba

sayfa üzerine bir adet, kopça, çiçek resmi, böcek resmi vs gibi bir nesne ekleyin ve sağ tuş menüden makro atayın. tıklandığında çalışacaktır.
veya araçlar / makro / makrolar / çalıştır.

 

[oguzhansmsn]

Başarı ile uygulanmıştır,
Ömer ve Süleyman Beye çok teşekkür ediyorum.
ancak ufak bir hata olmuş galiba şöyle açıklayayım onu da;

stok kodumuz / satış adeti

1111117 BEYAZ D 75 / 1
1111117 SIYAH B 75 / 3
1111117 TEN B 100 / 1
1111117Y BEYAZ B 80 / 4
1111117Y BEYAZ B 85 / 1
1111117Y BEYAZ B 95 / 2
1111117Y BEYAZ B 70 / 3

şuan makrodan sonra 1111117 / 15 adet oluyor.
ayrı bir ürün olan 1111117Y / 10 adet oluyor.

olması gereken 11117 / 5 adet
11117Y /10 adet.

yani ayrımı bunlarda yapamıyor ama gerisi sağlıklı yani stok kodunun içinde harf yer alıyorsa biraz karışıyor iş.
Umarım anlatabilmişimdir.

 

[Ömer]

#2 nolu mesajdaki kodları istediğiniz gibi revize ettim, yeni kodları kullanarak deneyiniz..

.

 

[oguzhansmsn]

#2 nolu mesajdaki kodları istediğiniz gibi revize ettim, yeni kodları kullanarak deneyiniz..
.

Şimdi kusursuz oldu Ömer Bey,
Tekrar teşekkür ederim.