Redigering av Makro

[Knekkeren]

Hei. Jeg har Vista og Office 2007 på Norsk

Jeg driver med en arbeidsbok der jeg har makroer og er nå snart ferdig. Jeg skulle gjerne ha redigert en Macro så den ble like Kort og rolig som de andre (etter GOD hjelp av Harald).

Til orientering fungerer makro som den skal men man kan se att den går.

På forhånd Takk

 

Sub KopiereRegark()

'

' KopiereRegark Makro

'

 

'

If InputBox("Passord:") <> "Nisse" Then Exit Sub

ActiveSheet.Unprotect

Sheets("Reg ark").Unprotect

ActiveSheet.Unprotect

Sheets("Årsskifte").Unprotect

Sheets("Reg ark").Select

Range("E7:J59").Select

Selection.Copy

Range("M7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("W7:AL59").Select

Application.CutCopyMode = False

Selection.Copy

Range("AO7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("BI7:BU59").Select

Application.CutCopyMode = False

Selection.Copy

Range("BX7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("CO7:DB59").Select

Application.CutCopyMode = False

Selection.Copy

Range("DE7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("DW7:FE59").Select

Application.CutCopyMode = False

Selection.Copy

Range("FH7").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Årsskifte").Range("B13").Value = "X"

Sheets("Årsskifte").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

False

Sheets("Reg ark").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

False

Sheets("Årsskifte").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

False

 

End Sub

Endret 1. mai 2010 av Brekkom