Textbox ve Bugünün tarihi ile ilgili soru

[Bwtunc]

Merhaba,

Datepicker yükleme işlemini yapamadığımdam textbox'a günün tarihini girerek bir sorunumu çözmeye çalıştım fakat ilginç bir durumla karşılaştım. Yorumunuzu rica ederim.

Private Sub UserForm_Initialize()
TextBox1 = FormatDateTime(Now, vbShortDate)
End Sub

Yukarıda yazan kodu girerek textbox1'e tarihi gün/ay/yıl şeklinde yazdırıyorum. Aşağıda resimde göreceğiniz gibi.


Fakat kaydederken hücreye 08/11/2020 tarihinde kaydediyor. Bu problemi nasıl aşabilirim.

Desteğiniz için teşekkürler.

 

[Muzaffer Ali]

MErhaba.
Kaydederken kullandığınız kodu da paylaşır mısınız?

 

[Bwtunc]

Sayın @dalgalikur

Kaydet butonunda kullandığım tüm kodlar bunlardır.

Dim SonSatır As Variant

Private Sub CommandButton1_Click()

If TextBox1 <> "" And TextBox2 <> "" And TextBox3 <> "" And TextBox4 <> "" And TextBox5 <> "" And TextBox6 <> "" Then

If IsNumeric(TextBox2.Value) And IsNumeric(TextBox3.Value) And IsNumeric(TextBox4.Value) And IsNumeric(TextBox5.Value) And IsNumeric(TextBox6.Value) Then

SonSatır = WorksheetFunction.CountA(Worksheets("İşletme Verileri").Range("A:A")) + 1

Worksheets("İşletme Verileri").Cells(SonSatır, 1) = TextBox1.Value

Worksheets("İşletme Verileri").Cells(SonSatır, 5) = TextBox2.Value

Worksheets("İşletme Verileri").Cells(SonSatır, 6) = TextBox3.Value

Worksheets("İşletme Verileri").Cells(SonSatır, 7) = TextBox4.Value

Worksheets("İşletme Verileri").Cells(SonSatır, 8) = TextBox5.Value

Worksheets("İşletme Verileri").Cells(SonSatır, 9) = TextBox6.Value

MsgBox "Veriler başarıyla Kaydedildi"

Else

MsgBox "Lütfen sadece rakam giriniz!"

End If

Else

MsgBox "Tanımlı alanlar boş bırakılamaz"

End If

End Sub

 

[Muzaffer Ali]

Bir sorun görünmüyor ama bir de şöyle dener misiniz?

Worksheets("İşletme Verileri").Cells(SonSatır, 1) = TextBox1.text

Excel ingilizce mi?

Eğer ingilizceyse hücre biçimlendirmesini de yapmalısınız.

 

[Bwtunc]

Excel Türkçe. Kurulu olan bilgisayar iş yerinde bugün izinli olduğum için erişemeyeceğim ama yarın önerilerinizi dener bir sonuç yazarım. Desteğiniz için teşekkürler.

 

[cicosz]

Merhaba,

Alternatif olarak

Worksheets("İşletme Verileri").Cells(SonSatır, 1) = TextBox1.Value

altına

Worksheets("İşletme Verileri").Cells(SonSatır, 1).Replace What:="/", Replacement:=".", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

kodunu ekleyerek deneyebilirsiniz.

 

[Muzaffer Ali]

Şunu da deneyin.

Worksheets("İşletme Verileri").Cells(SonSatır, 1) =format( TextBox1.text,"dd/mm/yyyy")

 

[Bwtunc]

Şunu da deneyin.

Worksheets("İşletme Verileri").Cells(SonSatır, 1) =format( TextBox1.text,"dd/mm/yyyy")

Bu kadar emek verip cevap yazdıktan sonra benimde söz konusu çözümleri denemem gerekirdi. Yarını beklemek doğru olmazdı. O nedenle işyerine geldim ve denedim ama yine aynı sonucu verdi her iki öneriyi de denememe rağmen. Birde bambaşka ama çok önemli bir problem ile karşılaştım. Dosyayı başka bilgisayarda çalıştırmaya çalıştığımda form içinde yer alan textboxlar falan kayıyor. Çözünürlük değiştiği için formun yapısı da değişiyor. Bunun için bir çözüm öneriniz olur mu acaba.

 

[Bwtunc]

Foruma biraz bakınca bu çözünürlük olayının başımı ağrıtacağını farkettim