Samenvoegen of combineren van codes

[Puntdroad123]

Hallo,


Ik heb een korte vraag over het samenvoegen of combineren van verschillende macro codes.
Onderstaande worden gebruikt in een userform. Elke heeft een eigen button om de code te activeren.
Nu wil ik dat de gebruikers dit maar met 1 knop moeten doen, is wel zo makkelijk
Ben al bezig geweest met een nieuwe code te maken en ze dan zo neer te zetten (voorbeeld), maar dan lukt het me niet om de codes uit te voeren

Sub Samen()

Call Macro1
Call Macro2
Call Macro3

End Sub

Kan iemand mij weer op weg helpen??


Private Sub opslaan_click()
'KLAAR
Dim Irow As Long
Dim ws As Worksheet

Set ws = Worksheets("Verwerkte Data")


'vindt laatst gebruikte cel, ga naar de volgende rij
Irow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).row

'plaats de gegevens in de database
ws.Cells(Irow, 1).value = Me.ListBox1.value
ws.Cells(Irow, 43).value = Me.ComboBox1.value
ws.Cells(Irow, 2).value = Me.Text_Klant.value
ws.Cells(Irow, 3).value = Me.Text_Aanhef.value
ws.Cells(Irow, 4).value = Me.Text_Adres.value
ws.Cells(Irow, 5).value = Me.Text_Postcode.value
ws.Cells(Irow, 6).value = Me.Text_Woonplaats.value
ws.Cells(Irow, 7).value = Me.Text_ID.value
ws.Cells(Irow, 8).value = Me.Text_Jaar.value

End Sub


Private Sub Leegmaken_click()
'KLAAR

Dim ListRange As Range
Dim c As Control
For Each c In Me.Controls
Select Case TypeName(c)
Case "TextBox", "ComboBox"
c.value = ""
Case "OptionButton", "CheckBox"
c.value = False
End Select
Next

End Sub


Private Sub Vernieuw_click()
'KLAAR

Dim strRowSource As String
With ListOfData

strRowSource = .RowSource
.RowSource = vbNullString
.RowSource = strRowSource
End With
End Sub

 

[SjonR]

Je zal op z'n minst even moeten verwijzen naar je macro''s.

 

[snb]

Gebruik svp code tags.