Makro İle Filtreleme Sorunu

[tekstilithalatihracat]

Merhaba,

Makro ile herhangi bir değişken hücreye atıf yaparak farklı bir sayfadan filtreleme yaptırıp çıkan verileri kopyalayıp farklı bir sayfaya yapıştırmak istiyorum.

Aşağıda oluşturduğum makro çıktısı bulunuyor.

Örneğin;

Sayfa2 de bulunan F1 hücresindeki veriyi al Sayfa1 de bulunan A1 hücresine filtre uygula çıkan verileri kopyala sayfa2 a2 hücresine yapıştır;

Makro sağlıklı çalışıyor ancak takıldığım nokta F1 hücresini değişken değer gösteremiyorum. ÇAĞLAR LTD yazan kısım değişken bir alan. Makroyu oluşturuken hangi değer varsa makroda o kaldı. Ben o kısmı değişken olarak tanımlamak istiyorum. Nasıl yapabilirim. Teşekkürler.

Range("F1").Select
Selection.Copy
Sheets("Sayfa1").Select
ActiveSheet.Range("$A$1:$C$6").AutoFilter Field:=1, Criteria1:="ÇAĞLAR LTD"
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sayfa2").Select
Range("A2").Select
ActiveSheet.Paste
Range("A4").Select
Sheets("Sayfa1").Select
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$C$6").AutoFilter Field:=1
Range("A2").Select
Sheets("Sayfa2").Select
Range("F1").Select

 

[askm]

ActiveSheet.Range("$A$1:$C$6").AutoFilter Field:=1, Criteria1:=Range("A1") yaparsanız A1 hücresindeki değere göre süzer. Burdaki A1 kısmını istediğiniz yere göre değiştirebilirsiniz.

 

[tekstilithalatihracat]

Teşekkür ederim sorunum belirttiğiniz şekilde çözüldü

 

[askm]

Rica ederim. Kolay gelsin.

 

[volkan5454]

Ayni sorun bende de vardı pc ye gecince deneyecegim bende çözerim inş