Texbox tarih sorunu hk.

[elevisse]

Arkadaşlar merhaba,
Textbox a girdiğim tarih dd/mm/yyyy formatında fakat bazı bilgisayarlarda tarih formatı mm/dd/yyyy veya yyyy/mm/dd formatında. Aşağıdaki makroya göre E sutunundaki dd/mm/yyyy formatında tarihlerim var.Bu formata göre makro tarihleri süzmekte fakat tarih ayarları farklı olan bilgisayarlarda textboxa girdiğim tarihe göre süzme yapmamaktadır. Farklı formatlara göre makro nasıl çalışabilir. Konuyla ilgili yardımlarınızı rica ederim. http://www.oaltd.co.uk/ExcelProgRef/Ch22/ProgRefCh22.htm

Private Sub CommandButton1_Click()
    
    Application.ScreenUpdating = False
  
    Application.EnableEvents = False
    Dim Son, Devir
       
       
    Range("A3:O" & Rows.Count).AutoFilter Field:=5
    Son = Cells(Rows.Count, 2).End(3).Row
    
    TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
    
    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
           
           Unload tarih
            
       [L4] = CDate(TextBox1.Value) - 1
       
       Application.CutCopyMode = False
       Application.Run "formulerun"
       
Selection.AutoFilter
                
        Else
            MsgBox "Please enter starting date!", vbCritical
        End If
    Else
        MsgBox "Please enter starting date!", vbCritical
    End If
 
 
   Application.EnableEvents = True
 
 Range("H:H,J:J").Select
    Range("J1").Activate
    Selection.NumberFormat = "#,##0.00"
    Range("A1").Select
 
    Application.ScreenUpdating = True
        
End Sub



Private Sub TextBox1_Change()

End Sub

Private Sub UserForm_initialize()
  TextBox1.Value = Format(Date, "dd/mm/yyyy")
    
End Sub

Sub selectdate ()
startingdate.Show
End Sub

 

[Emsdmr]

Columns("E:E").Select
Selection.NumberFormat = "dd/mm/yyyy;@"

TextBox1.Value = Format(Date, "dd/mm/yyyy")


ilgili kodu ilgili satırın üzerine yazarak bir deneyin