Kapalı dosyadan veri getirme

[assenucler]

Değerli dostlar ve üstadlarım,


Ekli "Apartman" klasör içerisinde 2 excel dosyam var. Bunlardan "Veriler" içinde apartmanda oturanlardan çeşitli adlar altında tahsil edilen paralara ilişkin döküm listesi bulunmaktadır ve bu dosya kapalıdır.

Açık olan "Aİdat Denetim" adlı dosyamda, "Aidat, Yakıt, Demirbaş, AlacakTahsili, GTazminatı, Diğer Gelirler ve TOPLAM" sayfaları bulunmaktadır. Bu dosyalardaki tüm sayfaların sütun başlıkları ve satırlardaki daire no ve oturanların adı birbirinin aynısıdır.

Yapmak istediğim; kapalı dosyadaki verileri, "Aidat Denetimi" ilgili sayfalarına aktarmak ve daha sonra da TOPLAM sayfasında diğer sayfalardaki bilgilerin tutar toplamını ilgili aylar'a yazdırmaktır.

Değerli yardımlarınızı rica ediyorum.

 

[assenucler]

İnşallah değerli dost ve üstadlarım sorunuma ilaç olabilirler...

 

[asi_kral]

Merhaba
Toplam sayfasında ne olacağını anlamadım biraz daha detaylı bilgi verebilir misin_?

 

[assenucler]

Sayın asi kral 1967,


Değerli üstadım dışarıdaydım biraz önce geldim. İlginiz için teşekkür ederim.

“ Aidat Denetimi” dosyamda:
Sayfa2 (Aidat)
Sayfa3 (Yakıt)
Sayfa4 (Demirbaş)
Sayfa5 (AlacakTahsili)
Sayfa6 ‘GecikmeTazminatı)
Sayfa8 (TOPLAM)

6 adet sayfa bulunmaktadır.

Dairede oturanların yıl içindeki aylarda çeşitli adlarla ödedikleri tutarlar, “veriler” dosyasından “Aidat Denetimi” dosyasında yukarıdaki sayfaların ilgili ay sütunlarına kaydedilmeli;

daha sonra da örneğin A01 Doğrul adlı kişinin Ocak ayı içerisinde yaptığı (Aidat: 75 TL, Yakıt: 200 TL. Demirbaş: 40 TL., Alacaklı Tahsili: 10 TL. ve Gecikme Tazminatı: 5 TL ) ödemelerin toplamı olan 330 TL’yı , Sayfa8 (Toplam) sayfasının Ocak ayı (1) sütunu ilgili C7 hücresinde görmek istiyorum.

Sonuç olarak; apartman oturan kişilerin, ay içinde çeşitli adlarla yaptıkları ve "Aidat Denetimi" dosyasında her aidatın ilgili olduğu sayfalara kaydedilmiş olan ödemelerin, toplam tutarını Sayfa8 (Toplam) sayfasındaki ilgili ay sütunlarında, kişi bazında görebilmeyi arzu ediyorum.

 

[asi_kral]

Merhaba
Aidat_Denetimi kitabında boş bir module oluşturun ve bu kodu kopyalayın.
Ben toplam sayfasına buton oluşturdum bu kod için.

