İsteğe göre sıralama

[manly]

Ben SONUÇ sayfasındaki verilerin SIRALA sayfasındaki yere sipariş durumuna göre sıralanmasını makro olarak aktarılmasını istiyorum..

 

[Ömer]

Merhaba,

Sub AktarSırala()
 
Dim Sn As Worksheet, Sr As Worksheet, son As Long
 
Set Sn = Sheets("SONUÇ")
Set Sr = Sheets("SIRALA")
son = Sn.Cells(Rows.Count, "C").End(xlUp).Row
 
Sn.Range("C:C,F:G,W:W").Copy Sr.Range("A1")
Sr.Range("A2:D" & son).Sort Sr.Range("D2")

End Sub

.

 

[manly]

Teşekkürler...Ellerinize sağlık....