tarihe göre uyarı

[ThEeNCi]

Selam arkadaşlar
bitiş tarihine göre userform da uyarı verdirmek mümkünmü şimdiden teşekkürler

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, tar1 As Date, tar2 As Date, sonsat As Long
Set sh = Sheets("Suz")
Sheets("Data").Select
tar1 = TextBox1.Value
tar2 = tar1 + 6
ListBox1.RowSource = ""
sh.Range("A2:D" & Rows.Count).ClearContents
Range("A1").AutoFilter
sonsat = Cells(Rows.Count, "D").End(xlUp).Row
Range("A1").AutoFilter field:=4, Criteria1:=">=" & CLng(tar1), _
        Operator:=xlAnd, Criteria2:="<=" & CLng(tar2)
Range("A1").CurrentRegion.Copy sh.Range("A1")
Range("A1").AutoFilter
sonsat = sh.Cells(Rows.Count, "D").End(xlUp).Row
If sonsat > 1 Then ListBox1.RowSource = "Suz!A2:D" & sonsat
End Sub

 

[ThEeNCi]

Çok teşekkür ederim kolay gelsin

 

[ThEeNCi]

istediğim gibi olmuş fakat çok zahmet olmazsa iki tarih arasındakiler diyebilirmiyiz

 

[Orion1]

istediğim gibi olmuş fakat çok zahmet olmazsa iki tarih arasındakiler diyebilirmiyiz

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, tar1 As Date, tar2 As Date, sonsat As Long
Set sh = Sheets("Suz")
Sheets("Data").Select
tar1 = TextBox1.Value
tar2 = TextBox2.Value
ListBox1.RowSource = ""
sh.Range("A2:D" & Rows.Count).ClearContents
Range("A1").AutoFilter
sonsat = Cells(Rows.Count, "D").End(xlUp).Row
Range("A1").AutoFilter field:=4, Criteria1:=">=" & CLng(tar1), _
        Operator:=xlAnd, Criteria2:="<=" & CLng(tar2)
Range("A1").CurrentRegion.Copy sh.Range("A1")
Range("A1").AutoFilter
sonsat = sh.Cells(Rows.Count, "D").End(xlUp).Row
If sonsat > 1 Then ListBox1.RowSource = "Suz!A2:D" & sonsat
End Sub

 

[ThEeNCi]

Çok teşekkür ediyorum ellerinize sağlık

 

[Orion1]

Çok teşekkür ediyorum ellerinize sağlık

Rica ederim.
İyi çalışmalar.