Relative makroer (scripts)

Prøv at uddybe hvis du vil have noget svar.
Har alle de ark hvor du vil anvende makroen den samme standard/opbygning?
Er det samme placering på alle arkene osv.?
Smid evt. en e-mail-adresse hvor kopi af arket kan rekvireres hvis det er for svært at forklare opbygningen af regnearket.

Hvis du giver de bøger som skal være med en 'named range', og så i din kode noget lignende: (start med for each Wb....)


The_right_book = False

For Each One_name In Workbooks(Book_name_x).Names
    If LCase(One_name.Name) = Test_string Then
        The_right_book = True
        Exit Function
    End If
Next

if The_right_book = True then.........

Jeg prøver at forklare:
Regnearkene er helt ens opbygget. Det er arbejdsbøger der skal bruges til lønberegning: Der er et ark til hver medarbejder i arbejdsbogen. Der er en arbejdsbog til hvert år.
Scriptet/makroen skal kunne nulstille alle inddataceller i hvert ark via en knap. Denne knap skal være placeret på hvert ark eller som et menupunkt.
Jeg kan IKKE programmere, men ønske at kunne indspille scriptet/makroen. Problemet er at makroen under indspilningen tilknytter oplysninger om ark og arbejdsbog. Fjerner jeg disse oplysninger fra scriptet virker det ikke!

Hvad hvis du erstatter workbook navnet med ActiveWorkbook?

jeg har prøvet med nedenstående script, men det virker ikke. Jeg havde håbet at det ville få scriptet til at vælge det ark og den arbejdsbog markøren befandt sig i og så starte derfra. Scriptet er blot et eksperiment og ikke det færdige)!!

Sub nulstil
    Set Current = CurrentDocument.CurrentSheet
    Current.Select
    [current].MoveCellPointer $FirstCell,1
    [current].MoveCellPointer $Right,1
    [current].MoveCellPointer $Down,1
    Selection.Reshape [A:B2..A:C2]
    Selection.Reshape [A:B2..A:C3]
    Selection.Clear ClearData
End Sub