Şartlı toplam alma ve alınan toplamları farklı sütüna yazdırma

[lfkaya]

Arkadaşlar elimde bulunan aşağıdaki gibi excel dosyasını aşağıdaki gibi (Oluşacak Dosya) yapmak istiyorum
Orjinal Dosya

Dekont No	Cari Hesap Ünvan	Makbuz Cinsi	Açıklama	Tutar
3771	A MÜŞTERİSİ	İHRACATÇI BİRLİKLERİ MAKBUZU		200,5
3771	A MÜŞTERİSİ	TARIM İL MÜD.MAKBUZU		142
3771	A MÜŞTERİSİ	TARIM İL MÜD.MAKBUZU		142
3772	B MÜŞTERİSİ	GARANTİ HVL DEKONTU		764
3772	B MÜŞTERİSİ	MIP AŞ. LİMAN FATURASI		13.651,12

Yukarıdaki tabloda bulunan (A Sutunu) Dekont no her değiştiğinde tutar kısmındaki değerler toplanarak (F Sutununa) borç toplamı şeklinde yazdırmak istiyorum yalnız toplamları her dekont numarasının üstüne satır ilave ederek aldırmak istiyorum

Oluşacak Dosya

Dekont No	Cari Hesap Ünvan	Makbuz Cinsi	Açıklama	Tutar	Borç Toplamı
3771	A MÜŞTERİSİ				484,5
3771	A MÜŞTERİSİ	İHRACATÇI BİRLİKLERİ MAKBUZU		200,5
3771	A MÜŞTERİSİ	TARIM İL MÜD.MAKBUZU		142
3771	A MÜŞTERİSİ	TARIM İL MÜD.MAKBUZU		142
3772	B MÜŞTERİSİ				14.415,12​
3772	B MÜŞTERİSİ	GARANTİ HVL DEKONTU		764
3772	B MÜŞTERİSİ	MIP AŞ. LİMAN FATURASI		13.651,12

 

[ÖmerFaruk]

Bu şekilde okunamıyor.
Ya resim olarak ekleyin

ya da harici dosya yükleme sitelerine dosyanızı yükleyip linkini buradan paylaşabilirsiniz.

 

[lfkaya]

Resmi link olmadan dosya olarka nasıl ekleyebilirim

 

[Mahir64]

Dosyanızı https://dosyam.org yükleyip link paylaşım

 

[lfkaya]

Bilgi

Bilgi

dosyam.org

Bilgi

Bilgi

dosyam.org

 

[ÖmerFaruk]

Veri menüsü altındaki Alt Toplam işinizi görmüyor mu? Formatı biraz farklı olur ama sizin için oldukça kullanışlı olacaktır.

 

[lfkaya]

Malesef o dediğiniz işimi görmüyor toplamları üste ve ayrı bir sutuna istiyorum

 

[ÖmerFaruk]

Verdiğiniz resimlerde orjinal dosyada olmayıp oluşacak resim dosyasında gösterilmiş veriler var.
Karışıklığa mahal vermemek için istediğiniz çözümü de manuel olarak düzgün şekilde hazırlayarak excel dosyası şeklinde harici dosya yükleme sitelerine yükler misiniz?

 

[lfkaya]

Linkler ektedir

Dosya 1

Dosya 2

 

[ÖmerFaruk]

Ben dosyalarınız excel olarak açamıyorum. Kontrol edermisin

 

[lfkaya]

Orjinal

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Olusacak

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

Toplamı Tutar Kısmının Başında - işareti katarak yapabilirsek daha iyi olur daha önce toplamları ayrı bir sutuna istediğimi belirtmiştim

 

[ÖmerFaruk]

Orjinal dosyanızda KOD ekledim.
Oluşacak adlı yeni sayfanızı aktif edince listenizi oluşturuyor.


https://dosya.co/93jj7gvp5wbc/Orjinal.xls.html

Private Sub Worksheet_Activate()
son = Range("A" & Rows.Count).End(xlUp).Row
If son < 3 Then son = 3
Rows("3:" & son).Delete
i = 3
For k = 3 To Sayfa1.Range("A" & Rows.Count).End(xlUp).Row
    If Sayfa1.Range("A" & k) <> Sayfa1.Range("A" & k - 1) Then
    Sayfa1.Range("A" & k, "B" & k).Copy
    Range("A" & i, "B" & i).PasteSpecial (xlPasteValues)
    say = WorksheetFunction.CountIf(Sayfa1.Range("A1:A10"), Range("A" & i))
    Sayfa1.Range("A" & k, "E" & k + say - 1).Copy
    Range("A" & i + 1, "E" & i + say).PasteSpecial (xlPasteValues)
    Range("F" & i) = WorksheetFunction.Sum(Range("E" & i + 1, "E" & i + say))
    Range("A" & i, "F" & i).Interior.Color = vbRed
    Range("A" & i, "F" & i).Font.Color = vbWhite
    Range("A" & i, "F" & i).Font.Bold = True
    k = k + say - 1
    i = i + say + 1
    End If
Next k
Application.CutCopyMode = False
Range("A1").Activate
Range("E:F").NumberFormat = "#,##0.00"
End Sub

 

[lfkaya]

Teşekkürler