[ÇÖZÜLDÜ] Aynı olanları tara ve Toplamlarını Alıver

[ECYavuz]

Değerli arkadaşlar;

L000083 350 Gr Pvc Antep Usulü Kls Helva
H000120 350 GR ANTEP USULÜ TAHİN HELVASI IML KAPAĞI
H000838 12*350 GR PVC HELVA KOLİSİ
Y200083 350 Gr Antep Usulü Helva (PVC Kaplı)

Elimizde uzun listeler var;
A sütununda (KodLar) B Sütununda (Ürün-Malzeme Adı) E Sütununda da(Miktarlar)

A sütunun da yer alan kodlar L00..H00..Y00 diye başlıyor. ve L ile başlayanlar ürün H ve Y ile başlayanlarda hammadde veya yarı mamul...

Yapılacak işlem;
A sütununda L00... ile başlamayan (H ve Y ile başlayanlar) ayıklanıp
Listede H sütununa yazılacak ve aynı olanlar birleştirilecek; E sütununda yazılan değerlerinin toplamı da I sütununa yazılacak.

Dosya ek te bilgilerinize sunulmuştur.

Saygılarımla...

 

[ECYavuz]

Güncel, ilgilenebilen oldu mu aceba..??

Saygılar...

 

[Korhan Ayhan]

Selamlar,

H sütununa listeleme yapılırken sadece kod olarakmı listelenmesini istiyorsunuz.

 

[ECYavuz]

Selamlar,

H sütununa listeleme yapılırken sadece kod olarakmı listelenmesini istiyorsunuz.

Hayır üstadım bana lazım olan B sütününda yazılı olam maddeler, sıralama kriteri A sütünu (H ve Y ile başlayanlar) ama alınacak olan bilgiler B ile E sütununda yer alıyor

Saygılarımla..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim X As Long, BUL As Range, Satır As Long
    [H:I].ClearContents
    For X = 1 To [A65536].End(3).Row
    If Left(UCase(Cells(X, "A")), 1) <> "L" Then
    Set BUL = [H:H].Find(Cells(X, "B"))
    If Not BUL Is Nothing Then
    Cells(BUL.Row, "I") = Cells(BUL.Row, "I") + Cells(X, "E")
    Else
    Sat&#305;r = Sat&#305;r + 1
    Cells(Sat&#305;r, "H") = Cells(X, "B")
    Cells(Sat&#305;r, "I") = Cells(X, "E")
    End If
    End If
    Next
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[ECYavuz]

Korhan bey teşekkürler; Sanırım ben anlatamadım.
A sütunundaki iki kritere göre (H ve Y ile başlama kriteri) B sütunundaki tüm satırları benzerleri iki kere tekrar yazmadan; H sütununa alacağız.
Dolayısıyla E sütunundaki toplamlarda bunlara uygun olarak I sütununa aktarılacak. Yani benzersizler ve eşi olanların listesi ve toplamı alınacak.

Uğraşmışsınız elinize sağlık...

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[ECYavuz]

Korhan Hocam çok teşekkür ederim. Yeni fark ettim. sağolun...