Combobox a göre sorgulayıp yazdırmak

[Mikdad]

Selamun Aleykum, örnek dosya da

Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Dim PER As Variant
On Error Resume Next
PER = ComboBox1.Value
sonsat = Sheets("Gündem").Cells(Rows.Count, "E").End(3).Row
Set ALAN = Range("G8:J" & sonsat).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
Sheets("Gündem").Cells(5, 3) = ComboBox1
End Sub

kodu ile sorgulama yapıyorum.
daha sonra ikinci bir button ile yazdırıyorum.

Sub Yazdır()
'
' Yazdır Makro
'

'
    Application.Goto Reference:="Yazdır"
  ActiveSheet.PageSetup.PrintArea = "$A$1:$h$" & Range("A65536").End(3).Row
    Application.WindowState = xlNormal
    Range("C9").Select
    ActiveWindow.SmallScroll Down:=552
    Application.WindowState = xlMaximized
    ActiveWindow.SmallScroll Down:=-60
    ActiveWindow.ScrollRow = 489
    ActiveWindow.ScrollRow = 452
    ActiveWindow.ScrollRow = 420
    ActiveWindow.ScrollRow = 360
    ActiveWindow.ScrollRow = 295
    ActiveWindow.ScrollRow = 218
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 1
    ActiveSheet.Shapes.Range(Array("Oval 1")).Select
    Range("J9").Select
    ActiveWorkbook.Save
    Sheets("Gündem").Select
    Range("M3").Select
    ActiveWindow.SmallScroll Down:=-18
    Range("D8").Select
    ActiveSheet.PrintPreview
End Sub

benim yapmak istediğim şey ise şu
sorgula ve dök diye bir button olacak.
tıkladığım zaman combobox ta sorgulama yapacak ilkini bulup dökecek. daha sonra ikinci ismi bulacak ve dökecek. sonra diğer isme geçecek.
sanki combodan seçip dök demişim şeklinde toplu olarak teker teker her personelin listesini dökecek. yardımlarınız için teşekkür ederim.

 

[Mikdad]

ÖrnekAyır dosyasını yanlışlıkla ekledim kusura bakmayın.
bu combobox ile ilgili yardımcı olabilir misiniz?

 

[Mikdad]

Dostlarım Yardımcı Olmanız Mumkun Mu?