Combobox ile sütünda tarih listeleme kod yardımı

[Believing]

Sayın Uzman Arkadaşlar,

Bir çalışma sayfasında Comcobox ile sütünlarda verileri filtreliyorum. Metinsel aramalarda sorun yaşamıyorum. Ancak bir sütuntaki istenilen tarihleri listelemeyi yapamadım. Aşağıdaki kodlarda ne tür bir değişiklik yapmalıyım?

Saygılarımla.

Private Sub ComboBox4_Change()
Application.ScreenUpdating = False
Dim Contract_Type As Variant
On Error Resume Next
Date_Of_Contract = ComboBox4.Value
Set alan = Range("E3:E65000").Find(What:=Date_Of_Contract)
Application.Goto Reference:=Range(alan.Address), _
   Scroll:=False
Selection.AutoFilter Field:=5, Criteria1:=ComboBox4.Value & "*"
If Date_Of_Contract = "" Then
Selection.AutoFilter Field:=5
End If
End Sub

 

[Ömer BARAN]

Merhaba.

İlgili satırı aşağıdakiyle değiştirin.
.

Selection.AutoFilter Field:=5, Criteria1:=[COLOR="Blue"][B]Format(ComboBox4, "dd.mm.yyyy")[/B][/COLOR]

 

[Believing]

Sayın Ömer bey,

Vermiş olduğunuz kodu ekteki çalışmada uygulayarak, Combobox'a rakam girmeye başladığımıda farlı rakamlar yazmaktadır.

Saygılarımla.

 

[Ömer BARAN]

Belge ekte.

Önce bir hatırlatma;
Combobox nesnesi elle veri girişi için değil, esas olarak listeden seçim yapmak üzere kullanılacak bir nesnedir.

İlgili Combobox'a yönelik iki küçük ilave daha yaptım.
.

 

[Believing]

Sayın Ömer bey,

Öncelikle konuya gösterdiğiniz ilgi, yardım ve açıklamalar için size çok teşekkür ederim.
Combobox'ları sadece filtrelemek için kullanıyorum. Bu durumda TextBox kullanmak daha mı uygun olacaktır.

Saygılarımla.

 

[Ömer BARAN]

Filtre için combobox nesnesi daha uygun.

Ancak bu filtreyi hücredeki filtre üzerinden neden yapmıyorsunuz da nesneler/makro kullanıyorsunuz onu anlamadım.

Veriler başka bir sayfada olup, nesnelerden seçilen koşullara (nesnelerde seçilen filtre kriterlerine) uyan kayıtları ilgili sayfadan başka bir sayfaya almak/aktarmak işlemi yapıyor olsaydınız ya da userform üzerinden belgeyi yönetiyor olsaydınız, işlem daha anlamlı olurdu.

Ayrı bir yere listeleme olmayacaksa; ben olsam doğrudan hücreden filtre kullanırdım.
.

 

[Believing]

Sayın Ömer

Öncelikle tavsiyeniz benim önemli ve çalışmamı tavsiyeniz doğrultusunda şekillendireceğim.
Size bir kez daha teşekkür ederim. Ömer bey açılan konulara hep açıklamalar ile dönüyor ve destekliyorsunuz. Bu da bize çok şey öğrenmemiz konusunda katkı sağlıyor.
ALLAH sizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Ömer BARAN]

Amin, cümlemizden.