| | Post: 27 | Registrato il: 17/01/2019
| Città: MILAZZO | Età: 24 | Utente Junior | Foglio di lavoro di Microsoft Excel 97-2003 | | OFFLINE |
|
  25/07/2023 11:39 | |
Salve ho un problema con una userform che non riesco a risolvere, ci sto provando in tutti i modi.. ma niente.
credo che ci sia qualcosa nel codice che non va, sul foglio elenco la form funziona e mi carica i dati nella cbo, invece se la apro nel foglio 2 mi va in errore. qualcuno mi può aiutare? grazie mille
[Modificato da Testa che fischia 25/07/2023 12:08] |
|
| | Post: 735 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
| 25/07/2023 11:51 | |
ciao,
non credi che sia il caso di allegare il file problematico, eventualmente privato dei dati sensibili ?
altrimenti chi ti vuole aiutare dove dovrebbe trovare il codice ?
Leo
LEO
https://t.me/LordBrum |
| | Post: 27 | Registrato il: 17/01/2019
| Città: MILAZZO | Età: 24 | Utente Junior | Foglio di lavoro di Microsoft Excel 97-2003 | | OFFLINE |
|
| 25/07/2023 12:09 | |
l'avevo allegato, forse non l'ha caricato
cmq riprovo |
| | Post: 3.541 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
| 25/07/2023 16:23 | |
ciao
modifica così la sub della uForm2:
Private Sub UserForm_Initialize()
Dim cella As Range, ur As Long, j As Long
ur = Worksheets("elenco").Range("C" & Rows.Count).End(xlUp).Row
With Worksheets("elenco")
For j = 2 To ur
ComboBox1.AddItem .Cells(j, 3) '& " " & .cells(j,4) & " " & .cells(j, 5)
Next j
End With
End Sub L'errore consiste nel fatto che il metodo da te utilizzato pretende che tu selezioni il foglio "elenco", mentre così ne puoi fare a meno
saluti
(nb: si può far meglio ma vado di corsa....sorry)
[Modificato da dodo47 25/07/2023 16:24] Domenico
Win 10 - Excel 2016 |
| | Post: 28 | Registrato il: 17/01/2019
| Città: MILAZZO | Età: 24 | Utente Junior | Foglio di lavoro di Microsoft Excel 97-2003 | | OFFLINE |
|
| 25/07/2023 16:25 | |
ah ok grazie mille adesso provo subito
|
| | Post: 29 | Registrato il: 17/01/2019
| Città: MILAZZO | Età: 24 | Utente Junior | Foglio di lavoro di Microsoft Excel 97-2003 | | OFFLINE |
|
| 26/07/2023 11:58 | |
ciao grazie infinite l'ho testata è funziona perfettamente.
grazie |
|
|
|
|