Soru Muavin Kaydı Karşılıklı Çalışan Hesapları Görme

alapgut

Altın Üye
Katılım
16 Ekim 2023
Mesajlar
2
Excel Vers. ve Dili
office 365
Altın Üyelik Bitiş Tarihi
17-10-2024
Merhabalar,

Bir firmanın hesaplarını denetlemem gerekiyor.

Bunun için de elimde muhasebe programından çekilen muhasebe fiş kayıtları var. Yaklaşık olarak bir dosyada 17.000 satır kayıt var.(bu sadece 3 aylık kayıt)
Tüm yıl için bakıldığında yaklaşık olarak 50.000 satırlık bir dosya oluşuyor)

Bu muhasebe fiş dökümünde borç ve alacak tutarları ayrı satırlarda gösterilmiş.

Amacım borç ve alacak tutarlarını tek satırda görmek ve aynı zamanda karşılıklı olarak çalışan hesapları da birlikte görmek.

Ayrıca yevmiye fiş numaralarının bazıları harf ve rakam kombinasyonundan oluşmakta.

Excelde formül yoluyla bunu kısmen yaptım. Ama tam olarak istediğim gibi olmadı.


Ek'te düzenlenmiş formüllü olarak yaptığım dosya ile örnek olarak eklediğim ham dosya mevcut.

Bu dosyamı daha sağlıklı şekilde nasıl yapabilirim?

Şimdiden çok teşekkür ederim.
 

Ekli dosyalar

bosislermuduru

Altın Üye
Katılım
2 Temmuz 2018
Mesajlar
52
Excel Vers. ve Dili
2003 ,2007,2013,2019@PowerQuery
Altın Üyelik Bitiş Tarihi
14-05-2029
merhaba PowerQuery Kullanarak işlemleri Yapabilirsiniz, mail yada drive den paylaşırsanız yardımcı olabilirim
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,591
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ekteki gibi PİVOT kullanmak işinize yararsa inceleyiniz.

DATA sayfasına aynı formatta güncel veri yapıştırdıktan sonra PİVOT üzerinde sağ tıklayıp YENİLE (ya da ALT+F5) dediğinizde sonuçlar güncellenecektir.
 

Ekli dosyalar

alapgut

Altın Üye
Katılım
16 Ekim 2023
Mesajlar
2
Excel Vers. ve Dili
office 365
Altın Üyelik Bitiş Tarihi
17-10-2024
Ekteki gibi PİVOT kullanmak işinize yararsa inceleyiniz.

DATA sayfasına aynı formatta güncel veri yapıştırdıktan sonra PİVOT üzerinde sağ tıklayıp YENİLE (ya da ALT+F5) dediğinizde sonuçlar güncellenecektir.
Merhaba,

İlginiz için teşekkür ederim, ancak "Bu pivot table alanı bir hücrenin içerebileceği toplam karakter sayısını aştığından kullanılamıyor" şeklinde bir uyarı ile karşılaşıyorum.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,591
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Hesap kodlarını birleştirirken sanırım hücrenin veri sınırı aşılıyor. O sebeple uyarıyı alıyorsunuz..
 

bosislermuduru

Altın Üye
Katılım
2 Temmuz 2018
Mesajlar
52
Excel Vers. ve Dili
2003 ,2007,2013,2019@PowerQuery
Altın Üyelik Bitiş Tarihi
14-05-2029
Merhaba PowerQuery Kullanabilirsiniz diye Düşünüyorum
Ancak hesap kodlarını yan yana görmek yorucu ve bir o kadar da anlamsız olabilir bunun yerine İç İçe Gruplama Yöntemi ve List Kullanabilirsiniz,

Ancak en iyi çalışma için örneklem yapılması yararlı olacaktır.
 

bosislermuduru

Altın Üye
Katılım
2 Temmuz 2018
Mesajlar
52
Excel Vers. ve Dili
2003 ,2007,2013,2019@PowerQuery
Altın Üyelik Bitiş Tarihi
14-05-2029
PowerqKodu

let
Kaynak = Excel.Workbook(File.Contents("DosyaADresi.xls"), null, true),
#"Fiş Listesi 01.07-30.09_Sheet" = Kaynak{[Item="Fiş Listesi 01.07-30.09",Kind="Sheet"]}[Data],
#"Kaldırılan Üst Satırlar" = Table.Skip(#"Fiş Listesi 01.07-30.09_Sheet",1),
#"Tanıtılan Üst Bilgiler" = Table.PromoteHeaders(#"Kaldırılan Üst Satırlar", [PromoteAllScalars=true]),
#"Değiştirilen Tür" = Table.TransformColumnTypes(#"Tanıtılan Üst Bilgiler",{{"Fiş Türü", type text}, {"Fiş No.", type text}, {"Fiş Tarihi", type date}, {"Madde No.", Int64.Type}, {"İşyeri No.", Int64.Type}, {"Bölüm No.", Int64.Type}, {"Hesap Kodu", type text}, {"Hesap Adı", type text}, {"Açıklama", type text}, {"Borç", Currency.Type}, {"Alacak", Currency.Type}, {"Döviz", type text}, {"İ. Dövizi Tutarı", type number}, {"R. Döv. Tutarı", type number}, {"Miktar", Int64.Type}, {"Özel Kodu", type any}, {"Column17", type text}}),
#"Hesao Kodu İşleme Alındı" = Table.AddColumn(#"Değiştirilen Tür", "İşlem", each [Hesap Kodu]& Text.From(if [Hesap Adı]<>null then [Hesap Adı] else "" )&" _"& Text.From(if [Borç]>0 then "B: " &Text.From([Borç]) else "A: "&Text.From([Alacak]) )),
#"Gruplanan Satırlar" = Table.Group(#"Hesao Kodu İşleme Alındı", {"Fiş Tarihi", "Fiş Türü", "Fiş No.", "Madde No.", "İşyeri No.", "Bölüm No.", "Açıklama"}, {{"db", each _, type table}}),
#"Özel Eklendi" = Table.AddColumn(#"Gruplanan Satırlar", "İşlem", each [db][İşlem]),
#"Ayıklanan Değerler" = Table.TransformColumns(#"Özel Eklendi", {"İşlem", each Text.Combine(List.Transform(_, Text.From), "#(cr)#(lf)"), type text}),
#"Kaldırılan Sütunlar" = Table.RemoveColumns(#"Ayıklanan Değerler",{"db"})
in
#"Kaldırılan Sütunlar"


_B Borç _A Alacak Demek

Fiş Tarihi

Fiş Türü

Fiş No.

Madde No.

İşyeri No.

Bölüm No.

Açıklama

İşlem

1.07.2023​

Tahsil

00000481

0​

0​

0​

NAKİT TAHSİLAT

100.10.002KASA _B: 7106,41

181.10.001KASA _A: 7106,41

 
Üst