Szia!

Természetesen, csak elsőre nem akartam …

Private Sub workbook_open()
‘
Windows(„CONT_HALE_kiadott_feladatok.xlsx”).Activate
Cells.Select
Selection.Copy
Windows(„penzum.xlsm”).Activate
Sheets(„Reggeli legyűjtés”).Select
Range(„A1”).Select
ActiveSheet.Paste
‘
Sheets(„Reggeli legyűjtés”).Select
Columns(„B:B”).Select
Selection.TextToColumns Destination:=Range(„B1”), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Columns(„J:J”).Select
Selection.TextToColumns Destination:=Range(„J1”), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

Cells.Select
ActiveWorkbook.Worksheets(„Reggeli legyűjtés”).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(„Reggeli legyűjtés”).Sort.SortFields.Add2 Key:=Range( _
„J2:J9999”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets(„Reggeli legyűjtés”).Sort.SortFields.Add2 Key:=Range( _
„M2:M9999”), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets(„Reggeli legyűjtés”).Sort
.SetRange Range(„A1:N9999”)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range(„A1”).Select
Sheets(„Munka1”).Select

End Sub

A hibaüzenet pedig: Run-time error’9 Subscript out of range

Ja és kipróbáltam a windows/sheet helyett a workbooks / worksheets verziót is. Az se jó.
A feladat egy adatállomány másolása egyik munkafüzetből a másikba majd rendezése. Az elakadás minden esetben a munkafüzet / lap váltáskor van.

Köszi