johnny1980
Gebruiker
- Lid geworden
- 28 apr 2013
- Berichten
- 75
Hallo helpers,
Ik heb een userform met 2 combobox'en, die gegevens worden in een cel weggeschreven wanneer er op de knop OK wordt geklikt.
Dit is de code:
(Oproepen userform vba code op blad1)
If Not Application.Intersect(Target, Range("Q3:Q1500")) Is Nothing Then
UserForm4.Show
End If
(Wegschrijven gegevens userform naar cel in kolom Q vba code in userform)
Private Sub CommandButton1_Click()
a = ActiveCell.Row
Cells(a, "Q").Value = ComboBox1 & Chr(10) & ComboBox2.Value
Unload UserForm4
UserForm4.Hide
End Sub
Nu zou ik graag wanneer er in een cel in kolom Q een dubbelklik uitgevoerd word, de gegevens die zich in die cel bevinden in de combobox'en weergeven worden.
Ik heb reeds dit:
Private Sub UserForm_Initialize()
a = ActiveCell.Row
ComboBox1.Value = Cells(a, "Q").Value
End Sub
Hoe krijg ik de tweede regel van de cel in combobox 2?
Nu komen de gegevens van de eerste en tweede regel van de cel in combobox1,....
alvast bedankt voor jullie hulp!
Groetjes Johnny
Ik heb een userform met 2 combobox'en, die gegevens worden in een cel weggeschreven wanneer er op de knop OK wordt geklikt.
Dit is de code:
(Oproepen userform vba code op blad1)
If Not Application.Intersect(Target, Range("Q3:Q1500")) Is Nothing Then
UserForm4.Show
End If
(Wegschrijven gegevens userform naar cel in kolom Q vba code in userform)
Private Sub CommandButton1_Click()
a = ActiveCell.Row
Cells(a, "Q").Value = ComboBox1 & Chr(10) & ComboBox2.Value
Unload UserForm4
UserForm4.Hide
End Sub
Nu zou ik graag wanneer er in een cel in kolom Q een dubbelklik uitgevoerd word, de gegevens die zich in die cel bevinden in de combobox'en weergeven worden.
Ik heb reeds dit:
Private Sub UserForm_Initialize()
a = ActiveCell.Row
ComboBox1.Value = Cells(a, "Q").Value
End Sub
Hoe krijg ik de tweede regel van de cel in combobox 2?
Nu komen de gegevens van de eerste en tweede regel van de cel in combobox1,....
alvast bedankt voor jullie hulp!
Groetjes Johnny
Laatst bewerkt: