Kritere Göre ayrı sayfaya verileri getirme makrosu

[muratkimyaci]

Merhaba

aşağıdaki gibi bir tablomuz var.
https://www.photobox.co.uk/my/photo/full?photo_id=500946059444
A1 e kriter olarak Üretim yazıp makroyu çalıştırdığımızda , B sütunundaki verileri Üretim kelimesine göre filtreleyip, çıkan sonuçları seçip, kopyalayıp, yeni sayfa oluşturup buraya yapıştırmasını istiyorum. Ancak yapamadım. ( aşağıda gözüken criteria1 kısmını direkt A1 den veri alacak şekilde ilişkilendirmeyi yapamadım)
desteklerinizi rica ederim
teşekkürler

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+k
'
    Range("A1").Select
    Selection.Copy
    ActiveSheet.Range("$A$2:$U$7207").AutoFilter Field:=5, Criteria1:="???????"
    Range("A1:U99999").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    Range("C28").Select
    Application.CutCopyMode = False
End Sub

 

[Muzaffer Ali]

ActiveSheet.Range("$A$2:$U$7207").AutoFilter Field:=5, Criteria1:="???????"

Satırını aşağıdaki ile değiştirin.

ActiveSheet.Range("A:U").AutoFilter Field:=5, Criteria1:=Range("A1").Text

 

[muratkimyaci]

Çok teşekkür ederim