Kasa Raporu Hazırlamak

[neo]

:hey: İyi Geceler

bir kasa programı yapmaya çalışıyorum Departman bazında Her Departmanın Gider çeşiti var bunları kasaya işliyorum bunları rapor sayfasında girdiğim tarihe göre Hem departman hemde deparmanın gider çeşitine göre raporlamak istiyorum ...
Konuyu dosyada detaylarıyla anlatmaya çalıştım

Saygı ve Sevgilerimle,

 

[cyberwolf1980]

neo, dostum asagıdakı kodu rapor ısımlı dugmeye ata ve ıslemı baslat ok ?

hadı kolay gelsın

Sub RAPOR()
Sheets("Kasa").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Kasa!R8C2:R223C13").CreatePivotTable TableDestination:="", TableName:= _
"Ã?zet Tablo 1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Ã?zet Tablo 1").PivotFields("Merkezi")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Ã?zet Tablo 1").PivotFields("Çeşidi")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("Ã?zet Tablo 1").AddDataField ActiveSheet.PivotTables( _
"Ã?zet Tablo 1").PivotFields("Bakiye"), "Say Bakiye", xlCount
ActiveSheet.PivotTables("Ã?zet Tablo 1").PivotFields("Say Bakiye").Function = _
xlSum
With ActiveSheet.PivotTables("Ã?zet Tablo 1").PivotFields("Merkezi")
.PivotItems("(boş)").Visible = False
End With
ActiveSheet.PivotTables("Ã?zet Tablo 1").PivotSelect "Merkezi[All;Total]", _
xlDataAndLabel, True
End Sub

 

[neo]

cyberwolf1980 kardeşim samimiyetin için teşekurederim
kodlarda sorun var çalışmadı yada çalıştıramadım yardımcı olursanız sevinirim
saygı ve sevgilerimle

 

[neo]

:agla:


yardımlarınızı bekliyorum dostlar :dua: :dua: :kafa: :kafa:

 

[Levent Menteşoğlu]

Sn neo

İstediğiniz dosyanızdan anlaşılsada verilecek çözüm tam istidiğinizi karşılamayabilir. Bu sebeple doldurulmuş bir tablo eklerseniz tam sonuç veren bir kod yazılabilir.

 

[cyberwolf1980]

neo, ozet tablo 1 yazan yere ozet tablo 2 , 3 yada 4 yaz bunlardan bırısı hatayı ortadan kaldırır
not : senın elınde aynı ısımde bı tablon oldugu ıcın hata vermıs dostum ok

kolay gelsın

 

[neo]

:kafa: Saygı Vegilerle


Sn:yberwolf1980 Dediğinizi yaptım ama gene aynı hatayla karşılaştım ..

Sn Leventm Problemimi Bir Görnekle anlatmay çalıştım size yeni dosyamı yolluyorum yardımcı olursanız Çok makbule geçecek

Sevgi Ve Saygılarımla ...... :dua: :dua: :dua:

 

[neo]

:kafa: :kafa: :kafa:


yardım istiyorum üstatlarım :dua: :dua:

 

[cyberwolf1980]

neo, ok bı bakalım yanlız bana bıraz zaman ver ok

 

[cyberwolf1980]

rapor

neo dostum bı kontrol et bakalım ısını goruyormu ok

Not : kasa sayfasındakı rapor tusuna bas !!!

 

[neo]

:hey:


Sn cyberwolf1980 Yapmak İstediğim Formata uymuyor Bunu sunacağım kişilerin anlaması biraz zor gibi yardımın için çok teşekkurederim