Believing
Altın Üye
- Katılım
- 19 Mayıs 2013
- Mesajlar
- 700
- Excel Vers. ve Dili
-
Office Pro 2019 TR 32 Bit
Windows Pro 10 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 23-08-2028
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.
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.
Kod:
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
Ekli dosyalar
-
391.8 KB Görüntüleme: 3