Userform gegeven wegschrijven

[kirs]

Goedemiddag,

Na het aanmaken van een userform en het nodige gepruts met formats en berekeningen wil ik nu graag het volgende:

In het userform worden gegevens van een huurder ingevuld.
Aan de hand van een combobox wordt een ruimte uitgezocht/toegewezen.
Vervolgens wil ik met de knop Opslaan er voor zorgen dat de (nieuwe) gegeven in de sheet achter het nummer van de ruimte worden ingevuld.

met wat knip en plak werk van andere codes heb ik dit gemaakt

Private Sub cmdOpslaan_Click()

' wegschrijven gegevens huurder

With Sheets("L")
Set r = .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp)).Find(cboUnits.Value)
TextBox_txtVoorletter.Value = .Cells(r.Row, 6)
TextBox_txtAchternaam.Value = .Cells(r.Row, 7)
TextBox_txtStraatnr.Value = .Cells(r.Row, 8)
TextBox_txtPostcode.Value = .Cells(r.Row, 9)
TextBox_txtPlaats.Value = .Cells(r.Row, 10)
TextBox_txtTelefoonnummer.Value = .Cells(r.Row, 11)
TextBox_txtMobiel.Value = .Cells(r.Row, 12)
TaxtBox_txtEmailadres.Value = .Cells(r.Row, 13)
TextBox_txtAanvanghuur.Value = .Cells(r.Row, 14)
TextBox_txtKorting.Value = .Cells(r.Row, 15)
TaxtBox_txtHuurprijsklant.Value = .Cells(r.Row, 16)
End With

End Sub

Met uitvoeren krijg ik echter de fout: 424 tijdens uitvoering, Object vereist.

Wie kan mij (verder) helpen?

Bekijk bijlage Test-forum.xlsm

 

[snb]

Gebruik:

Private Sub cmdOpslaan_Click()
  Sheets("L").columns(1).Find(cboUnits).offset(,5).resize(,11)=array(TextBox_txtVoorletter,TextBox_txtAchternaam,  etc. )
End Sub

Als je de namen van de tekstvakken wat kleiner maakt ziet het er ineens een stuk overzichtelijker uit:
bijv.

Private Sub cmdOpslaan_Click()
  Sheets("L").columns(1).Find(cboUnits).offset(,5).resize(,11)=array(T_06,T_07,T_08,T_09,T_10,T_11,T_12,T_13,T_14,T_15,T_16)
End Sub

Als het unitnummer niet gevonden kan worden krijg je de melding die je in je vraag aangaf.

 

[kirs]

optionbuttons Dhr. Mw.

Bedankt voor deze toevoeging.

Mijn tekstvakken worden nu inderdaad weggeschreven naar de rij en kolommen waar ik ze wil hebben.

Ik heb alleen nog 2 optionbuttons in mijn userform staan die ik nu niet verwerkt krijg.
Hoe kan ik die er bij in zetten?

En dan nog een aanvullende vraag.
Het is niet de bedoeling dat zomaar gegevens worden overschreven.
Dus als de rij al gevuld is, er is al een huurder voor bepaalde unit, kan er dan een melding komen dat de unit reeds bezet is?
of dat het echt wel de bedoeling is reeds ingevulde gegevens aan te passen?

Alvast bedankt voor alle hulp!