Új hozzászólás Aktív témák

• #45302 Magnat veterán zsolti_20 #45300

  Új Válasz 2020-11-11 16:27:16 #45302

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Magnat

  veterán

  válasz zsolti_20 #45300 üzenetére

  Szia

  csinálsz egy formot (Userform1), rá egy Listboxot (Listbox1), aztán:

  Sub Popup()
    Dim cel As Range
    Dim selectedRange As Range

      Set selectedRange = Application.Selection
    
    UserForm1.ListBox1.Clear
    
    For Each cel In selectedRange.Cells
        UserForm1.ListBox1.AddItem (cel.Value2)
    Next cel
    
    UserForm1.Show
End Sub

  Ez a szelektált cellák tartalmát fogja bedobni a Listbox1-be.

  Szerk.: Ha legördülő kell, akkor Listbox helyett Combobox kell.

Új hozzászólás Aktív témák