RunTime error 13

Hai un problema con Excel?

Nuova discussione

di gargiu (utente non iscritto) data: 25/11/2014 13:56:46
Ho dimenticato di dire che l'errore me lo da quando arriva alla seguente riga:
riga = .SubItems(1) + 1 Sheets("lista").Cells(riga, 1).Activate

di scossa data: 25/11/2014 14:14:39
Intanto ricordati che i valori delle varie TextBox, ListBox etc.. sono valori di TESTO (string) ....

Evidentemente .SubItems(1) è vuoto ("")

infatti, se nella finestra immediata provi a scrivere
?"2"+1
ottieni 3

mentre con
?""+1
ottieni l'errore che segnali.

scossa's web site

Se tu hai una mela, ed io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno.
Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

di gargiu data: 25/11/2014 14:30:13
Non ti seguo, quale campo sarebbe vuoto?
Ho allegato il file, così da essere più chiaro.

Grazie

di scossa data: 25/11/2014 14:48:08
Scusa, ma se .SubItems(1) contiene "Elo-Star", come fai a sommargli 1 e pretendere che non ti dia errore?

scossa's web site

di gargiu data: 25/11/2014 14:57:01
A ecco.... ti spiego: ero alla ricerca di un comando che mi spostasse il cursore sul foglio di lavoro in corrispondenza della selezione che faccio sulla List View, credevo che quella fosse la soluzione, in quanto nell'altro foglio di lavoro mi funziona così.

Allora eliminiamo questo comando:
riga = .SubItems(1) + 1
Sheets("lista").Cells(riga, 1).Activate

Mi sai dire come posso ottenere quello che ti ho descritto sopra?

Grazie
di gargiu data: 25/11/2014 15:32:05
OK ho capito, la soluzione era quella ma la colonna di riferimento doveva appunto contenere un valore numerico. Ho corretto la colonna e ora funziona tutto perfettamente.

Grazie per l'aiuto.
di gargiu data: 26/11/2014 15:58:56
Problema risolto

Vuoi Approfondire?