Süz Sayfa 2 Ye Aktar Makrosu

Merhaba

Yaptığım makroda kriter hep aynı geliyor.
Makro kaydedici ile yapmıştım.
"123456" yazılı malzeme kodu sürekli ürünü süzüp 2. sayfaya kopyalama yapıyor.
malzeme kodu aynı kalmamalı. manüel girdiğim kod sorgulanmalı.

Sub Makro1()
'
' Makro1 Makro
'

'
Range("A2").Select
ActiveCell.FormulaR1C1 = "123456"
Range("A3").Select
Sheets("Sayfa1").Select
ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2, Criteria1:= _
"123456"
ActiveWindow.SmallScroll Down:=-15
Columns("F:G").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

(23/12/2019, 09:50)conquerora yazdı: ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2, Criteria1:= _
"123456"

kriter alanı sabit atanmış gibi. belli bir hücredeki değere göre filtrelemek isterseniz o hücrenin adresini yazmayı deneyebilirsiniz
gibi

merhaba olmadı.

dosya üzerinde düzeltmeniz mümkün mü?

dosyanızı eklerseniz çözmeye çalışırız

ekledim

şimdi denedim range kullanılınca düzün şekilde süzdü mesela sayfa2.E1 hücresini süzülecek kriter olarak atadım, kodu aşağıdaki şekilde yazıp sayfa1.B sütunundan farklı değerleri sayfa2.E1'e yapıştırıp butona bastığımda süzme ve kopyalamayı düzdün şekilde yaptı

ActiveSheet.ListObjects("Tablo1").Range.AutoFilter Field:=2, Criteria1:=Sheets("Sayfa2").Range("E1")

sizin yazdığınız kodda değiştirdiğim tek satır bu.