Slet kodning i "Microsoft Visual Basic for Applications" ved hjælp af VBA kode - 1.000 point
Jeg har lavet en VBA kode, se neden for, som kopirer 4 faner til en ny Excel fil, ved at klikke på en knap, som indeholder nedenstående VBA kode. Mit problem er, at de 4 faner indeholder VBA koder, som er lavet i "Microsoft Visual Basic for Applications" (Visual Basic).Når de 4 faner bliver kopieret til en ny Excel fil, kunne jeg godt tænke mig, at nedenstående VBA kode automatisk sletter de koder som ligger i Visual Basic. Ved ikke om dette er muligt?
På forhånd tak for hjælpen:
PS: Er villig til at give 1.000 point
VBA kode
Sub OvfRegnskab()
Sheets(Array("Hovedtal", "Resultatopgørelse", "Balance", "Noter")).Select
Sheets("Resultatopgørelse").Activate
Sheets(Array("Hovedtal", "Resultatopgørelse", "Balance", "Noter")).Copy
ActiveWindow.SmallScroll Down:=-12
Cells.Select
Range("A35").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-50
Range("B2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Hovedtal for selskab"
Range("C2").Select
Sheets("Resultatopgørelse").Select
ActiveWindow.SmallScroll Down:=-40
ActiveWindow.DisplayHeadings = True
ActiveSheet.Unprotect
Rows("1:7").Select
Range("A7").Activate
Selection.Delete Shift:=xlUp
Cells.Select
Range("B2").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Resultatopgørelse"
Columns("E:L").Select
Selection.EntireColumn.Hidden = False
Range("F:F,J:J").Select
Range("J1").Activate
Selection.Delete Shift:=xlToLeft
Range("D8").Select
Windows("selskab.xlsm").Activate
Sheets("Balance").Select
ActiveWindow.DisplayHeadings = True
ActiveSheet.Unprotect
Rows("1:5").Select
Selection.Delete Shift:=xlUp
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Balance"
Columns("E:K").Select
Selection.EntireColumn.Hidden = False
Range("F:F,J:J").Select
Range("J1").Activate
Selection.Delete Shift:=xlToLeft
Range("D6").Select
Sheets("Noter").Select
ActiveWindow.DisplayHeadings = True
Rows("1:4").Select
ActiveSheet.Unprotect
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=-93
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Noter"
Columns("C:H").Select
Selection.EntireColumn.Hidden = False
Range("D:D,G:G").Select
Range("G1").Activate
Selection.Delete Shift:=xlToLeft
Range("C3").Select
ActiveWindow.SmallScroll Down:=-41
Sheets("Hovedtal").Select
End sub