Fout in formulier

[Roma]

Beste specialisten,

Ik heb een formulier gemaakt en in het bestand moeten de gegevens automatisch naar een volgende rij gaan
Nu doet ie het niet meer. Ik kan het niet vinden wat ik fout heb gedaan.
Wie weet het wel?
Alvast bedankt.

Option Explicit
Dim WelkBlad   As String
Dim antwoord As Long, n As Long, m As Long
Dim laatsteRij As Range
Private Sub CommandButton1_Click()    'Opslaan
    If TextBox7 = "" Then
        MsgBox "De Maand nog Invullen!"
        Exit Sub
        
    End If
    WelkBlad = TextBox7.Text
    Application.ScreenUpdating = False
Sheets("Januari").Visible = True
Sheets("Februari").Visible = True
Sheets("Maart").Visible = True
Sheets("April").Visible = True
Sheets("Mei").Visible = True
Sheets("Juni").Visible = True
Sheets("Juli").Visible = True
Sheets("Augustus").Visible = True
Sheets("September").Visible = True
Sheets("Oktober").Visible = True
Sheets("November").Visible = True
Sheets("December").Visible = True

    Sheets(WelkBlad).Select
    Set laatsteRij = ActiveSheet.Range("C65536").End(xlUp)
    
    laatsteRij.Offset(1, 4).Value = TextBox1.Text 'Voorschot penningmeester bedrag
    laatsteRij.Offset(1, 8).Value = TextBox2.Text    'Diverse inkomsten bedrag
    laatsteRij.Offset(1, 10).Value = TextBox3.Text     'Inkoop
    laatsteRij.Offset(1, -2).Value = TextBox4.Text      'Dag
    laatsteRij.Offset(1, 11).Value = TextBox5.Text      'Bedrag Inkoop
    laatsteRij.Offset(1, 13).Value = TextBox6.Text     'Opmerkingen
    laatsteRij.Offset(1, -1).Value = TextBox7.Text     'Maand
    laatsteRij.Offset(1, 6).Value = TextBox8.Text     'Omschrijving diverse inkomsten
    laatsteRij.Offset(1, 15).Value = TextBox9.Text     'Afdracht penningmeester (verborgen)
    Columns("A:K").AutoFit

    MsgBox "Invoer gereed"

    antwoord = MsgBox("Meer invoeren?", vbYesNo)

    If antwoord = vbYes Then
          For m = 1 To 9
            Me.Controls("TextBox" & m) = ""
        Next m

        TextBox4.Text = Format(Now, "dd")
               TextBox7.Text = Format(Now, "Mmmm")
          Else
        Sheets("Welkom").Select
        Unload Me
    End If
''Sheets("Januari").Visible = False
''Sheets("Februari").Visible = False
''Sheets("Maart").Visible = False
''Sheets("April").Visible = False
''Sheets("Mei").Visible = False
''Sheets("Juni").Visible = False
''Sheets("Juli").Visible = False
''Sheets("Augustus").Visible = False
''Sheets("September").Visible = False
''Sheets("Oktober").Visible = False
''Sheets("November").Visible = False
''Sheets("December").Visible = False
End Sub
Private Sub CommandButton2_Click()    'Annuleren
    Sheets("Welkom").Select
    Unload Me
End Sub
Private Sub UserForm_Initialize()
      For m = 1 To 9
        Me.Controls("TextBox" & m) = ""
    Next m

    TextBox4.Text = Format(Now, "dd")
       TextBox7.Text = Format(Now, "Mmmm")
   
End Sub

 

[gast0660]

Hoi,
Het zou natuurlijk leuker zijn om een vbtje te posten met uw formulier

 

[Roma]

hierbij het bestandje
Alvast bedankt

 

[gast0660]

Hoi,
Heb je code eens bekeken en ik krijg genoeg foutmeldingen
Volgens uw code moeten alle maanden bestaan in het excelbestand (van Jan tot Dec)
In uw vb heb je alleen Dec
Ik zal morgen eens verder kijken (ik ben een vroege vogel)

 

[Roma]

Kan niet alle tabbladen plaatsen want dan wordt het bestand te groot