Jag håller på med en excel app. På flik 1 skriver jag in en del data, detta kopieras sedan till 3 andra flikar. På de andra tre flikarna ska datat sorteras efter A:Summa, sen E:summa.

Sorteringen fungerar men ramen ligger kvar och det stör sen första bladet.
Jag kan skriva till en cell på de andra bladen men inte sätta fokus på en cell.

Min kod ser ut så här:

<code>
Sub SortCellsSum()
'
' SortCellsSum Macro
Dim wrbBok As Workbook
Dim wrsAktivtBlad As Worksheet, wsBlad As Worksheet

Set wrbBok = ActiveWorkbook
Set wrsAktivtBlad = ActiveSheet

iRow = ActiveSheet.Columns("A").End(xlDown).Row
If iRow <= 2 Then iRow = 3

'slinga som går igenom alla kalkylblad
For Each wsBlad In wrbBok.Worksheets

'blad som vi vill utesluta från sorteringen
If wsBlad.Name = "Sammanställning" Then GoTo NastaBlad

'Sortera de andra bladen
If wsBlad.Name <> wrsAktivtBlad.Name Then
wsBlad.sort.SortFields.Clear
Range("A3:I" & iRow).Select

wsBlad.sort.SortFields.Add Key:=Range("F2:F" & iRow) _
, SortOn:=xlSortOnValues, order:=xlAscending, DataOption:=xlSortNormal
wsBlad.sort.SortFields.Add Key:=Range _
("H2:H" & iRow), SortOn:=xlSortOnValues, order:=xlDescending, DataOption:= _
xlSortNormal

With wsBlad.sort
.SetRange Range("A3:I" & iRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
nRow = iRow + 1
wsBlad.Range("A" & nRow).Select '<= Select method of Range class failed.
End If

NastaBlad:
Next wsBlad

End Sub
</code>

Jag vet aldrig hur många rader som kommer skrivas in, det kan vara allt från 4-5 och mer.
Allt det här sker efter att data har skrivits in på de olika bladen.

Tar tacksamt emot tips om det finns lättare sätt eller enklare kod.

//Anna-Karin