TextBoxlardaki tarihler sayı gözüküyor

[Altay3555]

Userformda tarihi tam olarak giriyorum,sayfaya aynen kaydediyor ama listboxdan tekrar aynı veriyi çağırdığımda sayı olarak geri geliyor.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox12 = ListBox1.List(ListBox1.ListIndex, 0)
......
.....
(62 adet textboxa tarih giriliyor(gerekirse)
End Sub

Kod bu..
Sanki hiçbirşey yapmıyormuş gibi geliyor,
Nasıl düzeltebilirim

 

[efeksk]

Değerli kardeşim..

Bir örnek eklersen arkadaşlar daha iyi yardımcı olabilir

 

[Altay3555]

Dosyam

Sevgili Hocalarım,
İki eksiğim kaldı galiba;
*Bul düğmesi çalışıyor lakin listbox'a tekrar yerleştirmede bir sorun oluyor,
*Doğum tarihi "Textboxlara Girişte Karekter Kontrolü" çalışmasından aldığım örnekleri uygulamama rağmen formatı kaydedemiyorum,
*En zor olan kısım da 45 tane textbox düğmesine tarih girmem gerekiyor,eğer doğum tarihi kısmındaki formatı her kutuya uygularsam sayfalar dolusu kod olacak gibi.
20-30 textbox için tek bir kod olabilir mi.
Şimdiden teşekkürler.

 

[Husgvarna]

Sevgili Hocalarım,
İki eksiğim kaldı galiba;
*Bul düğmesi çalışıyor lakin listbox'a tekrar yerleştirmede bir sorun oluyor,
*Doğum tarihi "Textboxlara Girişte Karekter Kontrolü" çalışmasından aldığım örnekleri uygulamama rağmen formatı kaydedemiyorum,
*En zor olan kısım da 45 tane textbox düğmesine tarih girmem gerekiyor,eğer doğum tarihi kısmındaki formatı her kutuya uygularsam sayfalar dolusu kod olacak gibi.
20-30 textbox için tek bir kod olabilir mi.
Şimdiden teşekkürler.

Kısaltma şöyle olabilir.

 Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox12 = ListBox1.List(ListBox1.ListIndex, 0) 'ListBox'a tıkladığımızda değerleri textbox'lara alıyoruz.
TextBox1 = ListBox1.List(ListBox1.ListIndex, 1)
s = 1
On Error Resume Next
For a = 2 To 55
s = s + 1
If s = 11 Then s = 20
If s = 37 Then s = 38
Controls("TextBox" & s) = Format(ListBox1.List(ListBox1.ListIndex, a), "dd.mm.yyyy")
Next
End Sub

Arama yaptıktan sonra listeye doğru gelmesi için: kırmızı bölümü değişirin/düzeltin

Private Sub TextBox78_Change() 'BUL DÜĞMESİ
On Error Resume Next
'Private Sub TextBox10_Change()
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 10, 1 To 1)
If TextBox78.Text = "" Then
[COLOR="Red"]ListBox1.List = Range("A1:BF" & Cells(65536, "A").End(xlUp).Row).Value
ListBox1.RowSource = "Bebek!A2:BF" & Sheets("Bebek").Range("A65536").End(xlUp).Row[/COLOR]
Exit Sub
End If
With Worksheets("Bebek")
    ListBox1.RowSource = ""
    'Show all records of Database on Sheet1
    If .FilterMode Then .ShowAllData
    Set k = .Range("C2:C65536").Find(TextBox78.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
        adrs = k.Address
        Do
            a = a + 1
            ReDim Preserve myarr(1 To 10, 1 To a)
            For j = 1 To 10
                myarr(j, a) = .Cells(k.Row, j).Value
            Next j
            Set k = Range("C2:C65536").FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adrs
        ListBox1.Column = myarr
    End If
End With
End Sub

Form açılırken boş satırları almasın
("Bebek!A2:BF100" &) yerine:

Private Sub UserForm_Initialize()
',,,,,,,,,,,,,,,
',,,,,,,,,,,,,
[COLOR="Red"]ListBox1.RowSource = "Bebek!A2:BF" & Sheets("Bebek").Range("A65536").End(xlUp).Row[/COLOR]
',,,,,,,,

 

[Altay3555]

Textbox4 hiç bir tarihi kabul etmiyor,kayıt yapamıyorum.