Süzüp Sayfalara kopyalamayı kodlamak

[Araştırıcı]

Merhaba,

Ekteki dosya açıldığında ortaya çıkan UserForm5 üzerinde yer alan Buton 76 vasıtası ile 12. sütun üzerinde yer alan kişileri süzdürüp sayfa2 kopyalatmak istiyorum. Bunu yapmaya çalıştım ama sadece süzülen alanın 1. satırını kopyalanabiliyor. Örnek olarak Nazan Karabay isimdeki kişiyi süzdürmeye çalıştım. Ama amacım o sütundaki kişileri ayrı ayrı butonlarla süzdürüp ayrı sayfalara kopyalatmak. Aşağıdaki kod bunun için yeterli olamadı. Nasıl kodları geliştirebiliriz?





Private Sub CommandButton76_Click()

Application.ScreenUpdating = False
Sheets("Sayfa2").[A2:U1000].Clear
Sheets("Takiptekiler").Select
If Sheets("Takiptekiler").AutoFilterMode = True Then
Range("A1:U1").Select
Selection.AutoFilter
End If
Range("A1:U1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=12, Criteria1:="NAZAN KARABAY"

If WorksheetFunction.Subtotal(2, [a2:a1000]) > 0 Then
Range("A2:U" & [a1000].End(3).Row).Copy Sheets("Sayfa2").[A2]
Selection.AutoFilter Field:=12
[A1].Select
Sheets("Takiptekiler").Select
[A1].Select
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
Else
Selection.AutoFilter Field:=12
Selection.AutoFilter Field:=14
[A1].Select
MsgBox "KRİTERLERE UYGUN VERİ BULUNAMAMIŞTIR !", vbExclamation
End If
Application.ScreenUpdating = True
End Sub

 

[Araştırıcı]

Merhaba


Konuyu çözümlemek imkansız mı yoksa benim yardım talebimde mi bir hata var?
Bu konuda bilgi alabilirsem sevinirim.

 

[mrttrn]

Private Sub CommandButton76_Click()

Application.ScreenUpdating = False
Sheets("Sayfa2").[A2:U1000].Clear
Sheets("Takiptekiler").Select
If Sheets("Takiptekiler").AutoFilterMode = True Then
***** Range("A1:U1").Select*******
Selection.AutoFilter
End If

Sn Araştırıcı;
***** Range("A1:U1").Select*******
burada range("A1:U1000).select olursa galiba sorun çözülüyor.Tam emin değilim.

 

[Araştırıcı]

Merhaba

Malasef tek satırını süzüyor ve kopyalıyor

 

[mrttrn]

Sn araştırıcı;
3 nolu mesajıma düzeltilen dosyayı ekledim.İndirip bakmayı unutmayınız.

Sayfa2 de sadece Nazan Karabey ile ilgli satırlar çıkıyor.İnşallah isteğinizi karşılar.

 

[Araştırıcı]

Sayın mrttrn

Emeğiniz için teşekkürler. Gösterdiğiniz yoldan projemi geliştirmeye çalışacağım.
Kolay gelsin,

Saygılarımla