Option Explicit
Sub veri_çek_topla()
Dim YL As String, GZ As Excel.Application
Dim KTP As Workbook, S1 As Worksheet, STR2 As Long
Dim S2 As Worksheet, SYF As Long, STR As Long, TM As Date
Dim STN As Long, DT As Long, KT As String, DT1 As Long
Set GZ = CreateObject("Excel.Application")
GZ.Visible = False
Application.ScreenUpdating = False
TM = Time
KT = ActiveWorkbook.Name
YL = ThisWorkbook.Path & "\"
Set KTP = GZ.Workbooks.Open(YL & "Veriler.xls")
Set S2 = KTP.Sheets("Tahsilat")
STR2 = S2.Range("A" & Rows.Count).End(xlUp).Row
For SYF = 1 To Workbooks(KT).Sheets.Count - 1
Set S1 = Workbooks(KT).Sheets(SYF)
S1.Range("C6:N67").ClearContents
For STR = 6 To 67
For STN = 3 To 14
S2.Range("A3:J" & STR2).AutoFilter field:=9, Criteria1:=S1.Name
S2.Range("A3:J" & STR2).AutoFilter field:=5, Criteria1:=S1.Cells(STR, "B")
S2.Range("A3:J" & STR2).AutoFilter field:=1, Criteria1:=">=" _
& CLng(DateSerial(Year(Date), STN - 2, 1)), Operator:=xlAnd, _
Criteria2:="<=" & CLng(DateSerial(Year(Date), STN - 1, 0))
S2.Range("O1") = "=Subtotal(3,A4:A" & STR2 & ")"
DT = S2.Range("O1")
S2.Range("O1") = Empty
If DT > 0 Then
S2.Range("O2") = "=Subtotal(9,G4:G" & STR2 & ")"
DT1 = S2.Range("O2")
S2.Range("O2") = Empty
Else
DT1 = Empty
End If
S2.Range("A3:J" & STR2).AutoFilter
S1.Cells(STR, STN) = DT1
Next
Next
Next
KTP.Close 0: GZ.Quit
Sheets(SYF).Range("C6:N67") = "=SUM(Aidat:DiğerGelirler!C6)"
Sheets(SYF).Range("C6:N67") = Sheets(SYF).Range("C6:N67").Value
Application.ScreenUpdating = True
MsgBox Format(TM - Time, "hh:mm:ss")
End Sub

Dosya Ekte.

 

[assenucler]

Teşekkürler ve bazı sorunlar hakkında bilgi

Üstadım, öncelikle ayırdığınız zaman ve verdiğiniz emek için içten teşekkürler.
Sağ olun var olun.Size ne kadar teşekkür etsem az...

Bu arada yaptığım testlerde, aşağıdaki durumları tespit ettim.


1- “Veriler” dosyası G1 hücresinde 01.01.2012 – 30.09.2012 tarihleri arasında yapılan tahsilat toplamı 82.583,10 TL. iken, "Aidat Denetimi" dosyası “TOPLAM” sayfasındaki tahsilat toplamı ise 356.232,00 TL. (farklı) dır.


2- “Veriler” dosyası "Tahsilat" sayfasındaki veriler Ocak-Eylül arasında 9 aylık iken, “Aidat Denetimi “dosyasındaki tüm sayfalarda 12 ay tahsilat yapılmış gibi kayıt oluşmaktadır.


3- Apartmanda oturan kişilerden bazıları ödemelerini geç ya da eksik; bazıları ise fazla ödeme yapmaktadırlar. Oysa, “Aidat Denetim” dosyasında Ocak ayında yapılan tahsilat tutarı, yılın diğer tüm aylarında da aynen tahsil edilmiş gibi kayıt edilmektedir.


4- Deneme amaçlı olarak; “Veriler” dosyası “Tahsilat” sayfası 8. Satırda A01 Doğrul adlı kişinin 75 TL. olan aidatını, 1.075 TL. olarak değiştirdim ve bu dosya kapalıyken, “Aidat Denetimi” dosyası “TOPLAM” sayfasındaki “Çek” düğmesine tıklayıp, sonucu görmek istedim.

A01 daireden yapılan 1.000 TL. tahsilat artışını, diğer dairelere bazılarında farklı ama tüm aylara da ekledikten sonra Toplam tahsilatı 630.612,00 TL. olarak gösterdi.

Dosyayı ve bilgi amacıyla ekran görüntü resimlerini ilişikte yolluyorum.

Sevgi ve saygılar.

 

[assenucler]

Acaba, bu konuda bir gelişme olabilir mi?

 

[assenucler]

Değerli üstadlarım;

Merhabalar. İyi haftalar ve hayırlı işler.

Yukarıda değindiğim konunun çözümünün mümkün olup olmadığına ilişkin görüşlerinizi öğrenebilir miyim?

