Aynı Fatura No Olanları Tümüyle Birleştirme

[stier_22]

Merhaba arkadaşlar ,

ELimde yaklaşık 40.000 satırlık bir fatura listesi var fakat bu liste hazırlanırken 1 fatura 1 den fazlaya bölünmüş, maliyet çalışması yapmam için her bir faturayı içeriği ile beraber birleştirmem gerekiyor. Yani listedeki tekrar eden her faturayı bana tek kalemde vermesini istiyorum fatura tarihi , numarası,firma unvanı , vergi numarası, mal cinsi toplam mal adeti, toplam matrah, toplam KDV'yi bana tek kalemde verdirmemi sağlayacak bir formül var mıdır? Yardımcı olacak arkadaşlara şimdiden çok teşekkür ediyorum. örnek dosyam ektedir...

 

[Ömer BARAN]

Merhaba.
Öncelikle profil bilgilerinizde yazdığınız Ms.Excel versiyon bilgisiyle, eklediğiniz belgenin versiyon durumunun aynı olmadığını hatırlatmak isterim.
Profil bilgilerinizi güncellemenizi öneriyorum.
Ekteki belgeyi inceleyiniz.

 

[Ömer BARAN]

Tekrar merhaba.

Bu da makro ile çözüm önerisi olsun. Sonuçlar Sayfa2 isimli sayfaya aktarılır, Sayfa2'ye sütun başlıklarını kendiniz yazarsınız artık.

Sub AKTAR()
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
s1son = s1.Cells(Rows.Count, 1).End(3).Row
If s2.Cells(Rows.Count, 1).End(3).Row > 1 Then s2.Range("A2:J" & Rows.Count).ClearContents
For sat = 2 To s1son
    fatson = sat - 1 + WorksheetFunction.CountIf(s1.[B:B], s1.Cells(sat, 2))
    s2sat = s2.Cells(Rows.Count, 1).End(3).Row + 1
    s2.Cells(s2sat, 1) = s1.Cells(sat, 1): s2.Cells(s2sat, 2) = s1.Cells(sat, 4)
    s2.Cells(s2sat, 3) = s1.Cells(sat, 6): s2.Cells(s2sat, 4) = s1.Cells(sat, 7)
    s2.Cells(s2sat, 5) = s1.Cells(sat, 12): s2.Cells(s2sat, 6) = s1.Cells(sat, 13)
        For t = sat To fatson
            urun = urun & ", " & s1.Cells(t, "T")
        Next
        urun = Mid(urun, 3, Len(urun) - 2)
    s2.Cells(s2sat, 7) = urun
        urun = ""
    s2.Cells(s2sat, 8) = WorksheetFunction.Sum(s1.Range("W" & sat & ":W" & fatson))
    s2.Cells(s2sat, 9) = WorksheetFunction.Sum(s1.Range("X" & sat & ":X" & fatson))
    s2.Cells(s2sat, 10) = WorksheetFunction.Sum(s1.Range("Y" & sat & ":Y" & fatson))
    sat = fatson
Next
End Sub

 

[stier_22]

Tekrar merhaba.

Bu da makro ile çözüm önerisi olsun. Sonuçlar Sayfa2 isimli sayfaya aktarılır, Sayfa2'ye sütun başlıklarını kendiniz yazarsınız artık.

Sub AKTAR()
Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
s1son = Cells(Rows.Count, 1).End(3).Row
If s2.Cells(Rows.Count, 1).End(3).Row > 1 Then s2.Range("A2:J" & Rows.Count).ClearContents
For sat = 2 To s1son
    fatson = sat - 1 + WorksheetFunction.CountIf(s1.[B:B], s1.Cells(sat, 2))
    s2sat = s2.Cells(Rows.Count, 1).End(3).Row + 1
    s2.Cells(s2sat, 1) = s1.Cells(sat, 1): s2.Cells(s2sat, 2) = s1.Cells(sat, 4)
    s2.Cells(s2sat, 3) = s1.Cells(sat, 6): s2.Cells(s2sat, 4) = s1.Cells(sat, 7)
    s2.Cells(s2sat, 5) = s1.Cells(sat, 12): s2.Cells(s2sat, 6) = s1.Cells(sat, 13)
        For t = sat To fatson
            urun = urun & ", " & s1.Cells(t, "T")
        Next
        urun = Mid(urun, 3, Len(urun) - 2)
    s2.Cells(s2sat, 7) = urun
        urun = ""
    s2.Cells(s2sat, 8) = WorksheetFunction.Sum(s1.Range("W" & sat & ":W" & fatson))
    s2.Cells(s2sat, 9) = WorksheetFunction.Sum(s1.Range("X" & sat & ":X" & fatson))
    s2.Cells(s2sat, 10) = WorksheetFunction.Sum(s1.Range("Y" & sat & ":Y" & fatson))
    sat = fatson
Next
End Sub

çok teşekkürler üstad zaman ayırdığınız için ilk verdiğiniz formülü uygularken makine baya kitledi kednini excel çalıştırmayı durdurdu. Şimdi verdiğiniz makroyu deniyorum inşallah olur size haber veririm

 

[stier_22]

maalesef olmadı şu şekilde geldiler sayfa 2 ye

 

[Ömer BARAN]

Formül ve makro uygulanmış belge ekte.
Sayfa2'deki düğmeleri kullanabilirsiniz.

 

[stier_22]

üstat, sizin yaptığınız makro sayfa 1 de yer alan formülle entegreli sanırım ben sayfa 1de dediğiniz gibi yaptığımda tamamı #YOK olarak geliyor dolayısı ile makro çalışmıyor nerede hata yapıyorum acaba yok'ların içinde formül görünüyor ama bu şekilde geliyor

 

[Ömer BARAN]

Formüller ve makro tamamen birbirinden bağımsız.
Formüllerin çalışması için formül sütunlarının ilk satırına veri tablosundaki başlıkları (sadece gerekli olanlar elbette) aynen kopyala yapıştır ile yapıştırmanız gerekir.
Gerçek belgenizdeki tablonun sütun yapısı, veri başlangıç satırı vs aynı ise hem formülle çözüm hem de makro sounsuz çalışır.
Sorun yaşarsanız gerçek belgenizin küçük boyutlu bir kopyasını yükleyin bakayım.

 

[stier_22]

üstat sadece bana lazım olan başlıklarla beraber verilerin bir parçasını size gönderiyorum zahmetleriniz için çok teşekkürler

 

[Ömer BARAN]

Yüklediğiniz ilk belge ile son belge biririnden farklı yapıda.
Tavsiyem; üzerinde işlem yapılacak ham belgenin bir örneği üzerinden hareket etmeniz yönünde olacak.
Verdiğim formül ve makro çözümü içeren eklediğim son belge, eklediğiniz ilk örnek belgeye göre sorunsuz çözümü sağlıyor.

Örnek belge değiştiğinde çözümün de değişmesi gerekecektir, bu elbette normal.

 

[stier_22]

merhaba ben ilk size gönderdiğim liste üzerinden yaptım bütün işlemleri olmadı , en son siz listeden bir kısım talep edince yeni bir excele kopyalama yaptım bana lazım olacak satırları çünkü ilk listede bana lazım olmayan yerler var olan yerleri sarı ile renklendirmiştim ve son gönderdiğim liste de bu renklendirilmiş olan hali ile. ama isterseniz ilk listenin de örneğini atabilirim ama dediğim gibi orda bana lazım olmayacak parametrelerde olduğu için sadeleştirip gönderdim size

 

[stier_22]

ilk yolladığım dosyanın ham halinden 150 satırlık bir örnek

 

[Ömer BARAN]

Son eklediğiniz belge (ki bu belge ilk eklediğiniz belgenin ilk 150 satırı zaten), açıkken;
alt taraftan Sayfa2'nin adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan VBA ekranında sağdaki boş alana
daha önceki KOD cevabımdaki kod blokunu yapıştırıp, kod'u çalıştırırsanız iki satırlık (çünkü 2 adet fatura var) özet sonuç Sayfa2 A:J sütun aralığında oluşturulacaktır.
Olmayan nedir anlamadım doğrusu.

 

[stier_22]

şimdi tekrar denedim dünde aynı yöntemi yapmıştım olmadı şimdi tekrar denedim oldu fakat mükerrer kayıtlar devam etmekte.Sütun başlıklarını kopyaladım sayfa 2 ye makroyu çalıştırdım sütun başlıkları ile farklılık oluştu çok sorun değil copy paste ile halledilir fakat örnekleme fatura no aradığımda aynı faturadan aşağıda tekrar tekrar çıktı. ve mal cinslerinin bir çoğu boş geldi. Acaba neden olmuş olabilir