Takvimden tarih alırken formatı değiştirmek

[erdur]

merhaba

Dosyamda kullandığım bir UserForm da TextBox u tıkladığımda takvim açılıyor .
Takvimden bir tarih seçiyorum bu tarih TexTOx a atanıyor ve UserForm onaylandığında da sayfadaki bir kutuya yazılıyor..
Bu işlem için kullandığım kotlar aşağıda



Private Sub TextBox54_Enter()
Calendar1.Visible = True
End Sub

Private Sub Calendar1_DblClick()
TextBox54.Text = Format(Calendar1.Value, "dd/mm/yyyy")
Calendar1.Visible = False
End Sub


Private Sub CommandButton1_Click()
Sheets("tablo").Unprotect Password:=("ekin")
Sheets("tablo").Range("G12").Value = TextBox54.Text
Sheets("tablo").Protect Password:=("ekin")
Unload Me
End Sub


Ancak sayfadaki kutuya Tarih ( mm/dd/yyyy) biçiminde geliyor
kutunun tarih biçimide düzeltildi. buna rağmen problem sürüyor.

aynı UserFormdaki diğer iki takvimde bu problem yok.
onları kopyalayıp düzeltmeye çalıştım problem sürüyor.

Yardımlarınızı bekliyorum.

 

[hamitcan]

Küçük bir dosya ekleyin.

 

[erdur]

Örnek dosyayı aşağıda ekliyorum

Dosya açılınca " takip krıterleri " ne girince açılan user formda ilk tarih problemli

iki tarihide seçtiğinizde tamamı tıklayın ( yavaştır biraz beklemniz gerekecek , onada çare bulamadım ya ) ilk tarihi G12 hücresine atayacak G12 Hücresinin biçimi ( dd/mm/yyyy) olması gerekirken ( mm/dd/yyyy) oluyor problem budur...

Not : Dosyayı küçültebilmek için pek çok şeyi sildim onun için garip sonuçlar veriyor önemli değil.

 

[hamitcan]

Dosya açılmıyor bir sorun var.

 

[erdur]

Bende açılıyor
Ama önce" makroları etkinleştir" ekranı çıkıyor
etkinleştiriyorum açılıyor

kontrol edip tekrar yükledim buraya


ve çözüm için yardımlarınızı bekliyorum....

 

[erdur]

Arkadaşlar bu problem hakkında yardım edebilecek varmı..?

 

[hamitcan]

İlgili kodları aşağıdakiler ile değiştirin.

Private Sub CommandButton1_Click()
Sheets("tablo").Unprotect Password:=("ekin")
Sheets("tablo").Range("G12").Value = Calendar1.Value
Sheets("tablo").Range("B12").Value = Calendar2.Value
Sheets("tablo").Protect Password:=("ekin")
'Unload Me
End Sub
Private Sub TextBox54_Enter()
Calendar1.Visible = True
Calendar2.Visible = False
Calendar3.Visible = False
End Sub

Private Sub TextBox55_Enter()
Calendar2.Visible = True
Calendar1.Visible = False
Calendar3.Visible = False
End Sub

Private Sub TextBox56_Enter()
Calendar2.Visible = False
Calendar1.Visible = False
Calendar3.Visible = True
End Sub