Haftalık Ödeme planlarını hazırlama Macrosu

[HASAN SATILMIS]

Merhabalar;
Ekte gönderdiğim çalışma sayfada veri girişi olan sayfaya verilerimi giriyorum
Diğer sayfayada haftalık ödeme planları çıkarıyorum kopyala yapıştır yaparak şimdilik çözüm buluyorum
bunu macro ile otomatik sağlayabilirmiyiz

 

[HASAN SATILMIS]

Merhabalar Arkadaşlar bu benim için çok önemli, acaba zor birşeymi istedim.Onu düşünüyorumda? Yorumda yok, Olmaz diye ,bende her gün bir umutla işe geliyorum.
Saygılarımla

 

[Ömer]

Merhaba,

Kodları denermisiniz, bu şekilde bir yapı işinize yarar sanırım.

Sub Duzenle()
    
    Dim Sv As Worksheet, Sg As Worksheet, son As Long
    
    Set Sv = Sheets("VERİ GIRISI")
    Set Sg = Sheets("GELEN ÇEK VE SENETLER")
    
    son = Sv.Cells(Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = False
    
    Sv.Range("A2:I" & son).Sort Key1:=Sv.Range("D2"), Key2:=Sv.Range("F2"), Key3:=Sv.Range("H2")
    
    Sg.Cells.Clear
    
    Sv.Cells.Copy Sg.Range("A1")
    
    Sg.Range("A1:I" & son).Subtotal GroupBy:=9, Function:=xlSum, TotalList:=Array(5), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    
    Sg.Cells.EntireColumn.AutoFit
    
    Application.ScreenUpdating = True
    
End Sub

.

 

[HASAN SATILMIS]

Ömer bey.Sevinçden ne diyeceğimi bilemiyorum.Allah c.c İşlerinizin kapısını hiç kapatmasın, hep açık tutsun ,Çok Teşekkür ederim.

 

[Ömer]

Rica ederim, işinize yaradığına sevindim.

 

[zcpeksen]

makroyu nereye yapıştırıcağız