Combobox ile sorgulama

[Mikdad]

Selamun Aleykum dostlarım,

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

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.

 

[Ömer BARAN]

Merhaba.
Sorunuzu örnek belge üzerinden sormanızda yarar var.
Örnek belge konusunda, cevabımın altındaki İMZA bölümünü okuyunuz.
.

 

[Mikdad]

Merhaba.
Sorunuzu örnek belge üzerinden sormanızda yarar var.
Örnek belge konusunda, cevabımın altındaki İMZA bölümünü okuyunuz.
.

Değerli Hocam, Ekte Sundum. ve dosya içerisinde geniş bir açıklama yaptım. saygılarımla Şimdiden Teşekkür Ederim.

 

[Ömer BARAN]

Tekrar merhaba.
Belge ekte.