ComboBox ve Commandbutton bağlantısı.

[sin77]

Merhaba arkadaşlar.Örnek dosyam ve sorum içindedir .Yardımcı olursanız sevinirim. Tşk.ler.

 

[Orion1]

Dosyanız ektedir.
R sütunu için ad tanımlaması yapıldı.(adı alan)

Private Sub ComboBox1_DropButtonClick()
ComboBox1.ListFillRange = "alan"
End Sub

Private Sub CommandButton1_Click()
Dim sat As Long, sh As Worksheet
Application.ScreenUpdating = False
Range("A7:D65536").Clear
Set sh = Sheets("Sayfa2")
sh.Range("A3").AutoFilter
sat = sh.Cells(65536, "A").End(xlUp).Row
If sat < 4 Then
    Application.ScreenUpdating = True
    Set sh = Nothing
    Exit Sub
End If
sh.Range("A3").AutoFilter field:=1, Criteria1:=CDbl(ComboBox1.Value)
sh.Range("A3").CurrentRegion.Copy Range("A7")
sh.Range("A3").AutoFilter
Application.ScreenUpdating = True
Set sh = Nothing
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub