Cari Hesap Ekstresi Hazırlama tarihler hk.

[elevisse]

Arkadaşlar Merhaba,
Ekte 2011 yılından itibaren 2012 yılına kadar faturalarım ve ödemelerim vardır. Başlangıç tarihi ve Bitiş tarihi Texbox a yazıldıktan sonra başlangıç tarihinden önceki fatura ve ödemeler toplansın. İcmali alınan fatura ve ödemeler listeden silinsin ve tek bir satırda icmal yazsın. Bitiş tarihinden sonrakiler de listeden silinsin. Sadece belirtilen tarih arasındaki fatura ve ödemeler listede kalsın.Icmal H4 satırında yazılmaktadır ve H sutununun sonunda toplam alınsın. Ekteki dosyamda sadece başlangıç tarihi belirtilen veriler için Korhan Hocamın yardımcı olduğu dosya bulunmaktadır. Userform hazırdır. Yardımlarınızı rica ederim. Hepinize iyi çalışmalar.

http://www.excel.web.tr/f48/cari-hesap-ekstresi-hazyrlama-t117885.html

 

[elevisse]

Arkadaşlar Merhaba,
Çözümü aşağıdaki kodla çözmüş bulunmaktayım. İlgilenen arkadaşlara çok teşekkür ederim. İyi çalışmalar.

İlk Kodlar

 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
            
           'Buraya düzeltme yapıldı. Aşağıdaki kod istediğim işlemi gerçekleştirmektedir.


            
            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
           
           Unload tarih

Yeni Kod

Range("A3:O" & Rows.Count).AutoFilter Field:=5, Criteria1:=">" & CLng(CDate(TextBox2)), Operator:=xlOr, Criteria2:="<" & CLng(CDate(TextBox1))

 

[nane]

Arkadaşlar Merhaba,
Çözümü aşağıdaki kodla çözmüş bulunmaktayım. İlgilenen arkadaşlara çok teşekkür ederim. İyi çalışmalar.

İlk Kodlar

 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
            
           'Buraya düzeltme yapıldı. Aşağıdaki kod istediğim işlemi gerçekleştirmektedir.


            
            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
           
           Unload tarih

Yeni Kod

Range("A3:O" & Rows.Count).AutoFilter Field:=5, Criteria1:=">" & CLng(CDate(TextBox2)), Operator:=xlOr, Criteria2:="<" & CLng(CDate(TextBox1))

Merhabalar elevisse,
Verdiğiniz çözümden yararlanamadım. Sayfa1 de verilerim var Sayfa2 de ise tarihe cinsine göre ekstre alıyorum. Fakat burada birde tarihler arası sınırlama yapmak istiyorum. Formül ile userform yok.
Naki yekün kısmını hallediyorum.

yardımlarınızı bekliyorum.
teşekkürler
Yb®

 

[ZuCChiNi]

Örnek dosya olsa daha iyi anlaşılabilirdi.