Textbox tarih formatı

[accountant80]

Merhaba...
Userformda listboxtan, textbox a veri alırken listboxtaki tarihleri textbox a 40544,40750 gibi sayı formatında alıyor, forumdaki tarih fortamları ile bir türlü düzeltmedim. Yardım eder misiniz ?

Değeri şu

TextBox2.Text = ListBox1.Column(2)

 

[İhsan Tank]

Merhaba...
Userformda listboxtan, textbox a veri alırken listboxtaki tarihleri textbox a 40544,40750 gibi sayı formatında alıyor, forumdaki tarih fortamları ile bir türlü düzeltmedim. Yardım eder misiniz ?

Değeri şu

TextBox2.Text = ListBox1.Column(2)

Merhaba

TextBox2.Text = cdate(ListBox1.Column(2))

TextBox2.Text = format(ListBox1.Column(2),"dd.mm.yyyy")

Şeklinde deneyin. Olmazsa örnek dosya ekleyin bakalım

 

[accountant80]

Maalesef çalışmadı İhsan bey, dosyayı ekliyorum.

 

[İhsan Tank]

Maalesef çalışmadı İhsan bey, dosyayı ekliyorum.

Merhaba
Kod bölümüne geçin Tolls - References'teki Missing olanın tik'i kaldırın ve Unitalize olayına yazdığınız

TextBox2.Text = CDate(ListBox1.Column(2))

Bu kodu silin.
Sonra Listbox'a yazdığınız kodu bununla değiştirip deneyin.

Private Sub ListBox1_Click()
TextBox1.Text = ListBox1.Column(0)
ComboBox1.Text = ListBox1.Column(1)
TextBox2.Text = Format(ListBox1.Column(2), "dd.mm.yyyy")
TextBox3.Text = Format(ListBox1.Column(3), "dd.mm.yyyy")
TextBox4.Text = ListBox1.Column(4)
TextBox5.Text = ListBox1.Column(5)
TextBox6.Text = ListBox1.Column(6)
TextBox7.Text = ListBox1.Column(7)
TextBox8.Text = ListBox1.Column(8)
TextBox9.Text = ListBox1.Column(9)
End Sub

Yani Kısaca Userform'un kod bölümündeki kodlar bunlar olmalı

Private Sub CommandButton1_Click()


If TextBox1.Text <> "" Then

Son_Dolu_Satir = Sheets("Liste").Range("B65536").End(xlUp).Row
    bos_Satir = Son_Dolu_Satir + 1
    
    
    Sheets("Liste").Range("B" & bos_Satir).Value = _
                   Application.WorksheetFunction.Max(Sheets("Liste").Range("B:B")) + 1
 
    Sheets("Liste").Range("A" & bos_Satir).Value = bos_Satir - 1
    Sheets("Liste").Range("B" & bos_Satir).Value = TextBox1.Text
 
    Sheets("Liste").Range("D" & bos_Satir).Value = TextBox2.Text
    
    Sheets("Liste").Range("E" & bos_Satir).Value = TextBox3.Text
    
    Sheets("Liste").Range("F" & bos_Satir).Value = TextBox4.Text
    
    Sheets("Liste").Range("G" & bos_Satir).Value = TextBox5.Text
    
    Sheets("Liste").Range("H" & bos_Satir).Value = TextBox6.Text
    
    Sheets("Liste").Range("I" & bos_Satir).Value = TextBox7.Text
    
    Sheets("Liste").Range("J" & bos_Satir).Value = TextBox8.Text
    
    Sheets("Liste").Range("K" & bos_Satir).Value = TextBox9.Text
     
    Range("B2:Z600").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("B2").Select
    Sheets("Liste").Select

   
   Else
              MsgBox "Adı Soyadı veya Ünvan girmeniz gerekiyor", vbExclamation, "Uyarı"
              
 
End If
   
End Sub
   

Private Sub CommandButton4_Click()
Unload Me
End Sub

Private Sub ListBox1_Click()
TextBox1.Text = ListBox1.Column(0)
ComboBox1.Text = ListBox1.Column(1)
TextBox2.Text = Format(ListBox1.Column(2), "dd.mm.yyyy")
TextBox3.Text = Format(ListBox1.Column(3), "dd.mm.yyyy")
TextBox4.Text = ListBox1.Column(4)
TextBox5.Text = ListBox1.Column(5)
TextBox6.Text = ListBox1.Column(6)
TextBox7.Text = ListBox1.Column(7)
TextBox8.Text = ListBox1.Column(8)
TextBox9.Text = ListBox1.Column(9)
End Sub

Private Sub UserForm_Activate()
ComboBox1.AddItem ("Bilanço")
ComboBox1.AddItem ("İşletme")
ComboBox1.AddItem ("Özel Bina İnşaatı")
End Sub

Private Sub UserForm_Initialize()
With ListBox1
        
        .ColumnCount = 10
        .ColumnWidths = "120;50;50;50;50;50;50;50;120;50"
        If Sheets("Liste").Range("B2") = Empty Then
        .RowSource = Empty
        Else
        .RowSource = "Liste!B2:w" & [Liste!B65536].End(3).Row
        End If
    End With
End Sub

Dikkat Missing'i kaldırmayı unutmayınız.

 

[accountant80]

Missing!i bulamadım ama kod bölümüne
TextBox2.Text = Format(ListBox1.Column(2), "dd.mm.yyyy")
TextBox3.Text = Format(ListBox1.Column(3), "dd.mm.yyyy")

Yazınca düzeldi, çok teşekkürler elinize sağlık.

 

[İhsan Tank]

Missing!i bulamadım ama kod bölümüne
TextBox2.Text = Format(ListBox1.Column(2), "dd.mm.yyyy")
TextBox3.Text = Format(ListBox1.Column(3), "dd.mm.yyyy")

Yazınca düzeldi, çok teşekkürler elinize sağlık.

Rica ederim
:keyif:

 

[accountant80]

İhsan hocam bir şey daha sorayım . Dosyanın ekli halinde arama yaptırmak istiyorum, başka bir yerden bulduğum kodu textbox10 change olayına atadım ama kendi dosyama uyarlayamadım bakabilir misiniz ?

 

[İhsan Tank]

İhsan hocam bir şey daha sorayım . Dosyanın ekli halinde arama yaptırmak istiyorum, başka bir yerden bulduğum kodu textbox10 change olayına atadım ama kendi dosyama uyarlayamadım bakabilir misiniz ?

Sorunuz konu ile uyuşmuyor lütfen yeni bir konu açın

 

[accountant80]

Sorunuz konu ile uyuşmuyor lütfen yeni bir konu açın

İhsan Hocam yeni konu açtım, rica etsem bakabilir misiniz ?
http://www.excel.web.tr/f48/listboxta-arama-t107239.html