Mikdad
Altın Üye
- Katılım
- 5 Ocak 2006
- Mesajlar
- 333
- Excel Vers. ve Dili
- 365 Türkçe
- Altın Üyelik Bitiş Tarihi
- 26-10-2026
Selamun Aleykum dostlarım,
bu kod ile g stununu istediğim gibi sorgulayabiliyorum. ama yapmak istediğim şey şu comboboxtan bir şey sorguladığım zaman çıkan sonuçta d8 sutununun alfabetik olarak sıralanması. yani bu kod hem personeli sorgulayacak hemde çıkan sonucu alfabetik olarak verecek.
Kod:
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Dim PER As Variant
On Error Resume Next
PER = ComboBox1.Value
Set ALAN = Range("G8:J65000").Find(What:=PER)
Application.Goto Reference:=Range(ALAN.Address), _
Scroll:=False
Selection.AutoFilter Field:=7, Criteria1:=ComboBox1.Value & "*"
If PER = "" Then
Selection.AutoFilter Field:=7
End If
End Sub