Assegnare alle text box il contenuto di una riga selezionata nella listview

Question

In una userform ho disegnato una listview che viene popolate grazie al seguente codice:

With Me.ListView1
.ColumnHeaders.Add , , "Data", 48
.ColumnHeaders.Add , , "1^ MAX", 48
.ColumnHeaders.Add , , "1^ MIN", 48
.ColumnHeaders.Add , , "1^ PULS", 48
' ----------------------------------
.ColumnHeaders.Add , , "2^ MAX", 48
.ColumnHeaders.Add , , "2^ MIN", 48
.ColumnHeaders.Add , , "2^ PULS", 48
' ----------------------------------
.ColumnHeaders.Add , , "3^ MAX", 48
.ColumnHeaders.Add , , "3^ MIN", 48
.ColumnHeaders.Add , , "3^ PULS", 48
' ----------------------------------
.ColumnHeaders.Add , , "Media MAX", 48
.ColumnHeaders.Add , , "Media MIN", 48
.ColumnHeaders.Add , , "Media PULS", 48
' ----------------------------------
For i = 1 To Sheets("dati").Range("A100000").End(xlUp).Row
.ListItems.Add , , Sheets("dati").Cells(i + 1, "B")
CLN = CLN + 1
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "C")
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "d")
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "e")
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "f")
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "g")
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "h")
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "i")
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "j")
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "k")
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "l")
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "m")
.ListItems(CLN).ListSubItems.Add , , Sheets("dati").Cells(i + 1, "n")
Next i
End With

' ---------------------

Il mio problema consiste nel trasferire il contenuto di una riga da selezionare nella listview all'interno delle opportune textbox nella userform per poter modificare il contenuto. Non riesco a venirne a capo mentre provando con la listbox tutto funziona.

Grazie per una eventuale collaborazione.

Answer 1

Sono in attesa: grazie di tutto

Answer 2

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

 Ciao nicola calamita,

Grazie per il tuo post nella community Microsoft.

In base alla descrizione, sembra che tu stia riscontrando un problema relativo a Visual Basic.

Bene, c'è un posto migliore per pubblicare che è Stack Overflow.

Poni domande sulla programmazione vba a Stack Overflow utilizzando il tag vba insieme a qualsiasi altro tag pertinente.

Tieni presente che Stack Overflow include linee guida, come la richiesta di un titolo descrittivo, una descrizione completa e concisa del problema e dettagli sufficienti per riprodurre il problema. Le richieste di funzionalità o le domande troppo generiche sono considerate fuori tema.

Dichiarazione di non responsabilità: Microsoft non fornisce alcuna assicurazione e/o garanzia, implicita o di altro tipo, e non è responsabile delle informazioni ricevute dall'utente dai siti collegati di terze parti o di qualsiasi supporto correlato alla tecnologia.

Non posso aiutarti, ma lascerò aperta questa domanda nel caso in cui uno dei nostri fantastici volontari abbia idee per te.

Migliori saluti

Thomas C - MSFT | Specialista del supporto della community Microsoft