tarih süzdürme

[red_lion1980]

arkadaşlar ben o kadar aradım ama bir türlü yapamadım bir sürü şey denedim ama olmuyo ekte ki dosyada kasa kısmında iki tarih arasını süzdürüp rapor kısmında göstermek ve user formda texboxla yazmak istiyorum şimdiden teşekkurler

 

[Orion1]

Merhaba.
Rapor userformundan filtere butonuna basıyorsunuz.
Önce textboxlara tarihleri girmeniz gerekiyor.
Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim kritertr1 As Date, kritertr2 As Date, hucretr As Date
Dim sat As Long, i As Long
Set ks = Sheets("kasa")
Set rp = Sheets("rapor")
kritertr1 = CDate(TextBox1.Value)
kritertr2 = CDate(TextBox2.Value)
sat = 4
rp.Range("A4:E65536").ClearContents
For i = 4 To ks.Cells(65536, "D").End(xlUp).Row
    hucretr = ks.Cells(i, "D").Value
    If hucretr >= kritertr1 And hucretr <= kritertr2 Then
        adr1 = Range(Cells(i, "A"), Cells(i, "E")).Address
        adr2 = Range(Cells(sat, "A"), Cells(sat, "E")).Address
        rp.Range(adr2).Value = ks.Range(adr1).Value
        sat = sat + 1
    End If
Next i
Set ks = Nothing
Set rp = Nothing
MsgBox "İŞLEM TAMAM"
End Sub

 

[AS3434]

..................

Yanlış mesaj.

 

[red_lion1980]

slm

çokk saol dostum sorunu sayende çözdüm teşekkür ederim

 

[Orion1]

çokk saol dostum sorunu sayende çözdüm teşekkür ederim

Rica ederim.
İyi çalışmalar.

 

[red_lion1980]

peki

peki bi şey daha soracam aynı formda ikinci listboxta da veri süzmek istiyorum ekteki dosyanın gelir kısmını da buraya yazmam lazım ama aynı butonu kullanarak

 

[Orion1]

peki bi şey daha soracam aynı formda ikinci listboxta da veri süzmek istiyorum ekteki dosyanın gelir kısmını da buraya yazmam lazım ama aynı butonu kullanarak

ekli dosyanız hazır.

 

[red_lion1980]

slm

çok saol teşekkkür ederim sabahtan beri ugraşıyordum sorunum çözüldü

 

[Orion1]

çok saol teşekkkür ederim sabahtan beri ugraşıyordum sorunum çözüldü

Rica ederim.
İyi çalışmalar.