Userform voor meerdere werkbladen

[sparerib]

Beste,

Ik heb op dit moment een userform gemaakt en heb hierbij de volgende code gemaakt, dit is alleen het begin van de code!

Private Sub cmdinvoeren_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data kopieer print 2009")
End Sub

Nu wil ik deze userform ook gebruiken op de werkbladen Data Kopieer print 2010 en Data Kopieer print 2011.
Wat moet ik in de formule veranderen zodat de informatie van de userform wordt verwerkt op de pagina waar ik bezig ben?
Ik heb gewoon op elke pagina een knop gemaakt waardoor ik de userforum show

Indien nodig heb ik hieronder de volledige formule geplaatst.
Bedankt,,

Private Sub cmdinvoeren_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data kopieer print 2009")

iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

If Trim(Me.txtDatum.Value) = "" Then
  Me.txtDatum.SetFocus
  MsgBox "Gelieve een datum invoeren"
  Exit Sub
End If

ws.Cells(iRow, 2).Value = Me.txtDatum.Value
ws.Cells(iRow, 3).Value = Me.ComboBox1.Value
ws.Cells(iRow, 4).Value = Me.ComboBox2.Value
ws.Cells(iRow, 5).Value = Me.ComboBox3.Value
ws.Cells(iRow, 6).Value = Me.ComboBox4.Value

Me.txtDatum.Value = ""
Me.ComboBox1.Value = ""
Me.ComboBox2.Value = ""
Me.ComboBox3.Value = ""
Me.ComboBox4.Value = ""
Me.txtDatum.SetFocus
End Sub

 

[Warme bakkertje]

Probeer hier eens mee.

Set ws = Worksheets(ActiveSheet.Name)

 

[sparerib]

Hartelijk bedankt!