nasıl aktarılır?

[önder34]

merhaba arkadaşlar benim excel çalışma dosyamda sayfa birde 100 adet personel ca sütununa kadar da kişibilgileri var. Ben bunları ikinci sayfada soyadına göre alfabetik sıralanmış olarak tüm bilgilerini nasıl aldırabilirim yardımcı olabilecek arkadaşların yardımlarını bekliyorum

 

[AS3434]

Aşağıdaki kodları bir butona atayın. Butonu Sayfa1 e koyun.

Sub Makro1()
    Cells.Copy
    Sheets("Sayfa2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    [B2:IV65536].Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("B2") _
        , Order2:=xlAscending, Key3:=Range("D2"), Order3:=xlAscending
    [A1].Select
End Sub

 

[önder34]

teşekkür

yardımınız için teşekkür yeni bir sorum olacak bütün bölümlerini değilde seçma bazı sütundaki verileri aktaracak olursak nasıl yapabiliriz acaba bu sorumada çözüm bulabilirseniz sevinirim