Tarih Sorunu

[ahmed_ummu]

Merhaba arkadaşlar.

Textbox'a aldırdığım veri Excel sayfasında "12.09.2021" ama aşağıdaki kod ile Textbox' a "Eylül" yazıyor.

Format(TextBox133.Value, "dd.mm.yyyy") = ActiveCell.Offset(0, 9).Value

Veriyi Excel'e kaydederken de aşağıdaki kod ile kaydettim.

ActiveCell.Offset(0, 9).Value = Format(TextBox133.Value, "dd.mm.yyyy")

Yardımcı olursanız sevinirim.

 

[ÖmerFaruk]

Örnektir, A sütununu "gg.aa.yyyy" olarak ayarlayın

TextBox1 = Format([A1], "dd.mm.yyyy")
[A2] = CDate(Me.TextBox1)

 

[ahmed_ummu]

Örnektir, A sütununu "gg.aa.yyyy" olarak ayarlayın

TextBox1 = Format([A1], "dd.mm.yyyy")
[A2] = CDate(Me.TextBox1)

Ömer Faruk bey teşekkür ederim.

Excel sayfasında 80 kişi var. Hepsinin de tarih kısmında normal tarih yazıyor. Mesela 12.09.2021 ama tüm personelin tarihini Textbox'a alınca hangi aya aitse o ay ismini yazıyor Textbox'a. 01.01.2021 tarihini "Ocak diye yazıyor. Gönderdiğiniz kodları denedim ama olmadı veya ben yapamadım.

 

[Orion1]

Buyurun.

ActiveCell.Offset(0, 9).Value = CDate(TextBox133.Value)
ActiveCell.Offset(0, 9).NumberFormat = "dd.mm.yyyy"

 

[ahmed_ummu]

Buyurun.

ActiveCell.Offset(0, 9).Value = CDate(TextBox133.Value)
ActiveCell.Offset(0, 9).NumberFormat = "dd.mm.yyyy"

Teşekkürler Orion bey. gönderdiğini kodu denedim, yine aynısını yazdı.
ActiveCell.Offset(0, 9).Value = CDate(TextBox133.Value)

 

[ahmed_ummu]

Excelde tarihler aynı formatta yazıyo ama texbox'a alınca alttaki yuvarlak içine aldığım yerlerde ay ismi yazıyor. Excele kaydederken de aynı formatta kaydettim.

 

[Orion1]

Şöyle yazın.

TextBox133.Value = format(ActiveCell.Offset(0, 9).Value,"dd.mm.yyyy")

 

[ahmed_ummu]

Şöyle yazın.

TextBox133.Value = format(ActiveCell.Offset(0, 9).Value,"dd.mm.yyyy")

Orion bey denedim ama yine aynı yazıyor.

 

[ÖmerFaruk]

Kodlarınzıın bir başka yerinde ilgili textboxlar için farklı bir satır var sanırım. Kontrol eder misiniz?

Mesela Textbox Change olayına ait bir kod bloğunuz mu var?
Ya da o userformda yanlışlıkla 2 textbox üstüste mi kopyalanmış?

 

[halit3]

TextBox133.Value = "ahmed"

böyle bir dene TextBox133 ne yazıyor buraya yaz

 

[ahmed_ummu]

TextBox133.Value = "ahmed"

böyle bir dene TextBox133 ne yazıyor buraya yaz

Denedim Halit bey.
Yine hangi tarih varsa o tarihin ay adını yazıyor. 11.01.2021 varsa "Ocak" yazıyor.

 

[ÖmerFaruk]

Kodlarınızda Change olayına ait bir kod satırı var mı?
Private Sub TextBox133_Change()

Hatta Altın üyesiniz, dosyanızı bir paylaşın isterseniz.

 

[halit3]

senin sorunun farklı bir durum
TextBox133 tetikleyen başka olay yordamı var bu durumda örnek bir dosya yüklemelisiniz ki kodu tetikleyen durumu görmek lazım.

 

[ahmed_ummu]

senin sorunun farklı bir durum
TextBox133 tetikleyen başka olay yordamı var bu durumda örnek bir dosya yüklemelisiniz ki kodu tetikleyen durumu görmek lazım.

Halit bey dosyayı ekledim. Textbox134 de aynı

Sizin Puantaj oluşturma sayfasını buraya uydurmaya çalışıyorum. Sizin gönderdiğiniz data sayfasındaki puantaj oluşturan butonu "hepsini aktar" butonunu userform10'dan çalıştırabilir miyiz. Hepsini aktar butonunu forma alamadım. İçindeki kodları form üzerindeki butona yazdım çalışmadı

 

[halit3]

UserForm10 hangi sayfada çalıştırıyorsunuz.

 

[Ömer]

Merhaba,

Benim gördüğüm, ListBox4_Click de Tex133 ve Tex134 nesneleri farklı verileri alarak 2 defa yazılmış. Bu yüzden son olan yazılan ekrana geliyor.

Private Sub ListBox4_Click()
On Error Resume Next
'
'
TextBox133.Value = "ahmed"
TextBox134.Value = Format(ActiveCell.Offset(0, 12).Value, "dd.mm.yyyy")

'
'
If ActiveCell.Offset(0, 24).Value = "BAYAN" Then
OptionButton16.Value = True
End If

'
'
TextBox133.Value = ActiveCell.Offset(0, 41).Value
TextBox134.Value = ActiveCell.Offset(0, 42).Value
'
'
ListBox4.Clear
Call UserForm_Initialize

End Sub

 

[ahmed_ummu]

UserForm10 hangi sayfada çalıştırıyorsunuz.

Veri sayfasında

 

[ahmed_ummu]

Merhaba,

Benim gördüğüm, ListBox4_Click de Tex133 ve Tex134 nesneleri farklı verileri alarak 2 defa yazılmış. Bu yüzden son olan yazılan ekrana geliyor.

Private Sub ListBox4_Click()
On Error Resume Next
'
'
TextBox133.Value = "ahmed"
TextBox134.Value = Format(ActiveCell.Offset(0, 12).Value, "dd.mm.yyyy")

'
'
If ActiveCell.Offset(0, 24).Value = "BAYAN" Then
OptionButton16.Value = True
End If

'
'
TextBox133.Value = ActiveCell.Offset(0, 41).Value
TextBox134.Value = ActiveCell.Offset(0, 42).Value
'
'
ListBox4.Clear
Call UserForm_Initialize

End Sub

Evet Text 133 ve 134 ü 2. kez yazmışım. Teşekkürler

 

[ahmed_ummu]

Halit bey dosyayı ekledim. Textbox134 de aynı

Sizin Puantaj oluşturma sayfasını buraya uydurmaya çalışıyorum. Sizin gönderdiğiniz data sayfasındaki puantaj oluşturan butonu "hepsini aktar" butonunu userform10'dan çalıştırabilir miyiz. Hepsini aktar butonunu forma alamadım. İçindeki kodları form üzerindeki butona yazdım çalışmadı

Halit bey Text 133 ve 134 ü ikinci kez yazmışım, silince düzeldi.

Gönderdiğiniz hepsiniaktar butonunu userform'dan çalıştırabilir miyiz.

 

[ahmed_ummu]

Halit bey bir ricam var sizden. Zahmet olmazsa en son gönderdiğiniz VERİ_TABANI8888 dosyasında, Hepsini aktar butonundaki kodların yanına açıklama tapıp tekrar gönderebilir misiniz. Çok işime yarayacak, tabi zahmet olmayacaksa.