Visualizzare su TextBox dati da selezione su ListBox

L2018, 19/02/2024 14:54:

---

ciao, giorni fa ho visto che qualcuno è riuscito ad allegare un file non zippato di oltre 3 mega (potrei sbagliarmi)
se il tuo file non è mostruoso (quanto è ?) potresti provare ad allegarlo non zippato ?
comunque aspetta con un minimo di pazienza il caricamento

---

dodo47, 19/02/2024 16:38:

---

GIUSEPPE TUFARULO (2qjc230305), 19/02/2024 14:37:

---

(anche quelli non presenti nella listbox) ....

---

Ciao
dovresti precisare meglio:
- nella LBox tali dati ci sono e sono nascosti (nel qual caso il suggerimento di Alfrimpa, ciao, è esaustivo) oppure stanno solo sul foglio?

Nella seconda ipotesi, cosa lega univocamente la ListBox ai dati sul foglio?
(ovviamente un esempio aiuterebbe)

saluti

---

GIUSEPPE TUFARULO (2qjc230305), 19/02/2024 17:24:

---

Il file è solo di 160 Kb, zippato, 180 estensione Xmlx che non accetta.
Vedo la barraq di caricamento scorrere, velocemente, ma non sono sicuro che lo abbia preso.

---

L2018, 19/02/2024 18:25:

---

Ciao, premesso che l'estensione XMLX non la conosco,

---

GIUSEPPE TUFARULO (2qjc230305), 19/02/2024 14:37:

---

Buon giorno,
gradirei il vostro aiuto per capire come selezionando i dati da LISTBOX posso vederli su TextBox.
I campi della listbox, provengono da una Combobox e sono 6 su 15
Vorrei poter selezionare la "riga" della listbox e vedere tutti i campi (anche quelli non presenti nella listbox) nelle textbox.
Grazie
Dopo vari tentativi non riesco a caricare il file.zip da allegare

---

dodo47, 19/02/2024 18:16:

---

Ciao
il file deve essere excel con estensione xlsx-xlsm-xls

Dunque, tu scorri la colonna B e se trovi mil valore selezionato nella ComboBox1, valorizzi le variabili e le carichi nella ListBox...(perchè nelle variabili A-B-C ...e non direttamente nella lBox?? - ma questo è un altro argomento)

