şartlı sıralama

[alicanxy58]

Ekteki göndermiş olduğum dosyada listeleme ile ilgili bir sorunum var. Yardımcı olursanız memmun olurum.

 

[Orion1]

Dosyanız ekte.

Sub listele()
Sheets("Sayfa2").Range("A2:E65536").Clear
Range("A2").AutoFilter
Range("A2").AutoFilter field:=1, Criteria1:=Range("E3").Value
Range("A3:D" & Cells(65536, "A").End(xlUp).Row).CurrentRegion.Copy
Sheets("Sayfa2").Range("A2").PasteSpecial
Range("A2").AutoFilter
Sheets("Sayfa2").Select
End Sub

 

[alicanxy58]

Sayın Gizlen; ilginize ve cevabınıza çok teşekkür ederim.
Ancak;
örnek dosyada belirtmediğimden, asıl dosyamda, a ve diğer sutunlardaki veriler formulle başka bir sayfadan alındığından ilgili kod hata verdi.

ayrıca; listelemeyi aynı sayfada kod kullanmadan başka bir şekilde yapabilirmiyiz?

İlgili dosyayı güncelleyerek ekte gönderiyorum.