seçerek satır kopyalama

[cumay]

Sayın Üstatlar
Bir Excel dosyam var bu dosyada 3 sayfa bulunuyor. 1.sayfada bir liste, 2.sayfada ise arama yaptıracağım veriler var. 3.sayfa ise bulduğum verileri kopyalayacağım sayfa. Listenin ve aramalarımın sayısı değişiyor. 2.sayfadaki verileri (teker teker ve sırasıyla) 1.sayfadaki listenin E sütununda aratıp eşleşen verilerin bulunduğu tüm satırları 3.sayfaya aktarmak istiyorum. Örneği incelerseniz daha iyi anlaşılır.
(veri aktarımını kopyala – özel yapıştır – değerleri şeklinde yapmak istiyorum)
İLGİNİZE ŞİMDİDEN TEŞEKKÜR EDERİM

 

[cumay]

ÇÖzÜmsÜz Bİr İŞlem Mİdİr Bu

Bu İstedİĞİmİn Olmasi MÜmkÜn DeĞİl Mİ?

 

[hamitcan]

Aşağıdaki kodu dener misiniz?

Sub AKTAR()
Set sil = Sheets("Aktarılanlar").[a1].CurrentRegion.Offset(1, 0)
sil.ClearContents
For Each hucre In [a1:a500]
If hucre <> "" Then
son = WorksheetFunction.CountA(Sheets("Aktar&#305;lanlar").Columns(1)) + 1
Sheets("Genel Liste").[a1].AutoFilter Field:=4, Criteria1:=hucre
Set alan = Sheets("Genel Liste").[a:e].CurrentRegion.Offset(1, 0)
alan.Copy Destination:=Sheets("Aktar&#305;lanlar").Cells(son, 1)
End If
Next
End Sub

 

[cumay]

Olmadı üstad

genel liste de otomatik süz yapıyor ama benim istediğimi yapmıyor

 

[hamitcan]

Dosyayı inceler misiniz?

 

[cumay]

bu sefer oldu

sevgili Üstadım
çok teşekkür ederim.
beni bir dertten kurtardın.