Probleem met knop definitie

[HSV]

Zo heb je een volwaardige code inclusief foutafhandeling.

Private Sub cbinTabel_Click()
With cbZoekRadiator
  If txtRuimteCode <> "" And cbZoekRadiator.ListIndex > -1 And cbJaNee.ListIndex > -1 Then
    Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 8) = Array(txtRuimteCode, txtAantalRadiatoren, .Column(0), .Column(1), .Column(2), .Column(3), cbJaNee.Column(0), txtOpmerkingen)
       txtRuimteCode = ""
       txtAantalRadiatoren = ""
          .ListIndex = -1
       cbJaNee.ListIndex = -1
       txtOpmerkingen = ""
    Else
      MsgBox "Vul op z'n minst de eerste textbox en de beide comboboxen!"
    End If
  End With
End Sub

Edit: foutafhandeling tegen overschrijven van kolom A.

 

[gvwezel]

Dank je Harry
geweldig
nu ga eens tijd nemen om dat helemaal te snappen wat er nu staat in de code .
en hoop dit de volgende keer zelf te kunnen.
gr Gertjan

 

[gvwezel]

mmm ik zoek nog ven waarom er een fout komt in 1e en 2e kolom bij invullen komt melding dat het als een text met apostrof word opgemaakt
en het zit niet in de cell opmaak .maar ik zie het niet in de VBA?

 

[HSV]

Zo moet het opgelost zijn.

Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 8) = Array(txtRuimteCode[COLOR=#ff0000].Value[/COLOR], txtAantalRadiatoren[COLOR=#ff0000].Value[/COLOR], .Column(0), .Column(1), .Column(2), .Column(3), cbJaNee.Column(0), txtOpmerkingen[COLOR=#ff0000].Value[/COLOR])