Tarih Süzdürme

[yerbakili]

Merhaba,

Elimde bir kod var. Bu kod, bulunan alandaki tarihlerden yarının tarihini süzüyor. Ben bu kodu userform'a bir adet textbox ekleyip tarihi buraya girdirip commandbutton ile de sayfa1' in a2 hücresinden itibaren aşağıya doğru kaydediyorum. Daha sonra başka bir commandbutton ile yarının tarihini süzdürmek istiyorum. Ancak şöyle bir durum oluşuyor. Userform aracılığıyla hücrelere yazdırdığım tarihleri elimdeki bu kod süzmüyor. Ama başka bir hücreye el ile giriş yaptığımda elimdeki bu kod o tarihlerden yarının tarihini süzebiliyor. Daha açıklayıcı olmak adına mesajıma yaptığım çalışmayı ekliyorum.

A2 den aşağıya doğru dizilen tarihler userform aracılığıyla sayfaya kaydolan tarihler, c2 den aşağıya doğru dizilen tarihler de benim sayfaya el ile giriş yaptığım tarihler. Her iki butona da bastığınızda ne anlatmak istediğim daha anlaşılır olacak sanırım.

Ben bu tarih süzgecini userform ile giriş yaptığım hücreler için de nasıl kullanabilirim?

Yardımcı olursanız sevinirim.

 

[Husgvarna]

Merhaba,

Elimde bir kod var. Bu kod, bulunan alandaki tarihlerden yarının tarihini süzüyor. Ben bu kodu userform'a bir adet textbox ekleyip tarihi buraya girdirip commandbutton ile de sayfa1' in a2 hücresinden itibaren aşağıya doğru kaydediyorum. Daha sonra başka bir commandbutton ile yarının tarihini süzdürmek istiyorum. Ancak şöyle bir durum oluşuyor. Userform aracılığıyla hücrelere yazdırdığım tarihleri elimdeki bu kod süzmüyor. Ama başka bir hücreye el ile giriş yaptığımda elimdeki bu kod o tarihlerden yarının tarihini süzebiliyor. Daha açıklayıcı olmak adına mesajıma yaptığım çalışmayı ekliyorum.
A2 den aşağıya doğru dizilen tarihler userform aracılığıyla sayfaya kaydolan tarihler, c2 den aşağıya doğru dizilen tarihler de benim sayfaya el ile giriş yaptığım tarihler. Her iki butona da bastığınızda ne anlatmak istediğim daha anlaşılır olacak sanırım.
Ben bu tarih süzgecini userform ile giriş yaptığım hücreler için de nasıl kullanabilirim?
Yardımcı olursanız sevinirim.

Formla sayfaya kaydı tarih olarak yapmamışsınız.
Kaydı şöyle yapabilirsiniz:

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
If TextBox1.Text <> Empty Then
Else
    MsgBox "Eksik bilgi girilmiş", vbExclamation, "koyuncunihat@gmail.com"
        Exit Sub
End If
b = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A:A"))
Sheets("Sayfa1").Range("a" & b + 1).Select
ActiveCell = [COLOR="Red"]CDate(TextBox1.Value)[/COLOR]
TextBox1 = ""
MsgBox "Kayıt yapıldı!"
End Sub

Bu şekilde kaydederseniz süzecektir.


Ek dosyanızdaki şekliyle kayıt yapıp, süzmek isterseniz (Yukarıdaki kodları uygulamayıp),
2.butona:

Private Sub CommandButton2_Click()
Dim Sayfa1 As Worksheet, Sayfa2 As Worksheet
Dim a As Long
Set Sayfa1 = Sheets("Sayfa1"): Set Sayfa2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
Sheets("sayfa1").Select
a = Sayfa1.Range("f" & Rows.Count).End(xlUp).Row
Sayfa1.Range("a1:a" & a).AutoFilter field:=1, Criteria1:=">=" & [COLOR="#ff0000"]Date + 1[/COLOR], _
Operator:=xlAnd, Criteria2:="<=" & [COLOR="#ff0000"]Date + 1[/COLOR]
If WorksheetFunction.Subtotal(3, Sayfa1.Range("a1:a" & a)) > 0 Then
Sayfa1.Range("a1:a" & a).Copy Destination:=Sayfa2.Range("A1")
End If

Application.ScreenUpdating = True
End Sub

Şeklinde olabilir.

 

[yerbakili]

Yardımınız için çok teşekkür ederim. CDate ile sorunumu çözdüm Allah razı olsun.