If zonder End If

[grema]

hoi,

in bijlage ontbreekt End If .

Zie niet waar . Kan iemand even helpen

.

 Private Sub Opslaan_Click()
Dim MyRange             As Variant
Dim c                   As Range
Dim i                   As Long
Dim stZoekenRechts      As String
Dim stZoekenLinks       As String

Set MyRange = Worksheets("bestel_lijst")


'tegen flikkeren van beeldscherm
Application.ScreenUpdating = False

If txbVoornaam <> "" And txbAdres.Text <> "" Then

    If chbLijst1 = True Then
    
        'Plaats eerst een popup schermpje om te vragen of de gegevens echt opgeslagen dienen te worden
        response = MsgBox("Weet u zeker dat u deze gegevens wilt opslaan op blad 1?", vbYesNo, Title:="Gegevens opslaan?")
        'is het antwoord nee verlaat dan het scherm
        If response = vbNo Then
            Exit Sub
        Else
            'waar gaan we opslaan
            legeregel = MyRange.Range("A" & Rows.Count).End(xlUp).Row + 1
        
            If txbVoornaam <> "" And txbAdres.Text <> "" Then
                With MyRange.Range("A" & legeregel)
                    'code aangepast zodat er altijd begin hoofdletters in je naam worden geplaatst
                    .Offset(, 0) = Application.WorksheetFunction.Proper(txbVoornaam.Text)
                    'code aangepast zodat er altijd begin hoofdletters in je adres worden geplaatst
                    'tevens referentie aangepast naar adres :)
                    .Offset(, 1) = Application.WorksheetFunction.Proper(txbAdres.Text)
                    .Offset(, 2) = txbTelefoonnummer.Text
                    .Offset(, 3) = txbGSM.Text
                    .Offset(, 4) = txbWerfadres.Text
                    .Offset(, 5) = txbWerfgemeente.Text
                    .Offset(, 6) = txbKlant.Text
                    .Offset(, 7) = txbWerkomschrijving1.Text
                    .Offset(, 8) = txbWerkomschrijving2.Text
                    .Offset(, 9).NumberFormat = "[$-413]dddd dd mmmm yyyy;@"
                End With
             End If
          End If
       
      MsgBox "bestelling is toegevoegd!"
       
     response = MsgBox("Wilt u nog een nieuwebestelling toevoegen?", vbYesNo, Title:="Gegevens opslaan?")
    If response = vbNo Then
         Me.Hide
         Unload Me
    Else
        UserForm_Initialize
    End If
   End If
 'tegen flikkeren van beeldscherm
Application.ScreenUpdating = True

End Sub

 

[Wigi]

Dit

If txbVoornaam <> "" And txbAdres.Text <> "" Then

moet nog afgesloten worden.

 

[grema]

thx Wigi


groet

grema