Hoe kan ik een userform scherm starten in een cel ?

[dorlando]

Hallo,

Hieronder gebruikt ik cel E24 om mijn tabblad tevoorschijn te laten komen!

If Range("E24") <> "" Then
        Sheets("I2").Visible = True ' Blad verbergen wanneer E24 cel leeg is
        Sheets("i2.1").Visible = True
    Else
        Sheets("I2").Visible = False  ' Blad zichtbaar maken wanneer E24 cel gevuld is
        Sheets("i2.1").Visible = False

Maar daarnaast wil ik ook tegelijk het Userform scherm tevoorschijn laten komen als ik Cel E24 selecteert.
Hierin bevinden gegevens die tegelijk het tabblad weer vult.
Met welke commando start ik deze macro in cel E24 tegelijk met het openen van mijn tabblad??

vraag 2.Als ik data gebruikt via Userform die ik heb geselecteer uit een datablad en die heb ik niet geopent ,dan zie ik via mijn selectielijsten de data niet.
Weet iemand hier een oplossing op?
Gr,Dorlando

 

[HSV]

Eerste vraag:

Private Sub Worksheet_Change(ByVal Target As Range)
  Sheets("I2").Visible = IIf(Target.Address = "$E$24" And Not IsEmpty(Range("E24")), True, False)
  Sheets("i2.1").Visible = IIf(Target.Address = "$E$24" And Not IsEmpty(Range("E24")), True, False)
 UserForm1.Show
End Sub

Of:

Private Sub Worksheet_Change(ByVal Target As Range)
  
With Target
 If .Address = "$E$24" And Not IsEmpty(Target) Then
   Sheets("I2").Visible = True
   Sheets("i2.1").Visible = True
   UserForm1.Show
 Else
   Sheets("I2").Visible = False
   Sheets("i2.1").Visible = False
   'UserForm1.Show
  End If
 End With
End Sub

Tweede begrijp ik niet.

 

[dorlando]

Als ik nu vanuit Cel24 het userform1 opent zijn de datagevens niet aanwezig in het Userform.
De datagegevens staan in een verborgen datablad.
Moet ik via de Rowsource nog het datablad toewijzen?

Het commnado hierboven werkt perfect.

 

[HSV]

Zo zou het kunnen.

Private Sub UserForm_Initialize()
 With Sheets("i2.1")
 .Activate
   ComboBox1.RowSource = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Address
   ComboBox1.ListRows = .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Rows.Count
  End With
 Sheets("Blad1").Activate
End Sub