Aylık bilançodan rapor

[Erdinç FIRTINA]

Değerli forum üyeleri!

Aylık olarak hazırlanmış bilançodaki verilerin raporunu ilgili sayfalara almak istiyorum.

Veriler ilgili sayfalara alınırken aynı zamanda verinin ait olduğu tarihi de almak istiyorum. Böyle bir uygulama makro ile de olabilir mi?


Dosyamı açıklamaları ile birlikte ekte sunuyorum. Yardımlarınız için şimdiden teşekkürler!!!

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Sub aktar()
Dim sno As Long, sat2 As Long, sat As Long, sonsat As Long
Dim i As Integer, k As Long
Application.ScreenUpdating = False
Sheets("GELİRLER").Range("A3:E65536").ClearContents
sno = 1: sat2 = 3
For i = 1 To Worksheets.Count
    If Sheets(i).Name >= 1 And Sheets(i).Name <= 31 Then
        sat = Sheets(i).Cells(65536, "C").End(xlUp).Row
        If sat >= 4 Then
        For k = 4 To sat
            adr1 = Range(Cells(k, "B"), Cells(k, "D")).Address
            adr2 = Range(Cells(sat2, "B"), Cells(sat2, "D")).Address
            Cells(sat2, "A").Value = sno
            Sheets("GELİRLER").Range(adr2).Value = Sheets(i).Range(adr1).Value
            Sheets("GELİRLER").Cells(sat2, "E").Value = Sheets(i).Range("A1").Value
            sat2 = sat2 + 1
            sno = sno + 1
        Next k
        End If
    End If
Next i
sonsat = Sheets("GELİRLER").Cells(65536, "C").End(xlUp).Row
Sheets("GELİRLER").Cells(sonsat + 1, "C").Value = "TOPLAM..YTL..:"
Sheets("GELİRLER").Cells(sonsat + 1, "D").Value = _
WorksheetFunction.Sum(Sheets("GELİRLER").Range("D3:D" & sonsat))
Application.ScreenUpdating = True
MsgBox "İŞLEM TAMAMLANDI..!!"
End Sub

 

[Erdinç FIRTINA]

Sayın Orion2,
Çok çok teşekkür ederim. Gerçekten mükemmelsiniz.
Acaba gelirleri aldığım gibi diğer başlıklar altındaki verileri ilgili sayfalarına alabilmem mümkün değil mi?

giderler
maaş vb. sayfalar

ayrıca da çok merak ettiğim bir şey var başlık satırındaki GELİRLER ismini 1 rakamına çevirme nedeni nedir?

Aslında makroyu açıklayabilme durumunuz olabilseydi çok iyi olurdu.

Her şey için çok ama çok teşekkürler!!!

İyiki varsınız.

 

[Orion1]

Sayın Orion2,
Çok çok teşekkür ederim. Gerçekten mükemmelsiniz.
Acaba gelirleri aldığım gibi diğer başlıklar altındaki verileri ilgili sayfalarına alabilmem mümkün değil mi?

giderler
maaş vb. sayfalar

ayrıca da çok merak ettiğim bir şey var başlık satırındaki GELİRLER ismini 1 rakamına çevirme nedeni nedir?

Aslında makroyu açıklayabilme durumunuz olabilseydi çok iyi olurdu.

Her şey için çok ama çok teşekkürler!!!

İyiki varsınız.

Giderleride rapor olarak başka bir sayfada alabilirsiniz.
GELİRLER sayfasındaki Başlık satırına istediğiniz bir başlığı yazabilirsiniz.
Ben onu farketmeden değiştirmişim.Hiç öneml değil.Siz değiştirebilirsiniz.

 

[Erdinç FIRTINA]

Sayın Orion2,
Kusura bakmayın ama "Giderleride rapor olarak başka bir sayfada alabilirsiniz." cümlesini gerçekten anlayamadım. Bu duruma böyle direkt cevap veriyorum ama ben Trakyalıyım. Düz ara gidiyorum. Burada kastettiğiniz aynı dosyayı farklı bir isimle kaydederek yapmak mı? Eğer böyleyse denedim ama olmuyor. her şeye rağmen tüm yardımlarınız için çok teşekkürler. Ama bu excel konusunda benim gibi yaşı geçmiş bir eğitimciye yardım ederseniz gerçekten çok mutlu olacağım. Her şey için şimdiden teşekkürler!!!!

 

[Erdinç FIRTINA]

Sayın Orion2,

Tabiki kod değişikliği yapmam veya yeni kod yazmam gerekiyordur. Zaten sıkıntım da orada ya. Eğer gönderdiğiniz makrodaki kodların açıklamasını yazabilirseniz belki oradan çıkarımda bulunarak yeni duruma göre kod üretebilirim. Aksi takdirde bunu başarabilmem mümkün değil. çünkü o kadar bilgiye sahip değilim. Ama her şeye rağmen benim gibi excel konusunda bilgi sahibi olmayan insanlara yaptığınız yardımların değerini bilenlerdenim. Sizlere saygımız sonsuz.


Her şey için çok teşekkür ederim!!!