Textbox tarih format sorunu

[kemal turan]

Merhaba sayfa üzerindeki textbox a tarih girdiğimde hücreye tarih olarak aktarması için aşağıdaki kodu kullandım. tarih olarak atmış görünmesine rağmen gelişmiş filtre yapmıyor. Cdate olarak denedim yine olmadı

Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then 
TextBox1= Format (Textbox1, "dd.mm.yyyy")
Range ("E3").value = Format (Textbox1.Value,  "dd.mm.yyyy")
End If
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Range("E3").Value = CDate(TextBox1)

 

[kemal turan]

Merhaba Korhan bey
Çok teşekkür ederim.
Hakkınızı helal ediniz.
Selametle Kalın

 

[Orion1]

Korhan bey cevabı vermiş.
Küçük bir eklenti.

Range("E3").Value = CDate(TextBox1)
[B][COLOR="Red"]Range("E3").NumberFormat = "dd.mm.yyyy"[/COLOR][/B]

 

[kemal turan]

Sn.Orhon merhaba
İlgi ve alternatif cevabınız için teşekkür ederim.

 

[Orion1]

Sn.Orhon merhaba
İlgi ve alternatif cevabınız için teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[katip16487]

Konuyu canlandırmış olacağım ancak aynı sorunu yaşıyorum ve bir türlü çözemedim.

Sorunum Sayfa1'in H2 hücresinin formatı TARİH formatı.
Bu hücre değerini TextBox5'e TARİH formatında alıyorum.
Ancak, yaptığım değişiklikleri aynı hücreye tarih formatında aktaramıyorum.

Tabiri caiz ise bu konuda tam bir bilmez haldeyim.

Form'umda o kadar çok kod var ve o kadar çok textbox var ki hangisinde hangi kod ne işe yarıyor, yapacağım her değişiklikle sıfırlanmak zorunda kalıyorum. Ancak, tarih formatı olan hücreyi ilk defa ekliyorum.

Sıfırdan, hiç bir bilmeyen biri olan bana H2 hücresini TARİH olarak TextBox5'e alıp, sonra yapılan değişikliği anlık olarak H2'ye aktarabilecek bir kod var mıdır? Anlatabilir misiniz?

Saygılarımla...

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Private Sub TextBox1_Change()
[H2].Value = Me.TextBox1
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Me.TextBox1 = [H2].Value
End Sub

 

[YUSUF44]

Bu şekilde kendinize uyarlayınız.

Private Sub TextBox1_Change()
[H2].Value = Me.TextBox1
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Me.TextBox1 = [H2].Value
End Sub

Sayın Seyit Tiken, böyle yapınca sayfadan textboxa, textboxtan sayfaya, tekrar textboxa, yine sayfaya şeklinde sonsuz döngü olmaz mı?

 

[Seyit Tiken]

Yusuf bey, denedim döngüye yol açmadı.

 

[katip16487]

İlginize teşekkür ederim, ancak ne yazık ki olmadı.

 

[katip16487]

Bir üst mesajdaki "olmadı" kelimesini "muhtemelen ben beceremedim" olarak düzeltiyorum.

İlginize teşekkür ederim.

 

[Seyit Tiken]

Eğer kodları direkt kopyalayıp yapıştırmışsanız TextBox1 yerine tarif ettiğiniz TextBox5 olarak değiştirip deneyiniz veya dosya yükleyiniz.

 

[katip16487]

İlk denediğimde hata vermişti, ancak şu anda yaptığımda sıkıntı olmadı. İlginize tekrar teşekkkür ederim.

Saygılarımla...