butonla sıralam formülünde değişiklik

[zulfuernek]

Private Sub CommandButton3_Click()
'TCKN YE GÖRE SIRALAR (BOŞLUKLARI SİLER)
Application.ScreenUpdating = False
Range("A:K").Select
ActiveWorkbook.Worksheets("LİSTE").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("LİSTE").Sort.SortFields.Add Key:=Range("A11"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("LİSTE").Sort
.SetRange Range("A:K")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A11").Select
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub


yukarıdaki koda göre butona tıklayınca listeyi a sütunundan başlayarak karşısına denk gelen değerleri bozmadan bağlı bir şekilde sırlıyor. ancak ben A1 HÜCRESİNDEN DEĞİLDE A11 HÜCRESİNDEN BAŞLAMASINI İSTİYRUM VE A 11 HÜCRESİNE KADAR HİÇBİR DEĞİŞİKLİK OLMASIN İSTİYORUM.

 

[zulfuernek]

A:K yazan kısmı A11:K yaptığım zamanda hata veriyor

 

[zulfuernek]

çözüldü:

formülün en başına
on error resume next

yazmam kafi geldi.

ilgilenen herkese teşekkürler

 

[Ömer BARAN]

Merhaba.

Aşağıdaki tek satırlık kod da aynı işi yapar Sayın ERNEK.
.

Sub SIRALA()
Sheets("LİSTE").Range("A11:K" & Sheets("LİSTE").Cells(Rows.Count, 1).End(3).Row).Sort Sheets("LİSTE").[A10], 1
End Sub

 

[zulfuernek]

bunuda deneyeceğim ömer hocam. emeğine sağlık