aynı anda 3 sütun süzüp aktarmak

[aliballi]

Arkadaşlar,

"sayfa1" deki veriyi , "sayfa2" de yukarda girdiğim "a6" ve "a4" hücrelerine göre, önce "a6" sonra "a4" teki verilere ve en sonda "sayfa 1" deki "h" sütunundaki bilgileri "a8" e gireceğim rakamla sayfa 3 e aktarmasını istiyorum
ben aktarılması gereken bilgiyi sayfa 3 e aktardım..

çok zor bir kod mudur ve yapılabilirmi.

inanın çok işime yarıycak..

şimdiden teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Sayfa3.[a1:h1000].Clear
With Sayfa1
.AutoFilterMode = False
.[e1].AutoFilter field:=5, Criteria1:=Sayfa2.[a6]
.[a1].AutoFilter field:=1, Criteria1:=Sayfa2.[a4]
.[h1].AutoFilter field:=8, Criteria1:=">=500"
.[a1].CurrentRegion.Copy Sayfa3.[a1]
End With
End Sub

 

[aliballi]

Sub aktar()
Sayfa3.[a1:h1000].Clear
With Sayfa1
.AutoFilterMode = False
.[e1].AutoFilter field:=5, Criteria1:=Sayfa2.[a6]
.[a1].AutoFilter field:=1, Criteria1:=Sayfa2.[a4]
.[h1].AutoFilter field:=8, Criteria1:=">=500"
.[a1].CurrentRegion.Copy Sayfa3.[a1]
End With
End Sub

Sayın; N.Ziya Hiçdurmaz

Ellerinize sağlık çok teşekkür ederim. işlem yapıyor ama benim listem uzun olduğu için olabilirmi bilmiyorum
.[a1].CurrentRegion.Copy Sayfa3.[a1] de hata veriyor

bir de .[h1].AutoFilter field:=8, Criteria1:=">=500" bu satırda rakamıda
Sayfa2 de a8 hücresinden alsave bu rakamdan büyük olanları aktarsa bu satır nasıl düzenlenebilir.

yardımcı olursanız sevinirim.
tekrar teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
On Error Resume Next
Sayfa3.[a1:h1000].Clear
With Sayfa1
.AutoFilterMode = False
.[e1].AutoFilter field:=5, Criteria1:=Sayfa2.[a6]
.[a1].AutoFilter field:=1, Criteria1:=Sayfa2.[a4]
.[h1].AutoFilter field:=8, Criteria1:=">=" & Sayfa2.[a8]
.[a1].CurrentRegion.Copy Sayfa3.[a1]
End With
End Sub