UserForm auto udfyld

Du kan lave et særskilt ark, hvor du laver et opslag i din kundedatabase for at hente kundeoplysninger.

De respektive felter på din userform skal så opdateres hver gang feltet med kundernummer ændres. Dette gøres v.h.a. "change"-hændelsen.

Det jeg men er, At jeg har en userform for indtastning af ny kunder, hvor den gemmer kundeoplysningerne i KundeDB. Det jeg så vil er at jeg har et andet UserForm hvor jeg indtaster kunde nummeret så henter den selv navn,adresse osv. ind i felterne i UserFormen. noget lig Lopslag men bare i UserForm via VBA

Har selv fundet ud af det.

Private Sub cmdGem_Click()
Worksheets("Faktura").Activate
Range("D15").Select
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
With ActiveCell
.Value = ComboBox6.Text
.Offset(-1, 0) = txtPost.Text
.Offset(-3, 0) = txtNavn.Text
.Offset(1, 0) = txtMobil.Text
.Offset(-2, 0) = txtAdresse.Text
.Offset(-1, 2) = txtLand.Text
.Offset(0, 2) = txtFax.Text
.Offset(1, 2) = txtMail.Text
.Offset(-2, 9) = txtAntal.Text
.Offset(6, 0) = lstSuppe.Text
.Offset(6, 8) = txtSuppepris.Text
.Offset(7, 8) = txtForretpris.Text
.Offset(8, 8) = txtHovedretpris.Text
.Offset(9, 8) = txtDessertpris.Text
.Offset(10, 8) = txtNatmadpris.Text
.Offset(7, 0) = lstForret.Text
.Offset(8, 0) = lstHovedret.Text
.Offset(9, 0) = lstDessert.Text
.Offset(10, 0) = lstNatmad.Text
.Offset(11, 0) = txtkaffe.Text
.Offset(11, 8) = txtKaffepris.Text







End With


End Sub

lukket

forkert klip :(
her er det rigtige

Private Sub ComboBox6_Change()

txtNavn.Value = Range("a1").Offset(ComboBox6.ListIndex + 1, 1)
txtAdresse.Value = Range("a1").Offset(ComboBox6.ListIndex + 1, 2)
txtPost.Value = Range("a1").Offset(ComboBox6.ListIndex + 1, 3)
txtLand.Value = Range("a1").Offset(ComboBox6.ListIndex + 1, 4)
txtMobil.Value = Range("a1").Offset(ComboBox6.ListIndex + 1, 5)
txtFax.Value = Range("a1").Offset(ComboBox6.ListIndex + 1, 6)
txtMail.Value = Range("a1").Offset(ComboBox6.ListIndex + 1, 7)
End Sub