Userform opniueyw naar sheet

[verluc]

Heb onderstaande macro die de gegevens van sheet "Data" in een userform plaatst.
Mijn probleem is : hoe kan ik na een eventuele wijziging in deze userform deze terug op de juiste plaats krijven op de sheet "Data"?

Sub ComboBox1_Change()
Dim iRow   As Long
Dim oRng As Range
Set oRng = ThisWorkbook.Sheets("Data").Cells.Find(what:=ComboBox1.Value, lookat:=xlWhole)
TextBox1.Value = oRng.Offset(0, 0).Value
TextBox2.Value = oRng.Offset(0, 1).Value
TextBox3.Value = oRng.Offset(0, 4).Value
TextBox4.Value = oRng.Offset(0, 3).Value
TextBox5.Value = oRng.Offset(0, 14).Value
TextBox6.Value = oRng.Offset(0, 15).Value
TextBox7.Value = oRng.Offset(0, 16).Value
End Sub

Met dank bij voorbaat

 

[SjonR]

Zet een knop op je userform met bijna dezelfde code erin. Alleen even omdraaien.

Dim iRow   As Long
Dim oRng As Range
Set oRng = ThisWorkbook.Sheets("Data").Cells.Find(what:=ComboBox1.Value, lookat:=xlWhole
oRng.Offset(0, 0).Value = TextBox1.Value 

etc...

 

[HSV]

Als de gegevens voor de combobox uit dezelfde range komen, heb je geen zoekfunctie nodig.
De listindex +1 van je combobox is de rijnummer.

 

[verluc]

SjonR, bedankt voor Uw reactie. Werkt inderdaad zoals gezocht.

HSV : de combobox is inderdaad gelijk aan het kolom A van de Sheet "Data"
Wat bedoeld U met geen zoekfunctie nodig ?

 

[HSV]

Dat je niet hoeft te zoeken met find.

 

[verluc]

Hello HSV,

Dit is mijn huidige macro om de userform op te slaan.
Feit is dat het opslaan veel tijd in belag neemt, ongeveer 15 seconden
Waaraan kan dit liggen ?

Sub Opslaan_Click()
Dim oRng As Range
Set oRng = ThisWorkbook.Sheets("Data").Cells.Find(what:=ComboBox1.Value, lookat:=xlWhole)
oRng.Offset(0, 0).Value = TextBox1.Value
oRng.Offset(0, 1).Value = TextBox2.Value
oRng.Offset(0, 4).Value = TextBox3.Value
oRng.Offset(0, 3).Value = TextBox4.Value
oRng.Offset(0, 14).Value = TextBox5.Value
oRng.Offset(0, 15).Value = TextBox6.Value
oRng.Offset(0, 16).Value = TextBox7.Value
Me.Hide
End Sub

 

[HSV]

Plaats het bestand eens.

 

[verluc]

Hierbij een deeltje van het bestand, zonder gevoelige informatie.
Het estand bevat ongeveer 350 rijen.Bekijk bijlage Map2.xlsx

 

[HSV]

Ik denk dat je het verkeerde bestand geplaatst hebt.
Geen userform, geen code, geen gegevens in het tweede blad.
Aan de hand daarvan kun je zien wat er verwacht wordt van een code.

 

[verluc]

HSV, zoals reeds eerder aangehaald werkt mijn userform naar behoren, doch zeer traag.
Omdat ik mij wil verdiepen in de werking hiervan zal ik zelf proberen uit te zoeken
wat de oorzaak kan zijn van deze traagheid.
Mocht het mij niet lukken kan ik later terug op deze materie.
Alvast bedankt voor Uw medewerking.