list box

[f1pier]

buona sera

Ho creato un user form con una listbox1 che si riempie prendendo i dati da un'altro foglio posizionato in Hrova pi\tag pi.xls e qui va tutto bene solo che oltre riempire il listbox mi apre il file e a me non deve aprirsi.

IL secondo problema come faccio richiamare dalla listbox1 la sola prima colonna con doppio clik

saluti
Pierpaolo

allego file

[Alexsandra]

Io metterei il codice per caricare il Listbox nell'evento initialize della form.

per esempio in questo modo:

Private Sub UserForm_Initialize()
    Dim Uriga As Long, elem As Variant
Application.ScreenUpdating = False
   
   Set wk = Workbooks.Open(Filename:="C:\Prove\List.xlsm")
    Set sh = wk.Worksheets("Foglio1")
    Uriga = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
    Application.Windows(wk.Name).Visible = False

    Set colA = New Collection
    With sh
        Uriga = .Range("A" & .Rows.Count).End(xlUp).Row
        Set Rng = .Range("A1:A" & Uriga)
        
        For Each C In Rng
            colA.Add C.Value
       Next
    End With
    
    With Me.ListBox1
        For Each elem In colA
            .AddItem elem
        Next
    End With
    
   wk.Close
     Set sh = Nothing
    Set wk = Nothing
    End Sub

così non ti resta aperto il file, caricato il listbox e selezionata una voce premendo sul button esegui un'altra azione, a cosa ti serve il doppio click?

[f1pier]

Prima di tutto Grazie per la Vs disponibilità

IL listato funziona carica la list box e chiude il foglio da dove prende i dati.

l'unica cosa che non riesco a caricare le altre due colonne B e C dove e ubicata la descrizione del punto e la categoria.

Il clik sulla list box serve a prendere il codice " colonna A" della riga selezionata e inserirlo in unt texbox

saluti
Pier

[Alexsandra]

devi caricare il TextBox al click sul Listbox, per cui il codice va nell'evento click del listbox.
quando clicchi sul listbox la voce presente nella colonna A viene inserita nel textbox

il pulsante l'ho usato per chiudere la form. Il codice è questo

Private Sub CommandButton1_Click()
    Unload Me
End Sub


Private Sub ListBox1_Click()
posiz = ListBox1.ListIndex + 1
h = ListBox1.List(posiz - 1, 0)

TextBox1.Text = h

End Sub


Private Sub UserForm_Initialize()
    Dim Uriga As Long, conta As Long, indice As Long
    Application.ScreenUpdating = False
   
   Set wk = Workbooks.Open(Filename:="C:\Prove\Cartel1.xlsx")
    Set sh = wk.Worksheets("Foglio1")
    Uriga = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
    Application.Windows(wk.Name).Visible = False

       Uriga = sh.Range("A" & Rows.Count).End(xlUp).Row
       
    With Me.ListBox1
        conta = 0
        .ColumnCount = 3
        For indice = 1 To Uriga
            .AddItem
            .List(conta, 0) = sh.Range("A" & indice).Value
            .List(conta, 1) = sh.Range("B" & indice).Value
            .List(conta, 2) = sh.Range("C" & indice).Value
            conta = conta + 1
        Next
    End With
    
   wk.Close
     Set sh = Nothing
    Set wk = Nothing
    End Sub

ovviamente devi mettere il tuo percorso del file da aprire

[f1pier]

grazie Alessandra

Funziona tutto, io per caricare texbox1 avevo usato il listato qui sotto

Private Sub ListBox1_Click()
With Me
.TextBox1.Text = .ListBox1.List(.ListBox1.ListIndex, 0)
.TextBox2.Text = .ListBox1.List(.ListBox1.ListIndex, 1)
End With
End Sub

[Alexsandra]

va bene lo stesso, io ho abbreviato con una variabile