Tarih Formatında arama

[İsmail Küçükşengün]

Merhaba;

Sayfa üzerindeki Combobox ile:

Private Sub ComboBox4_Change()
ActiveWindow.ScrollRow = ComboBox4.ListIndex + 2
End Sub

Koduyla arama yaptırılıyor.

Fakat sütundaki veriler TARİH olduğundan, combo'ya tarih yazılamıyor.

Comboboxla (Sütundaki veriler tarih olduğundan) arama için yukarıdaki kodda ne gibi değişiklik gerekir.

Teşekkür ve Selamlarımla.

 

[Ferhat Pazarçevirdi]

İsmail bey, bu bir arama kodu değil ... Sadece Combo'da seçim yapılınca; Excel sayfasını, combonun sıra numarasından iki satır aşağıya kaydırıyor.

Acaba yanlış kod göndermiş olabilir misiniz?

 

[İsmail Küçükşengün]

Özür.

Private Sub ComboBox4_GotFocus()
ActiveSheet.ComboBox1.ListIndex = -1
ActiveSheet.ComboBox2.ListIndex = -1
ActiveSheet.ComboBox3.ListIndex = -1
ActiveSheet.ComboBox4.ListIndex = -1
Rows("2:65000").Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

ve,

Private Sub ComboBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim no
no = ActiveWindow.ScrollRow
If KeyCode = 13 Then Cells(no, 4).Activate
End Sub

Kod bu şekilde.

 

[İsmail Küçükşengün]

Arkadaşlar.

Güncel!!

 

[Ayhan Ercan]

İsmail bey,

Mesajınızdaki kod ile arama yapılmıyor. İkinci yollamış olduğunuz kod da öyle...

 

[İsmail Küçükşengün]

Dosya ektedir.

Sayfadaki TARİHİ yazan kımın üstündeki Combobox4'e tarih yazılamıyor. Tarih yazmak istediğimizde, başka rakamlar çıkıyor.

Diğer Combobox'lara harfler yazıldığında, arama yapılabiliyor.

İnceleyebilirseniz teşekkür ederim.

 

[Levent Menteşoğlu]

Sn İsmail bey combobox_change olayını aşağıdaki gibi değiştirerek denermisiniz.

Private Sub ComboBox4_Change()
ComboBox4 = Format(ComboBox4, "dd.mm.yyyy")
ActiveWindow.ScrollRow = ComboBox4.ListIndex + 2
End Sub

 

[İsmail Küçükşengün]

Sayın Levent Bey;

Evet. Bu şekilde sorun çözülüyor.

Çok teşekkürler.

Selamlar.