Sono solo 6 valori, gli altri (visto che ne mancano 9 sono sul foglio, presumo a partire da colonna "I" (?)

Ora per caricare tutte le textBox con tutti i valori, perchè non scorri il tuo foglio cercando il contenuto della ComboBox in colonna B e prendendo tutti i valori dalla riga individuata?

Saluti

---

by sal, 19/02/2024 17:39:

---

Ciao Giuseppe, meglio se inserisci il file sarà più facile e veloce aiutarti, sul forum puoi caricare file fino a 3 Mb se non riesci vai su un sito di Hosting dove carichi il file e ti rilasciano il link per farlo scaricare, uno di questi può essere questo non chiede nessuna registrazione

File hosting

ci sono molti modi per usare una listbox, puoi anche selezionare il dato sulla ListBox e riportare i relativi dati nelle textbox, però come ho detto occorre un tuo file d'esempio.

Ciao By Sal (8-D

---

GIUSEPPE TUFARULO (2qjc230305), 20/02/2024 11:29:

---

il problema è proprio questo, non avendo mai avuto la necessita di prelevare i dati da una listBox non ho l'idea di come fare.

---

by sal, 20/02/2024 12:23:

---

Ciao eccoti il file, questa la macro per la Listbox che fa il lavoro, meno male che non hai rinominato i Textbox con altri nomi e li hai messi in sequenza delle colonne del foglio, altrimenti sarebbe più complessa.
volevo far riferimento al numero di scheda, per diminuire il codice, ma purtroppo non sono consecutivi, esempio manca la 10, per cui ho dovuto optare per il numero seriale e fare la ricerca su quello, penso che sia unico.
basta selezionare un dato della listbox, che vengono visualizzati tutti i dati dalla colonna "A" alla "O"

Private Sub ListBox1_Click()
Dim r, c, d, x, s, idx

idx = ListBox1.ListIndex
s = Val(ListBox1.List(idx, 2))
For x = 2 To Sheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
  If Sheets("Foglio1").Cells(x, 5) = s Then r = x
Next x
d = Sheets("Foglio1").Range("A" & r & ":O" & r)
For x = 1 To UBound(d, 2)
  Controls("TextBox" & x) = d(1, x)
Next x
End Sub

Ciao By Sal (8-D

---

alfrimpa, 19/02/2024 16:09:

---

Questo un esempio di codice da adattare al caso specifico

vb

Private Sub ListBox1_Click()
With Me.ListBox1
    Me.TextBox1.Value = .Value
    Me.TextBox2.Value = .List(.ListIndex, 1)
    Me.TextBox3.Value = .List(.ListIndex, 2)
End With
End Sub

---

L2018, 19/02/2024 18:25:

---

Ciao, premesso che l'estensione XMLX non la conosco, se pensi che sia la causa del rifiuto, puoi sempre cambiarla per esempio in TXT , e zippare di nuovo riprovando a spedire, ovviamente avvertendoci del trucco

---

GIUSEPPE TUFARULO (2qjc230305), 20/02/2024 12:58:

---

Ti ringrazio del suggerimento, ma non va bene, mi è arrivata la "soluzione" al problema da By Sal.

---

alfrimpa, 20/02/2024 15:04:

---

Ti posso assicurare che il mio suggerimento andava bene ma è ovvio che se volevi la soluzione "chiavi in mano" per te non poteva andare bene.

---

GIUSEPPE TUFARULO (2qjc230305), 20/02/2024 12:55:

---

Grazie, davvero molto gentile. Non mi resta altro che "studiare" il codice

---

by sal, 20/02/2024 12:23:

---

Ciao eccoti il file, questa la macro per la Listbox che fa il lavoro, meno male che non hai rinominato i Textbox con altri nomi e li hai messi in sequenza delle colonne del foglio, altrimenti sarebbe più complessa.
volevo far riferimento al numero di scheda, per diminuire il codice, ma purtroppo non sono consecutivi, esempio manca la 10, per cui ho dovuto optare per il numero seriale e fare la ricerca su quello, penso che sia unico.
basta selezionare un dato della listbox, che vengono visualizzati tutti i dati dalla colonna "A" alla "O"

Private Sub ListBox1_Click()
Dim r, c, d, x, s, idx

idx = ListBox1.ListIndex
s = Val(ListBox1.List(idx, 2))
For x = 2 To Sheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
  If Sheets("Foglio1").Cells(x, 5) = s Then r = x
Next x
d = Sheets("Foglio1").Range("A" & r & ":O" & r)
For x = 1 To UBound(d, 2)
  Controls("TextBox" & x) = d(1, x)
Next x
End Sub

Scusami errore ...mio... le schede nel file ci devono essere sempre tutte, visto che uso il numero della scheda come base per tutto, mi deve essere scappato che la 10 non esistesse. il Codice dovrebbe far riferimento alla Prima combobox "Apparato"
Ciao By Sal (8-D

---

by sal, 21/02/2024 09:39:

---

Ciao Giuseppe, da quello che hai detto

- stranamente selezionando la riga relativa alla Scheda 18 ricompaiono i dati d'intestazione, cosa che accade anche selezionando le schede da 20 a 32, mentre dalla scheda 2 alla scheda 17, scheda 19 e dalla 33 alla 36 tutto funziona bene.

è un errore mio, in quanto il numero seriale è alfanumerico, ed io trasformandolo in numero perdo la lettera che contiene, e non trovandolo mi da tutto l'elenco riportando l'intestazioni essendo la prima riga.

comunque guardando più a fondo il tuo elenco, vi sono delle incongruenze, che elenco oltre a mancare la scheda 10 manca anche la 8 e vi sono 2 doppioni la 31 e la 34, probabile per i doppioni, che quando hai fatto qualche modifica, invece di modificare i dati della scheda 31 ha creato un nuovo rigo con la scheda 31 ed i nuovi dati, oltretutto doppiando anche il numero seriale.

per fare una ricerca, bisogna avere una colonna come indice, cioè una colonna che contiene un dato unico su cui basare la ricerca, nel tuo caso con doppioni e mancanti bisognerebbe prendere in considerazione diversi elementi e fare la ricerca combinando tutti i vari elelmenti per trovare quello che uno cerca. non posso basare la ricerca sulla combobox1 Apparato in quanto sono molti, per questo avevo scelto la scheda che sembrava un dato unico, e poi passata sul numero seriale.

ho modificato il codice in modo che prenda il seriale alfanumerico, e ti ho commentato il codice se hai altri dubbi scrivi

Private Sub ListBox1_Click()
Dim r, c, d, x, s, idx

idx = ListBox1.ListIndex 'prende l'indice della selezione
s = ListBox1.List(idx, 2) 'prende il numero seriale alfanumerico non più valore con Val()
For x = 2 To Sheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
  If Sheets("Foglio1").Cells(x, 5) = s Then r = x 'ricerca il seriale ed in r mette la riga trovata
Next x
'NOTA: nella ricerca essendo presenti doppioni prende il secondo tralasciando il primo
d = Sheets("Foglio1").Range("A" & r & ":O" & r) 'la variabile d diventa matrice di tutti i dati della riga trovata
'processa la matrice per scrivere i dati "UBound()" fine della matrice "LBound()" inizio matrice
'la matrice d è 1 rigo e 15 elementi "A:O" a questo punto devo prendere il secondo indice ed ecco UBound(d, 2)
'senza ",2" prende il primo indice che essendo 1 solo non ce ne bisogno
For x = 1 To UBound(d, 2)
  Controls("TextBox" & x) = d(1, x) 'ciclo che passa i dati dalla matrice ad i textbox
Next x
'NOTA: se al posto di "Controls("TextBox" & x)" ci fosse "sheets("Foglio1").cells(10, x)" scriverebbe i dati alla riga 10
End Sub

Ciao By Sal (8-D

---