Sub Lajittele()
Range("L2").Select
ActiveCell.Range("A1:O1").Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell = Empty Then
Else: Lajittele
End If
End Sub
Miten tuon saisi tekemään silmukkaa riviltä 3 lauseesta
ActiveCell.Range("A1:O1").Select
Suoritushan loppuu kun eteen tulee tyhjä solu.
Range("L2").Select
ActiveCell.Range("A1:O1").Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell = Empty Then
Else: Lajittele
End If
End Sub
Miten tuon saisi tekemään silmukkaa riviltä 3 lauseesta
ActiveCell.Range("A1:O1").Select
Suoritushan loppuu kun eteen tulee tyhjä solu.
Vastaukset 1
Vanhimmat
Sub Lajittele()
Do
ActiveCell.Range("A1:O1").Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
ActiveCell.Offset(1, 0).Range("A1").Select
Loop