estrarre numeri/ cap da cella excel

[alecast]

salve
ho bisogno d'aiuto devo estrarre i cap dalle righe e metterli in una nuova colonna
es:

Via Mater Dolorosa, 1, 90146 Palermo, Italia
90144 Palermo, Italia
Via Alfonso Amorelli, 36, 90145 Palermo, Italia
Via Giuseppe Sciuti, 184, 90144 Palermo, Italia
mi serve:
via mater dolorosa 1 Palermo, italia 90146
esiste una formula in quanto sono circa 3000 indirizzi da modificare?

[wallace&gromit]

ciao alecast,
dovresti specificare meglio come sono organizzati i tuoi dati e in base a quelli si può costruire una formula.
Le virgole che hai scritto nei dati di partenza significano che hai un testo con le virgole o che i dati sono posti in differenti colonne?

[alecast]

vorrei inserire uno screen shot per spiegare meglio
ho una colonna A col nominativo, una B con l'indirizzo e vorrei in C estratto il cap
COSENTINO GIOIELLI Via Camillo Benso Cavour, 117, 90133 Palermo, Italia
CRISAFI GIOIELLI Via Maqueda, 419, 90133 Palermo, Italia

il cap si trova inglobato nella colonna B all'interno dell'indirizzo
come posso fare?

[wallace&gromit]

se il CAP è sempre dopo la seconda virgola prova con questa formula:

Codice: Seleziona tutto

=STRINGA.ESTRAI(B1;TROVA(",";B1;TROVA(",";B1)+1)+2;5)

[peppo55]

Ciao alecast

potresti usare "Testo in colonne"

[ricky53]

Ciao,
"Testo in colonne" ma con due passaggi, dopo aver selezionato "Delimitati":
1) come separatore sceglierai "virgola"
2) sui dati incolonnati, prima di "Italia" inserisci "DUE" colonne
3) di nuovo "testo in colonne" e come separatore, questa volta, sceglierai "spazio"

ed il gioco è fatto.

[Anthony47]

Ciao alecast, benvenuto nel forum.
In aggiunta alle varie proposte gia' fatte (vedi sopra), con tutte le approssimazioni del caso ti propongo una "funzione" personalizzata:

Codice: Seleziona tutto

Function myCap(ByVal myAdr As String) As Variant
Dim mySplit, I As Long
mySplit = Split(Replace(myAdr, ",", " "), " ")
For I = 1 To UBound(mySplit)
    If Len(mySplit(I)) = 5 Then
        If IsNumeric(mySplit(I)) Then
            ccap = ccap & mySplit(I) & ", "
        End If
    End If
Next I
If Len(ccap) > 1 Then myCap = Left(ccap, Len(ccap) - 2) Else myCap = [#N/A]
End Function


Inserisci il codice in un "Modulo standard" del tuo editor delle macro:
-da Excel, Alt-F11 per aprire l' editor delle macro
-Menu /Inserisci /Modulo
-copia il codice e incollalo nel frame vuoto di destra

Torna sul fogli excel; se in B2, ad esempio hai un indirizzo (es Via Camillo Benso Cavour, 117, 90133 Palermo, Italia) usa in C2 la formula

Codice: Seleziona tutto

=mycap(B2)

Copiala poi verso il basso.
Ti restituira' la stringa di 5 caratteri numerici che viene trovata nell' indirizzo; se ci sono piu' stringhe che corrispondono a questa definizione, verrano presentate tutte separate da ","; se non ne viene identificato nessuno restituisce l' errore #N/D.
Per essere riconosciuto, quindi, il cap deve corrispondere a una "parola unica" (stringa separata da uno spazio o una virgola, o a inizio /fine dell' indirizzo) lunga 5 caratteri, tutti numerici. Questi sono esempi di risultati ottenuti:

Codice: Seleziona tutto

    Indirizzo                       Cap
Via veneto 28,00144 Roma          00144
Via veneto 28/00144, Roma         #N/D
Via veneto 28, 00144/ Roma        #N/D
Via Po tel. 54321, 00144, Roma    54321, 00144

Per allegare uno screenshot guarda gqui: viewtopic.php?f=26&t=80395#p466013

Ciao

[alecast]

grazie davvero a tutti ci sono riuscita

[ricky53]

Ciao,
OTTIMO.

Puoi dire la soluzione che hai adottato.