Verİ SÜzme

[ANTALYA 01]

Ekteki Tabloda Sayfa 2 den Süzüp Sayfa 1 yapıştırmak istiyorum.Açıklama Sayfa 2 detaylı mevcut.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub AKTAR()
    Application.ScreenUpdating = False
    Sheets("Sayfa1").Range("B3:D65536").ClearContents
    Range("A2:C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Sayfa1").Select
    Range("B3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    Sheets("Sayfa2").Select
    Selection.AutoFilter Field:=2
    Range("A1").Select
    Sheets("Sayfa1").Select
    Application.ScreenUpdating = True
    MsgBox "AKTARIM İŞLEMİ BAŞARIYLA TAMAMLANMIŞTIR...!", vbInformation
End Sub

 

[ANTALYA 01]

s

Çok ama Çok teşekkürler tam sistediğim gibi