@Albert,
Hartelijk dank voor jouw mogelijke oplossing.
De betreffende code moet echter geïmplementeerd worden achter de macro van de opdrachtknop, in onderstaande code dus :
Private Sub CommandButton1_Click()
If TextBox1 = "g" Then
With Sheets("IDX-geb")
i = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
.Range("A" & i).Resize(, 11) = Array(TextBox2, CDbl(TextBox3), CDbl(TextBox4), CDbl(TextBox5), ComboBox1.Text, ComboBox2.Text, ComboBox3.Text, _
ComboBox4.Text, ComboBox5.Text, ComboBox6.Text, ComboBox7.Text)
.Columns("A:K").EntireColumn.AutoFit
End With
'hier code voor eventuele aanvulling keuzelijsten voor gebruikte comboboxen bij 'geboorte'
End If
If TextBox1 = "h" Then
With Sheets("IDX-huw")
i = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
.Range("A" & i).Resize(, 16) = Array(TextBox2, CDbl(TextBox3), CDbl(TextBox4), CDbl(TextBox5), ComboBox1.Text, ComboBox2.Text, ComboBox3.Text, _
ComboBox4.Text, ComboBox5.Text, ComboBox6.Text, ComboBox7.Text, ComboBox8.Text, ComboBox9.Text, ComboBox10.Text, ComboBox11.Text, ComboBox12.Text)
ii = i + 1
If TextBox2 = "m" Then TextBox2 = "v"
.Range("A" & ii).Resize(, 16) = Array(TextBox2, CDbl(TextBox3), CDbl(TextBox4), CDbl(TextBox5), ComboBox1.Text, ComboBox8.Text, ComboBox8.Text, _
ComboBox9.Text, ComboBox10.Text, ComboBox11.Text, ComboBox12.Text, ComboBox2.Text, ComboBox4.Text, ComboBox5.Text, ComboBox6.Text, ComboBox7.Text)
.Columns("A:P").EntireColumn.AutoFit
End With
'hier code voor eventuele aanvulling keuzelijsten voor gebruikte comboboxen bij 'huwelijk'
End If
If TextBox1 = "o" Then
With Sheets("IDX-ovl")
i = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
.Range("A" & i).Resize(, 14) = Array(TextBox2, CDbl(TextBox3), CDbl(TextBox4), CDbl(TextBox5), ComboBox1.Text, ComboBox2.Text, ComboBox3.Text, _
ComboBox4.Text, ComboBox5.Text, ComboBox6.Text, ComboBox7.Text, ComboBox8.Text, ComboBox9.Text, TextBox18)
.Columns("A:N").EntireColumn.AutoFit
End With
'hier code voor eventuele aanvulling keuzelijsten voor gebruikte comboboxen bij 'overlijden'
End If
'leegmaken van alle text- en comboboxen
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
ctrl.Value = ""
End If
If TypeName(ctrl) = "ComboBox" Then
ctrl.ListIndex = -1
End If
Next ctrl
End Sub
groetjes,
BlackDevil