DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[B][COLOR="blue"]Sub SIRALA()[/COLOR][/B]
Sheets("Sayfa1").Range("[B][COLOR="Red"]A[SIZE="4"]2[/SIZE]:G[/COLOR][/B]" & Rows.Count).Sort Sheets("Sayfa1").[[B][COLOR="Red"]A[SIZE="4"]1[/SIZE][/COLOR][/B]], [B][COLOR="red"][SIZE="4"]2[/SIZE][/COLOR][/B]
[B][COLOR="Blue"]End Sub[/COLOR][/B]