Makro - Tilbage til udgangspunktet

Hmmm.
Hvis du vælger -funktioner, -makro, -makroer, markerer din makro, og så vælger "rediger", så ser du (visual basic?) koden for din makro, og kan så copy/paste koden herover, og blive langt lettere at hjælpe.

Hej

VBA ser således ud:

Sheets("RFP - v) Products and pricing2").Select
    ActiveSheet.Buttons.Add(582.6, 3.6, 112.8, 41.4).Select
    Sheets("RFP - v) Products and pricing2").Copy
    ActiveWindow.SmallScroll Down:=-6
    Rows("3:199").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-21
    Range("L8").Select
    Application.CutCopyMode = False
    ActiveSheet.Shapes("Button 1").Select
    Selection.Delete
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("I1").Select
    Application.Goto Reference:="'RFP - vi)(category information)'!R[-1]C[16367]"
End Sub

Jeg oplever ikke det problem du beskriver nær jeg forsøger at efterabe

Jeg har
- opret ny tom projektmappe
- lav lidt tilfældige funktioner i den nye mappe (indsætte tal og addere)
-gå tilbage til master mappe (i mit tilfælde masteren)

det ser sådan ud

*************************************************

Sub test2()
'
' test2 Makro
' Makro indspillet 27-10-2011 af APS
'

'
    Workbooks.Add
    Range("F6").Select
    ActiveCell.FormulaR1C1 = "7"
    Range("F7").Select
    ActiveCell.FormulaR1C1 = "4"
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "=+R[-2]C*R[-1]C"
    Range("F9").Select
    Windows("Mappe1").Activate
End Sub

***********************************************

Jeg tror at forskellen handler om "måden" man vælger at skifte projektmappe på

hvis du copy/paster linien
Windows("Mappe1").Activate
til lige over "end sub" i din makro
og erstatter "mappe1" med navnet på din "master"
så vil du komme retur.

...muligvis skal du slette linien "Application.Goto..."
som jeg antager er den linie som skulle "bringe dig retur" men som ikke "dur".

Linien er identisk med "fejlmeldingen", så det dækker vel over at det er den linie der er knas med.

Glemte lige
- Jeg arbejder i Office 2003, men der er antaglig ikke forskel på vba kommandoer.

Jeg kan nu komme tilbage til udgangspunktet, men ikke det rigtige ark - Hvordan gør jeg det? Jeg har prøvet følgende (Projektmappenavn=Untool og arknavn = REPvi):

Windows("UNTOOL;RFPvi").Activate

Mon ikke du leder efter en sekvens som denne.

Sub Makro1()
'
' Makro1 Makro
' Makro indspillet 27-10-2011 af APS
'

'
    Workbooks.Add
    Windows("UNTOOL.xls").Activate
    Sheets("RFPvi").Select
    Range("A2").Select
End Sub

Hvor "UNTOOL" er master projektmappe
"RFPvi" er den ønskede arkfane i den mappe, og
"A2" er et eksempel på at man ønsker at returnere i én bestemt celle.

Tak for hjælpen - Vil du give mig et svar, så du kan få dine point.

Se #6 ;-)