List in Combobox

[Noord2011]

Beste mensen

Ik wil met Combobox op Userform mijn overzicht landen vanuit Excel blad 1 kunnen uitkiezen.

Vervolg wil ik het gekozen land copier naar cel N6 op blad 2 met de OK knop

Alvast bedankt

Mv/Gr

 

[Roncancio]

Beste mensen

Ik wil met Combobox op Userform mijn overzicht landen vanuit Excel blad 1 kunnen uitkiezen.

Vervolg wil ik het gekozen land copier naar cel N6 op blad 2 met de OK knop

Alvast bedankt

Mv/Gr

Selecteer de combobox en zet in de Rowsource: B5:B8

De code om het land in cel N6 van blad 2 te zetten:

Private Sub OK_Click()
[Blad2!N6] = ComboBox1.Value
End Sub

Met vriendelijke groet,


Roncancio

 

[Hoornvan]

Hier is je file terug.

 

[Noord2011]

Beste mensen,

Ik wil een automatisch invoeg van cel waarde in Listbox?

Bijv. het actievecell, de waarde automatisch wordt ingevuld in de listbox1, als ik op het knop “kiezen” drukt
(cel B13 ingevuld in Listbox1)

Alvast bedankt

Mv/Gr

 

[Jack Nouws]

Hallo,

Bedoel je zoiets als dit?

Private Sub UserForm_Initialize()
  ListBox1.Value = ActiveCell.Value
End Sub

Met vr gr
Jack

 

[trucker10]

Noord25 , is het in deze richting dat we het moeten zoeken ( rowsource ) ?

 

[Noord2011]

Ja, maar alleen het activecell moet in de Listbox verschijnen.

Als het niet lukt met Listbox kan het ook met Tekstbox. De bedoeling is om de waarde in de activecell op het Userform te kunnen zien. Op de Userform zou meerdere actie toevoegen worden, ik ben allang niet klaar!

Mv/Gr

 

[Roncancio]

Ja, maar alleen het activecell moet in de Listbox verschijnen.

Als het niet lukt met Listbox kan het ook met Tekstbox. De bedoeling is om de waarde in de activecell op het Userform te kunnen zien. Op de Userform zou meerdere actie toevoegen worden, ik ben allang niet klaar!

Mv/Gr

In bijgevoegd bestand druk je op de knop op de userform te tonen.
Je kunt nog steeds cellen in het werkblad selecteren. De 2 werkbladen tonen dan de waarde en adres van de geselecteerde cel.

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Ja, maar alleen het activecell moet in de Listbox verschijnen.

Als het niet lukt met Listbox kan het ook met Tekstbox. De bedoeling is om de waarde in de activecell op het Userform te kunnen zien. Op de Userform zou meerdere actie toevoegen worden, ik ben allang niet klaar!

Mv/Gr

Het kan wel met een Listbox maar het is logischer om het in een Textbox te laten zien, mede omdat het maar om 1 waarde per keer gaat.

Met vriendelijke groet,


Roncancio

 

[Noord2011]

Ik heb het opgelost

Private Sub Kiezen_Click()
  UserForm1.Show
  If UserForm1.Visible = True Then
    UserForm1.TextBox1.Value = ActiveCell.Value
   End If
End Sub

Bedankt ik zal het verder uitwerken

Mv/Gr

 

[Jack Nouws]

Ik heb het opgelost

Private Sub Kiezen_Click()
  UserForm1.Show
  If UserForm1.Visible = True Then
    UserForm1.TextBox1.Value = ActiveCell.Value
   End If
End Sub

Bedankt ik zal het verder uitwerken

Mv/Gr

Hallo Noord25,

Dit doet het zelfde als jou code.

[COLOR="Blue"]Private Sub UserForm_Initialize()[/COLOR]
  TextBox1.Value = ActiveCell.Value
End Sub

Of

[COLOR="blue"]Private Sub UserForm_Activate()[/COLOR]
 TextBox1.Value = ActiveCell.Value
End Sub

Met vr gr
Jack