- Katılım
- 29 Kasım 2007
- Mesajlar
- 1,110
- Excel Vers. ve Dili
- excel 2007
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Sirala()
Dim SonSat As Long
SonSat = Cells(Rows.Count, "B").End(3).Row
Range("B3:V" & SonSat).Sort Key1:=[H1]
End Sub