Öncelikle herkese merhaba,
Aşağıdaki kodları daha önce bu siteden aldım. Levent Bey eklemişti. Ben bu kod ile bir çalışma yapmak istiyorum ancak sayfa 1 deki kriterlerin aynısına sahip başka bir sayfayı da yine süzüp sayfa 2 deki alana yapıştırmak istersek, nasıl bir kod eklememiz gerekir?
Yardımlarınızı rica ederim.
Saygılarımla,
Private Sub CommandButton1_Click()
Sayfa1.[A1:H5000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sayfa2.[B3:B4], _
CopyToRange:=Sayfa2.[C8:J8], _
Unique:=False
End Sub
Aşağıdaki kodları daha önce bu siteden aldım. Levent Bey eklemişti. Ben bu kod ile bir çalışma yapmak istiyorum ancak sayfa 1 deki kriterlerin aynısına sahip başka bir sayfayı da yine süzüp sayfa 2 deki alana yapıştırmak istersek, nasıl bir kod eklememiz gerekir?
Yardımlarınızı rica ederim.
Saygılarımla,
Private Sub CommandButton1_Click()
Sayfa1.[A1:H5000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sayfa2.[B3:B4], _
CopyToRange:=Sayfa2.[C8:J8], _
Unique:=False
End Sub