CommandButton1 başka sayfadaki veriyi filtreleme

[umutt86]

mrb arkadaşlar

iki sayfam var

biri veri biri xx sayfası xx sayfasındaki CommandButton1 ile
veri sayfasında gelişmiş filtre yaptıracam.

Sheets("veri").Select
Range("A1:K30").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A31:K32"), CopyToRange:=Range("A35:K36"), Unique:=False

bu kod yaptım

macroda işe yarıyor ama
CommandButton1 işe yaramıyor nedenini bulamadım bir türlü

 

[hamitcan]

Küçük bir dosya ekleyin.

 

[umutt86]

buyrun ya aynı sayfada CommandButton1 çalışıyor ama farklı sayfada olmuyor

 

[hamitcan]

Private Sub CommandButton1_Click()
With Sheets("veri")
    Application.CutCopyMode = False
    .Range("A1:D4").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
        "G1:J2"), CopyToRange:=.Range("G4:J5"), Unique:=False
End With
MsgBox "Verileriniz Süzüldü."
End Sub