Seçilen filtreye göre SATIRI diğer sayfaya kopyalama

[HALILİBRAHIM]

Selam arkadaşlar;
Çok faydalı bulduğum forum'nuz için öncelikle teşekkürler.
Exceli az bilen biri olarak makroda takıldık.Şimdi ise işin içinden çıkamadığım ekte bulunan bütün verilerinn girildiği bir sayfa var. Bu sayfada ise 3 kişiye veya daha fazla çalışana ait olan sayfa link'leri var.Bu verilerin girildiği sayfadan sütunda Filtreyi seçerek veya yanındaki onay tuşuna bastığımda o kişinin sayfasına satır halinde alt alta kopyalanıp gidecek bir formül varmıdır.
LÜTFEN YARDIMLARINIZI BEKLER.
ŞİMDİDEN TEŞEKKÜR EDERİM.

 

[nsertoglu]

' aşağıdaki kodu deneyin ve geliştirin..

Sub Filtrele_Kopyala()
'
Sheets("DANIŞMAN-USTA PERFORMANS").Select
Set WS = Sheets("DANIŞMAN-USTA PERFORMANS")
Set Rng = WS.Range("A3").CurrentRegion
WS.AutoFilterMode = False
'Seçilen ilk KİŞİ nin görüleceği hücre adresini buldurun gerisi tamam olmalı/deneyin
' Sadece ve Sadece görüntüsü güzel "işleriniz" hücreye boş yazmamalı
kisi = Cells(4, "F")
If kisi <> Empty Then
Rng.AutoFilter Field:=6, Criteria1:=kisi
ssayR = Rows.Count - WorksheetFunction.CountBlank(Range("a1:a" & Rows.Count))
Range("A1:AL" & ssayR).Select
Selection.Copy
Sheets(kisi).Select
Range(Rows.Count, "A").Select
sonR = Selection.End(xlUp).Row + 1
Cells(sonR, "a").Select
ActiveSheet.Paste
Range("A4").Select
Application.CutCopyMode = False
End If

End Sub

 

[HALILİBRAHIM]

İlginize çok teşekkür ederim ama malesef beceremedik.Hayırlısı diyorum buluruz inşallah bi yolunu.
Tekrar çok teşşekür ederim nsertoglu bey.