Meerdere macro's tegelijk starten met 1 knop

[Schipperjte]

Hoi

Weer een aardige vraag waar ik niet uitkom

ik wou graag 2 macro's tegelijk of achter elkaar gebruiken met 1 druk op de knop

de ene is voor opslaan als , de andere voor gegevens kopieeren naar databasis

Heb geprobeerd te plakken in 1 macro , maar steed foutmeldingen
de ene na de andere

wie ? heb gezocht maar kan niets vinden

Deze macro's zijn het , heb ze ook van het forum
dus denk dat iemand mij wel kan helpen .

Mzzl
Bas

Sub Bewaren()
Dim CelMetNaam As String
On Error Resume Next
CelMetNaam = ActiveSheet.Range("AC1").Value
ThisWorkbook.SaveAs Filename:="C:\2006\" & CelMetNaam
End Sub


Option Explicit

Sub kopie()
Dim x As Long
x = Sheets("register").Cells(Rows.Count, "A").End(xlUp).Row
Range("B22").Copy _
Sheets("register").Range("E" & x).Offset(1, 0)
Range("E2").Copy _
Sheets("register").Range("C" & x).Offset(1, 0)
Range("A2").Copy _
Sheets("register").Range("D" & x).Offset(1, 0)
Sheets("register").Select
Range("A" & x).Offset(1, 0) = "VTV-" & Format(x, "0000")
End Sub

 

[Roncancio]

Voor het starten van de macro:

Sub startmacro()

Bewaren
Kopie

End Sub


Korter kan volgens mij niet.

Wat betreft de foutmelding: Je moet de Option Explicit bovenin de code zetten.

Dus ter volledigheid:

Option Explicit
Sub startmacro()

Bewaren
kopie

End Sub

Sub Bewaren()
Dim CelMetNaam As String
On Error Resume Next
CelMetNaam = ActiveSheet.Range("AC1").Value
ThisWorkbook.SaveAs Filename:="C:\2006\" & CelMetNaam
End Sub


Sub kopie()
Dim x As Long
x = Sheets("register").Cells(Rows.Count, "A").End(xlUp).Row
Range("B22").Copy _
Sheets("register").Range("E" & x).Offset(1, 0)
Range("E2").Copy _
Sheets("register").Range("C" & x).Offset(1, 0)
Range("A2").Copy _
Sheets("register").Range("D" & x).Offset(1, 0)
Sheets("register").Select
Range("A" & x).Offset(1, 0) = "VTV-" & Format(x, "0000")
End Sub