comboboxtan seçileni filtreleme

[sanja2]

merhaba

ben comboboxtan seçilen kritere göre butona basınca masraf sayfasından verileri alıp masrafsogulama sayfasına aktarmak istiyorum mümkünmü ? sabahtan beri arıyorum forumlarda bulduklarımı kendime uyarlayamadım yardımcı olursanız sevinirim.

 

[NBATMAN]

Sizin istediğiniz comboboxtan seçilen veriye göre masraf sayfasında olanların süzülmesi ve bu süzülenlerin masrafsorgula sayfasına aktarılması mı dır?
Doğrularmısınız lütfen...

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Sheets("masraf").Select
Application.ScreenUpdating = False
Range("A1").AutoFilter
With Sheets("masrafsorgu")
    .Range("A1:D65536").ClearContents
    Range("A1").AutoFilter field:=2, Criteria1:="=" & ComboBox1.Value
    Range("A1:D" & Cells(65536, "B").End(xlUp).Row).CurrentRegion.Copy .Range("A1")
    Range("A1").AutoFilter
    .Select
End With
Application.ScreenUpdating = True
Unload Me
MsgBox "[ " & ComboBox1.Value & " ] Süzüldü,akatrıldı.", vbOKOnly + vbInformation, "SÜZ"

End Sub