listboxta Tarih Formatı

[cemal42]

Aşağıdaki kod ile listboxta arama yaptırıyorum. Ancak Textbox'a arama için veri girdiğimde listboxtaki tarihler hücre de 12.01.2010 iken listboxta 1/12/2010 olarak görünüyor. Tarihin hücrede yazılı şekilde görünmesi için yardımlarınızı bekliyorum. Tarihlerin olduğu sütun "S" sütunu yani 19. sütun.İyi çalışmalar dilerim.

Private Sub TextBox25_Change() 'VERI ARAMA'
If OptionButton1.Value = True Then sut = "C"
If OptionButton2.Value = True Then sut = "D"
If OptionButton3.Value = True Then sut = "S"


Dim k As Range, adrs As String, j As Byte, a, sat As Long
ReDim myarr(0 To 18, 1 To 1)
If TextBox25.Text = "" Then
sat = ActiveSheet.Cells(65536, "A").End(xlUp).Row
ListBox1.RowSource = ComboBox1.Text & "!A3:S" & sat
Exit Sub
End If
Set sy1 = Sheets("" & ComboBox1)
With sy1
ListBox1.RowSource = ""
If .FilterMode Then .ShowAllData
Set k = .Range(sut & "3:" & sut & "65536").Find(TextBox25.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(0 To 18, 1 To a)
For j = 0 To 17
myarr(j, a) = .Cells(k.Row, j + 1).Value
Next j
For Z = 18 To 18
myarr(Z, a) = Format(.Cells(k.Row, Z + 1).Value, "dd.mm.yyyy")
Next Z
Set k = sy1.Range(sut & "3:" & sut & "65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With


End Sub

 

[Korhan Ayhan]

Selamlar,Kullandığım bilgisayardaki kısıtlamalardan dolayı kodu direk foruma yazdığımda mesaj içeriği garipleştiği için ekteki txt dosyasını hazırladım. Kullandığınız koddaki döngü yerine ekteki dosyadaki döngüyü kullanın.

 

[cemal42]

Sayın Korhan Ayhan'ın önerdiği kodları kendime göre kırmızı renkli olarak yazılan şekilde uyarladım (doğru veya yanlış) çalıştı belirttiğim problem halloldu. Ancak Arama kriterlerini kullanırken optionbutton3'ü seçerek tarihe göre de arama yaptırıyordum. Bu sefer arama yaptırdığımda mesela 11.11.2010 tarihini arama yaptırmak istediğimde aynen 11.11.2010 biçiminde girmek istiyorum. Ancak 1 yazdığımda 1 olan bütün tarihleri getiriyor bir daha 1 yazınca 11 olan tarihleri getiriyor. "." koyduğum zaman hiçbir tarihi bulmuyor. (Tarih sütununa userform ile kayıt yaparken "cdate" ile tarih formatında kayıt yapıyorum.) Optionbutton3'ü seçtiğimde textboxt ile arama yapılacak satırda bir düzenleme yapmaya çalıştım ama beceremedim. Bu hususta da yardımcı olursanız memnun olacağım. Teşekkürler

 

[cemal42]

Problemin hallolma ihtimali varmı acaba?

 

[cemal42]

Soruma bir cevap alma ihtimali mevcut mu acaba?