Osaisiko joku sanoa, mikä alla olevassa koodissa on vikana, kun listan ensimmäinen eli solussa A6 oleva yritys ei ole mukana aakkostuksessa (sort).
Dim Rownumber As String
Sheets("Customer list").Activate
Range("A6").Activate
Do While ActiveCell.Cells.Font.Bold = False
ActiveCell.Offset(1, 0).Activate
Loop
Rownumber = ActiveCell.Row - 1
Sheets("Customer list").Select
Rows("6:" & Rownumber & "").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Dim Rownumber As String
Sheets("Customer list").Activate
Range("A6").Activate
Do While ActiveCell.Cells.Font.Bold = False
ActiveCell.Offset(1, 0).Activate
Loop
Rownumber = ActiveCell.Row - 1
Sheets("Customer list").Select
Rows("6:" & Rownumber & "").Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Vastaukset 3
Vanhimmat
offset(1,0) eli yhden rivin siirtymä...
Kun sulla on tuossa Sort-menetelmässä ton Header-parametrin arvona xlGuess, niin arvaisiko Excel jostain syystä väärin, ja luulee, että ylin rivi on otsikkorivi. Oletko koittanut arvolla Header:=xlNo ?
Tai jätät parametrin vallan pois, oletus on xlNo.
- Mika
Kiitos Mika!
Ongelma oli tosiaan tuon otsikon kanssa. Nyt toimii :)