• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sırala makrosu

Katılım
30 Ekim 2010
Mesajlar
155
Excel Vers. ve Dili
2010 tr
Slm
c9:db2002 hücreleri arsında ak9 zu büyükten küçeğe sıralatmak istiyorum buton ile
c9:db2002 hücreleri arsında ak9 zu küçükten büyükğe sıralatmak istiyorum buton ile

uyguladığım sırala makrolarında veriler yarıda kalıyor ek dosyamı incelerseniz sevinirim
 

Ekli dosyalar

Son düzenleme:
Bahse konu dosyanız bulunamamıstır.
 
Makro kaydet yöntemi ile bunu kolayca yapmanız mümkün. Denediniz mi ?
 
Makro kaydet yönteminide denedim fakat c hüresindeki değerlerin diğer hücrelerde verisi olmayınca sıfır değer görüyor ve üste çekiyor.
 
Slm
c9:db2002 hücreleri arsında ak9 zu büyükten küçeğe sıralatmak istiyorum buton ile
c9:db2002 hücreleri arsında ak9 zu küçükten büyükğe sıralatmak istiyorum buton ile

uyguladığım sırala makrolarında veriler yarıda kalıyor ek dosyamı incelerseniz sevinirim
 
Sub kucukten_ buyugesırala()
'
' sırala Makro
'

'
Range("D9").Select
ActiveCell.FormulaR1C1 = "1"
Range("D10").Select
ActiveCell.FormulaR1C1 = "5"
Range("D11").Select
ActiveCell.FormulaR1C1 = "7"
Range("D12").Select
ActiveCell.FormulaR1C1 = "8"
Range("D13").Select
ActiveCell.FormulaR1C1 = "9"
Range("D14").Select
ActiveCell.FormulaR1C1 = "65"
Range("D15").Select
ActiveCell.FormulaR1C1 = "45"
Range("D16").Select
ActiveCell.FormulaR1C1 = "351"
Range("D17").Select
ActiveCell.FormulaR1C1 = "654"
Range("D18").Select
ActiveCell.FormulaR1C1 = "564"
Range("D20").Select
ActiveWindow.SmallScroll Down:=3
Range("D9:D19").Select
ActiveWorkbook.Worksheets("Tablo").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tablo").Sort.SortFields.Add Key:=Range("D9"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tablo").Sort
.SetRange Range("B9:E2002")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sub buykten_kucuktensırala()
Range("D23").Select
ActiveWindow.SmallScroll Down:=12
Sheets("Tablo").Select
End Sub


Range("D23").Select
ActiveWindow.SmallScroll Down:=12
Sheets("Tablo").Select
Application.WindowState = xlMinimized
ActiveWindow.SmallScroll Down:=-15
Range("D9:D18").Select
ActiveWorkbook.Worksheets("Tablo").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tablo").Sort.SortFields.Add Key:=Range("D9"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tablo").Sort
.SetRange Range("B9:E2002")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Tablo").Select
End Sub
 
Ekteki örneği inceleyin .
 

Ekli dosyalar

Geri
Üst