Tarihlerin farklı bilgisayarlarda farklı formatta görünmesi

[ferhatgurbuz]

kolay gelsin arkadaşlar. Benim bilgisayarımda gün/ay/yıl şeklinde gözüken veriler başka bir bilgisayarda ay/gün/yıl şeklinde gözükmektedir. Nedeni ve çözümü hakkında bilgisi olan arkadaşların yardımlarını bekliyorum. Kolay gelsin iyi çalışmalar

 

[Vedat Özer]

Selamlar,

Başlat/Ayarlar/Denetim Masası/Bölgesel Dil Ayarlarından olması lazım ayarların.

 

[ferhatgurbuz]

şöyle bir durum var. Belgeyi açtığı zaman tarihler normal gözüküyor. Sadece aşağıdaki kodu çalıştırıp süzdüğümüz zaman ekrana gelen veriler ay gün yıl şeklinde oluyor. Tarih ayarları yanlış olsa belge üzerindede yanlış olurmu.


Private Sub CommandButton1_Click()
Sheets("Bitis_Tarihi").Range("B2:F100").ClearContents
Dim s1 As Worksheet, s2 As Worksheet, sat As Long, sat2 As Long
Dim hcr As Range
If ComboBox1.Value = "" Then Exit Sub
Set s1 = Sheets("DATA")
Set s2 = Sheets("Bitis_Tarihi")
sat = s1.Cells(65536, "B").End(xlUp).Row
sat2 = s2.Cells(65536, "B").End(xlUp).Row + 1

For Each hcr In s1.Range("F2:F" & sat)
If hcr.Value = CDate(ComboBox1.Value) Then
s2.Range("B" & sat2) = sat2 - 1
s2.Range("B" & sat2 & ":F" & sat2).Value = s1.Range("B" & hcr.Row & ":F" & hcr.Row).Value
sat2 = sat2 + 1
End If
Next
Rows("2:100").Select
Selection.Sort Key1:=Range("D2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A1").Select

End Sub

 

[ferhatgurbuz]

Bu konuda fikri olan yokmu.