Navigation

   Hej jeg sidder fast her..
Håber der er en klog hoved der vil hjælpe, da jeg ikke er den skarpeste i vba

Jeg har en combobox hvor jeg kan vælge på liste
og vise det i textbox på userforn
nu vil jeg gerne kunne vælge et nyt navn i combobox
og tilføje den i en ny række af tekstbokse
jeg vil gerne kunne kunne vælde 8 gange i komboboks
og satte valgte ind i 8 forskellige tekstbokse 

håber det giver mening :)

her er min kode:

Private Sub ComboBox3_Change()

Dim i As Long, LastRow As Long, ws As Worksheet
Set ws = Sheets("Data")
LastRow = ws.Range("C" & Rows.Count).End(xlUp).Row

For i = 9 To LastRow
If (Me.ComboBox3.Value) = ws.Cells(i, "C") Then
MsgBox Me.ComboBox3.Value
Me.TextBox129 = ws.Cells(i, "C").Value
Me.TextBox137 = ws.Cells(i, "D").Value
Me.TextBox145 = ws.Cells(i, "E").Value
Me.TextBox153 = ws.Cells(i, "F").Value

End If

Next i

Her til virker det.
men hvordan vælger jeg en ny navn igen
og sætter det ind i tekstbokse neden under?

For i = 9 To LastRow
If (Me.ComboBox3.Value) = ws.Cells(i, "C") Then
MsgBox Me.ComboBox3.Value
Me.TextBox130 = ws.Cells(i, "C").Value
Me.TextBox138 = ws.Cells(i, "D").Value
Me.TextBox146 = ws.Cells(i, "E").Value
Me.TextBox155 = ws.Cells(i, "F").Value
End If

Next i

End Sub

Med Venlig Hilsen Gerda

Navigation

Kode