Sırala makrosu

[16prens]

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

 

[parametre]

Bahse konu dosyanız bulunamamıstır.

 

[16prens]

Dosya ektedir

 

[16prens]

Arkadaşlar yardımcı olacak kimse yokmu

 

[mustafa1205]

Makro kaydet yöntemi ile bunu kolayca yapmanız mümkün. Denediniz mi ?

 

[16prens]

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.

 

[16prens]

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

 

[parametre]

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("D919").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("D918").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

 

[mustafa1205]

Ekteki örneği inceleyin .