Listboxda Tarih Formatı?

[udentr2002]

Merhaba arkadaşlar ben sayfadaki texboxa "11.03.2008" formatında tarih giriyorum. ve sayfaya aynı formatta aktarıyorum. yanlız, combobox ile sorgulama yapıp sorguladığım verileri Listboxa aldığımda listboxda bu tarih formatını "03/11/2008" şeklinde gösteriyor (sayfada değişmiyor yine aynı yazdığım formatta kalıyor) sadece listboxda görüntülerken formatını değiştiriyor. bunu düzeltmek için ne yapabilirm. yani listboxda da aynı formatta ("11.03.2008") şeklinde görünmesi lazım.
Şimdiden ilgilenen tüm arkadaşlara teşekkür ederim.

 

[Orion1]

Listbox'a tarihi aldığınız satırda , ListBox'a tarihi formatlayarak alınız.

 

[udentr2002]

Hocam zaten kodları sizizn sayenizde yapmıştım. ben kodlarınız üzerinde uyarlamaya çalıştım ama başaramadım hocam kodları aşağıda gönderiyorum size ben o kodlar arasında listboxa müdahale edemedim.

Sub listele()
Dim i As Long, a As Long, k As Byte, deg As Double
ListBox1.RowSource = ""
ReDim myarr(1 To 12, 1 To 1)
For i = 3 To Cells(65536, "B").End(xlUp).Row
    If LCaseTr(Replace(Replace(Cells(i, "C").Value, "I", "ı"), "İ", "i")) Like LCaseTr(ComboBox1.Value & "*") _
    And LCaseTr(Replace(Replace(Cells(i, "E").Value, "I", "ı"), "İ", "i")) Like LCaseTr(ComboBox2.Value & "*") _
    And LCaseTr(Replace(Replace(Cells(i, "F").Value, "I", "ı"), "İ", "i")) Like LCaseTr(ComboBox3.Value & "*") Then
    
        a = a + 1
        ReDim Preserve myarr(1 To 12, 1 To a)
        For k = 1 To 12
            myarr(k, a) = Cells(i, k).Value
        Next k
        If a = 1 Then
            deg = Cells(i, 10).Value
            ElseIf Cells(i, 10).Value < deg Then
            deg = Cells(i, 10).Value
        End If
    End If
Next i
If a > 0 Then ListBox1.Column = myarr
Erase myarr
Label17.Caption = Format(deg, "#,##0.00") & " " & "YTL'dir"




End Sub

hocam bakabilirseniz çok makbule geçer

 

[udentr2002]

Hocam tarih listboxun 2.stünuna denk geliyor

 

[Orion1]

Hocam tarih listboxun 2.stünuna denk geliyor

Aşağıdaki gibi deneyiniz.
Sub listele()
Dim i As Long, a As Long, k As Byte, deg As Double
ListBox1.RowSource = ""
ReDim myarr(1 To 12, 1 To 1)
For i = 3 To Cells(65536, "B").End(xlUp).Row
If LCaseTr(Replace(Replace(Cells(i, "C").Value, "I", "ı"), "İ", "i")) Like LCaseTr(ComboBox1.Value & "*") _
And LCaseTr(Replace(Replace(Cells(i, "E").Value, "I", "ı"), "İ", "i")) Like LCaseTr(ComboBox2.Value & "*") _
And LCaseTr(Replace(Replace(Cells(i, "F").Value, "I", "ı"), "İ", "i")) Like LCaseTr(ComboBox3.Value & "*") Then

a = a + 1
ReDim Preserve myarr(1 To 12, 1 To a)
For k = 1 To 12
myarr(k, a) = Cells(i, k).Value
Next k
myarr(2,a)=format(myarr(2,a),"dd.mm.yyyy")
if a = 1 Then
deg = Cells(i, 10).Value
ElseIf Cells(i, 10).Value < deg Then
deg = Cells(i, 10).Value
End If
End If
Next i
If a > 0 Then ListBox1.Column = myarr
Erase myarr
Label17.Caption = Format(deg, "#,##0.00") & " " & "YTL'dir"




End Sub

 

[udentr2002]

Say&#305;n Hocam 1 haftadan beri i&#351;lerim y&#252;z&#252;nden forma girememi&#351;tim ve cevab&#305;n&#305;z&#305; g&#246;rd&#252;m ama bir te&#351;ekk&#252;r bile edememi&#351;tim. Kusurumuza bakmay&#305;n ilginiz vede g&#246;sterdi&#287;iniz emek i&#231;in &#231;ok te&#351;ekk&#252;r ederim ellerinize sa&#287;l&#305;k