Sevgi ve saygılar.

 

[asi_kral]

Merhaba
İlk mesajınızı iş yoğunluğundan, İkinci mesajınızı ise Ctesi ve Pazar günleri siteye girmediğim için göremedim. Siz benim yazdığım ilk kodu almışsınız. Kodu güncellemiştim daha sonra onu farketmemişsiniz.

Aradaki Farkların oluşma sebebi
Veriler dosyasında 2011 Demirbaş - BLF geliri - Faiz Geliri - Su Boşaltma verileri mevcut bunların sayfası olmadığı için bu veriler sonucu Sıfır çıkıyor. Ayrıca Aidar Geliri dosyasında Diğer Gelirler verisinle uyuşan herhangi bir bilgi görünmüyor.

Diğer sorun ise
Veriler dosyasında GTazminat yazdığınız Aidat Geliri Dosyasında GTazminatı olarak göründüğünden sonuç bulunamıyor.

Yeni bir dosya ekliyorum.
Diğer bilgileri verirseniz onu da düzenlemeye çalışayım.

 

[assenucler]

Üstadım,


İyi günler ve haftalar. Bol kazançlar...

İlgi ve alakanız ile yardımlarınız için en içten teşekkürlerimi sunarım.

Dosyayı indirip deneyeceğim, gerektiğinde size döneceğim.

Sevgi ve saygılar.

 

[asi_kral]

Üstadım,


İyi günler ve haftalar. Bol kazançlar...

İlgi ve alakanız ile yardımlarınız için en içten teşekkürlerimi sunarım.

Dosyayı indirip deneyeceğim, gerektiğinde size döneceğim.

Sevgi ve saygılar.

Kolay Gelsin.

 

[assenucler]

Teşekkürler ve son bir rica

Sayın asi kral 1967,


Üstadım en son eklediğiniz dosya süper çalışıyor ve sonuçlarda hiç bir eksik ve hata bulunmuyor.

Ancak, sizden konuyla ilgili bir ricada bulunacağım...

"Aidat Denetimi" dosyasındaki tüm sayfaların:

C68:N68 satırında her bir ayın sonunda "Genel Toplam"
ve O6:O67 sütun aralığında da "Genel Toplam"

toplamları kod ile hesaplandığı takdirde, bence tadından yenilmeyecek..

Verdiğiniz büyük emek ve katkı için teşekkürler.

Sevgi ve saygılar.

 

[asi_kral]

Sayın asi kral 1967,


Üstadım en son eklediğiniz dosya süper çalışıyor ve sonuçlarda hiç bir eksik ve hata bulunmuyor.

Ancak, sizden konuyla ilgili bir ricada bulunacağım...

"Aidat Denetimi" dosyasındaki tüm sayfaların:

C68:N68 satırında her bir ayın sonunda "Genel Toplam"
ve O6:O67 sütun aralığında da "Genel Toplam"

toplamları kod ile hesaplandığı takdirde, bence tadından yenilmeyecek..

Verdiğiniz büyük emek ve katkı için teşekkürler.

Sevgi ve saygılar.

Dosyanız Ekte.

 

[assenucler]

Teşekkürler ve iyi bayramlar

Sayın asi kral 1967,


Değerli zamanınızı ayırarak ve hiç bir karşılık beklemeden bizlere yardımcı oluyorsunuz. Yardımınız için en içten teşekkürler ve Allah sizden razı olsun. Hakkınızı helal edin.

Kurban bayramınızı bugünden kutlar. Sevdiklerinizle birlikte sağlık, huzur, mutluluk ve bol kazanç dolu nice bayramlar geçirmenizi dilerim.

Sevgi ve saygılarımla.

 

[asi_kral]

Sayın asi kral 1967,


Değerli zamanınızı ayırarak ve hiç bir karşılık beklemeden bizlere yardımcı oluyorsunuz. Yardımınız için en içten teşekkürler ve Allah sizden razı olsun. Hakkınızı helal edin.

