La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
buon forum a tutti.
ho questo problema di compilazione che non riesco a risolvere se qualcuno mi può dare una dritta.
grazie mille
Fabry
all
Option Explicit
Sub EstraiCodice()
Dim cinquepos As Integer
Dim quattropos As Integer
Dim trepos As Integer
Dim duepos As Integer
Dim unopos As Integer
Dim CodiceZip As String
Dim LungCodiceZip
Dim Alla As String
CodiceZip = Range("D10").Value
LungCodiceZip = Len(CodiceZip)
cinquepos = InStrRev(CodiceZip, "_")
quattropos = InStrRev(CodiceZip, "_", cinquepos - 1)
trepos = InStrRev(CodiceZip, "_", quattropos - 1)
duepos = InStrRev(CodiceZip, "_", trepos - 1)
unopos = InStrRev(CodiceZip, "_", duepos - 1)
Alla = Mid(CodiceZip, 3, 4) ' posizione quando il debug F8 arriva qui mi da questo errore
' errore di compilazione
' impossibile trovare il progetto o le librerie
' mai accaduto mi succede con funzione Mid , Right , Left
End Sub
Dunque, ho inserito questo codice in D10: 111_222_333_444_555.
L'istruzione Mid(CodiceZip, 3, 4) restituisce correttamente 1_22 (infatti da 3 lungo 4)
Sicuro che il dato stia in D10?
Non capisco il perché di tutti quegli (enne)pos poi non utilizzati, ma probabilmente avrà senso nel progetto globale.
P.S.: potresti accorciare le dichiarazioni
Dim cinquepos As Integer
Dim quattropos As Integer
Dim trepos As Integer
Dim duepos As Integer
Dim unopos As Integer
Dim CodiceZip As String
Dim LungCodiceZip
Dim Alla As String
con
Dim cinquepos As Integer, quattropos As Integer, trepos As Integer, ...
Dim CodiceZip As String, Alla As String
e definire LungCodiceZip As Long
Hai risolto? Per favore metti "Risolto". No? Facci sapere. Non ti interessa più? Metti "Risolto". Grazie
