sıraya koyma

[Astik]

ekte çalıştığım ufak bir program var ama herhalde yanlış, çözemedim daha

yardımlarınız için teşekkürler..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub sırayakoy()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s1.Range("a1:a" & s1.[a65536].End(3).Row).Copy s2.[a1]
s2.[a:a].Sort Key1:=s2.[a1], Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub