estrarre un numero da cella di excel

[Ironmax]

Buona sera a tutti
In una cella di excel ho concatento testo e valori
Vorrei sapere sè qualcuno sà come sommare solo i valori numerici e quindi escludere il testo.
Questa è la funzione da me inserita ...................=SE(A6="melo";"melo "& E6;0)
Questo è il risultato da me ottenuto in una cella ... melo 105
Qui di seguito è il risultato che voglio ottenere:

melo 105
pero 96
ciliegio 110
melo 75
pero 76,8
melo 45
Totale 507,8
Da ricordarsi, tranne il totale, il tipo di albero ed il valore numerico sono in una cella.
Grazie.

[eziogsv]

il tuo post mi incurioscisce... scusa le domande, forse mi sfugge qualcosa:

1) questo è un forum dedicato al VB... vuol dire che la somma la vuoi ricavare con un programma esterno al file di Excel scritto in VB, all' interno di Excel con una routine VBA o con semplici istruzioni di Excel all' interno del foglio?

2) mi spieghi perché hai concatenato i due valori in una unica cella, soluzione a dir poco strana per un foglio di calcolo, e non li hai invece inseriti in due celle adiacenti, creando così due colonne, una coi valori testo e una coi valori numerici, valori che avresti sommato in un decimo di secondo ????

tipo per intenderci:

.......cella testo ........................ cella numeri......
=SE(A6="melo";"melo";"") =SE(A6="melo";E6;0)

[Ironmax]

Buona sera eziogsv.
Dopo aver attivato la registrazione macro, vorrei estrarre con una formula all' interno di excel il valore numerico dal testo e vedere ciò che mi dà il codice vba.
Morale della favola voglio separare ciò che ho unito in qualsiasi maniera possibile, sè c'è, ed esaminarne il codice. Oppure sè si può farlo direttamente dal codice vba.
Sto facendo dei piccoli esperimenti per capire alcuni concetti di strutturazione di database.

[eziogsv]

Originariamente inviato da Ironmax
Dopo aver attivato la registrazione macro, vorrei estrarre con una formula all' interno di excel il valore numerico dal testo e vedere ciò che mi dà il codice vba.

ok, allora ti dico quello che farei io, metto le formule in diverse celle, per inserire formule semplici e chiare

supponiamo che il testo "melo 105" sia nella cella A1

1) per prima cosa mi accerterei che non ci siano spazi inopportuni

nella cella B1: =ANNULLA.SPAZI(A1)

2) poi troverei la lunghezza della cella "ripulita"

nella cella C1: =LUNGHEZZA(B1)

3) poi cercherei dove è lo spazio rimasto tra testo e numero

nella cella D1: =TROVA(" ";B1)

4) infine estrarrei la sottostringa contenente il numero

nella cella E1: =DESTRA(B1;C1-D1)

ora in E1 dovrebbe esserci il valore 105

[Ironmax]

Ho provato come mi hai detto è funziona tutto alla perfezione.
Grazie.

[tippolo]

Io lo farei semplicemente in questo modo:
http://www.wikifortio.com/816419/cell_pers.zip

[bennygo]

una soluzione la trovi sul sito di terzaghi, http://www.terzaghi.it/excel/index.htm, in domande e risposte, risposta 62.

l'unica cosa da variare sarà quella di restringere ancora di più i caratteri validi (terzaghi doveva eliminare solo degli spazi), sostituendo la riga:

If Asc(cc) < 127 And Asc(cc) > 32 Then s = s + cc

con questa:

If Asc(cc) < 58 And Asc(cc) > 43 Then s = s + cc