Kurban bayramınızı bugünden kutlar. Sevdiklerinizle birlikte sağlık, huzur, mutluluk ve bol kazanç dolu nice bayramlar geçirmenizi dilerim.

Sevgi ve saygılarımla.

Kolay Gelsin.

 

[assenucler]

Değerli dostlar ve üstadlarım,

Ekli " Daireleri_Borçlandırma" klasörü içerisinde 2 excel dosyam var.
Bunlardan "Veriler" dosyası “Tahsilat” sayfasında oturanların yönetime çeşitli adlar altında ödedikleri paralar ile her ayın başında borçlandırıldığı tutarları içeren bir liste bulunmaktadır ve bu dosya kapalıdır.

Açık olan "Aidat Denetim" adlı dosyamda:

"Sayfa1(Aidat),
Sayfa2(Yakıt),
Sayfa3(Demirbaş),
Sayfa4(AlacakTahsil),
Sayfa5(Gtazminat),
Sayfa6(DiğerGelirler) ve
Sayfa7(TOPLAM)"

sayfaları bulunmaktadır. Tüm sayfaların sütun başlıkları ve satırlardaki daire no ve oturanların adı birbirinin aynısıdır.

İstenilen: Kapalı “Veriler“”dosyadaki Tahsilat sayfası ““(F) Borcu” sütunundaki borç tahakkuk tutarlarını“, öncelikle "“Aidat Denetimi“" dosyası 1 ila 6. sayfaları (P667) aralığına aktarmak ve daha sonra da “bunları Sayfa7(TOPLAM) (P667)’da toplayarak birleştirmektir.“

Sayın asi kral 1967 'ın yardımını bekliyorum.

Sevgi ve saygılar.

 

[asi_kral]

Merhaba
Özel mesaj atmışsınız. Konuyu güncelleseydiniz bu yeterli olurdu. Öncelikle hedefim özel mesajlar değil sorulardır. Bilginize.
Diğer konu ise aynı işlemi istemişsiniz sanırım. Kodu uyarlıyabilirsiniz_?
Aynı kodu baştan bize yazdırmayın boşuna biraz uğraşın yapamazsanız konuyu güncelleyin müsait bir zamanda ilgilenmeye çalışayım.

 

[assenucler]

Sayın asi kral 1967,


Günaydın ve hayırlı işler.

Üstadım amacım sizi özel ileti yollayarak rahatsız etmek değil, yazış şeklimin yanlış anlaşıldığını düşünüyorum, kusura bakmayınız.

Büyük katkı verdiğiniz ilk çalışmam, oturanlardan yapılan tahsilatın aylar itibariyle listelenmesini sağlıyordu.

Bunu bir adım daha geliştirmeyi düşündüm.

Oturanların her ay ödemeleri gereken aidat türlerini "Veriler" dosyasının "Borcu" sütununa yazarak,
bu tutarların "Aidat_Denetimi" sayfaları "(P667) aralığına aktarılması sonrasında,
kişilerin herhangi bir ay itibariyle
yönetime gerçek borçlarını ya da yönetimden alacaklı oldukları tutarı
görebilmeyi düşünmüştüm.

67 yaşında bir kişi olarak, size göre çocuk oyuncağı olan kodlardaki mantığı çözererek inşallah bir sonuca ulaşırım.

İlginiz ve yanıtınız için tekrar teşekkür ederim.

Sevgi ve saygılar.

 

[assenucler]

Sayın asi kral 1967 üstadım,

Kodlara şöyle bir baktım. Kafam çok karıştı...
Yaşlılıktan olacak, nereye nasıl bir kod ekleyeceğimi bilmiyorum. Eğer, siz eklenecek kodu yazabilirseniz çok mutlu olacağım.

Her şey gönlünüzce olsun.

 

[Merhum İdris SERDAR]

.

Sayın assenucler,

Merhaba.

Neden Pivot Table - Özet Tabloda israr etmediniz?

Bence bu kodlardan daha elverişli.

Dosyanız ekte.

.