Cari Hesap Ekstresi Hazırlama

[elevisse]

Arkadaşlar Merhaba,
Ekte 2010 yılından itibaren 2012 yılına kadar faturalarım ve ödemelerim vardır. Belirlenen tarihten (user form a göre) önceki fatura ve ödemeler toplansın ve tek bir satırda bunu yazsın icmal olarak ve bu tarihten sonrakilerle birlikte listede kalsın. İcmali alınan fatura ve ödemeler listeden silinsin. Icmalin H4 satırında yazılmasını istiyorum ve H sutununun sonunda toplam alsın. Yardımlarınızı rica ederim. Hepinize iyi çalışmalar.

 

[elevisse]

Arkadaşlar merhaba,
Yardımlarınızı rica ederim. Hepinize iyi çalışmalar.
Selamlar.

 

[Korhan Ayhan]

Merhaba,

Formunuza bir buton ekleyin ve aşağıdaki kodu butona uygulayın.

Private Sub CommandButton1_Click()
    Dim Son, Devir
    
    Application.ScreenUpdating = False
    
    Range("A3:O" & Rows.Count).AutoFilter Field:=5
    Son = Cells(Rows.Count, 2).End(3).Row
    
    If TextBox1 <> "" Then
        If IsDate(TextBox1) Then
            Devir = WorksheetFunction.SumIf(Range("E5:E" & Son), "<" & CLng(CDate(TextBox1)), Range("H5:H" & Son))
            Range("H4") = Range("H4") + Devir
            
            Range("A3:O" & Rows.Count).AutoFilter Field:=5, Criteria1:="<" & CLng(CDate(TextBox1))
            
            If Cells(Rows.Count, 2).End(3).Row > 3 Then
                Range("A5:O" & Rows.Count).EntireRow.Delete
                Range("A3:O" & Rows.Count).AutoFilter Field:=5
                Cells(Rows.Count, 8).End(3).Offset(2, 0) = WorksheetFunction.Sum(Range("H4:H" & Cells(Rows.Count, 2).End(3).Row))
            End If
            
            Range("A3:O" & Rows.Count).AutoFilter Field:=5
            MsgBox "İşleminiz tamamlanmıştır.", vbInformation
        Else
            MsgBox "Lütfen tarih giriniz!", vbCritical
        End If
    Else
        MsgBox "Lütfen tarih giriniz!", vbCritical
    End If
 
    Application.ScreenUpdating = True
End Sub

 

[elevisse]

Korhan Hocam değerli yardımlarınız için çok teşekkür ederim.
Makroyu userform ve textbox ile çalıştırdım. Sizden ricam E sütunundaki satırlarda değer varsa buna göre J sütunundaki satırlara aşağıdaki formülü makroda nasıl ekleyebilirim? Teşekkürler.


Range("J5").Select
ActiveCell.FormulaR1C1 = "=+RC[-2]+R[-1]C" ( J5 satırına H5+J4 şeklinde giden)
Range("J5").Select
Selection.AutoFill Destination:=Range("J5:J163")
Range("J5:J163").Select
Range("A1").Select

 

[elevisse]

Arkadaşlar Merhaba,
Önceki mesajımda yazdığım açıklama sanırım yeterli olmadı. Ekteki dosyada J5 satırında formülüm var (=+H5+J4 şeklinde artarak) bu formül E sütünundaki tüm dolu hücrelere makro ile uygulansın istiyorum. Yardımlarınızı rica ederim. Teşekkürler. İyi çalışmalar.