Riconoscere solo numeri/parole

[giorgioa]

Salve,
in una cella ho contemporaneamente un nome ed un numero
Per es. pippo2 in C1, in un'altra cella C2 ho la formula =conta.se(D2:D100;C1)
della cella C1 deve riconoscere solo il valore numerico o viceversa il nome
Si può? E qual'è la formula da utilizzare?
Grazie.

[wallace&gromit]

Ciao giorgioa,
puoi risolvere con due funzioni ad hoc: una estrae il testo l'altra i numeri

Codice: Seleziona tutto

Function EstrNum(Cerc As Range)
Testo = Cerc.Value
For z = 1 To Len(Testo)
If Not IsNumeric(Mid(Testo, z, 1)) Then
NR = Mid(Testo, z + 1, Len(Testo))
End If
Next
EstrNum = NR
End Function

Codice: Seleziona tutto

Function EstrText(Cerc As Range)
Testo = Cerc.Value
For z = 1 To Len(Testo)
If Not IsNumeric(Mid(Testo, z, 1)) Then
Tx = Mid(Testo, 1, z)
End If
Next
EstrText = Tx
End Function

funziona solo se tutti i tuoi testi iniziano con testo e finiscono con numero e non vi sono "intercalazioni" tipo xx2ms33

P.S. il numero sarà restituito in formato testo, se lo vuoi in formato numerico dovrai inserire la formula

Codice: Seleziona tutto

=--EstrNum(C1)

[giorgioa]

Grazie dell'interessamento Wallace
ma cosi dovrò creare un bottone per la macro(non è un problema)
mentre volevo, se ciò fosse possibile naturalmente,
una formula.
Per esempio scrivo Pippo1 in b1, Pippo2 in b2, Pippo3 in b3 perchè
ho in c1 il conta.se(d1:d100;b1)
ho in c2 il conta.se(d1:d100;b2)
ho in c3 il conta.se(d1:d100;b3).
Il bottone per la macro mi diventerebbe ingombrante.
Non so se serve, posso scrivere anche Pippo 1(cioè spazio 1).
Ciao

[wallace&gromit]

Non serve un bottone: è una funzione che excel interpreta come tutte quelle già integrate.
Per esempio in C1 digiti

Codice: Seleziona tutto

=EstrNum(B1)

e ti da il valore numerico contenuto nella cella b1 oppure

Codice: Seleziona tutto

=EstrText(B1)

e ti da il testo della stessa cella

[giorgioa]

Wallace ti ringrazio ma il foglio è protetto
e quindi non posso mettere la funzione in macro
per questo ti ho chiesto se si può risolvere con una formula
altrimenti e ti ringrazio anticipatamente dell'interessamento.
Ciao

[wallace&gromit]

se riesci ad avere sempre testo-spazio-numero puoi usare le formule:

Codice: Seleziona tutto

=SINISTRA(B1;TROVA(" ";B1;1))

per trovare il testo in B1 e

Codice: Seleziona tutto

=DESTRA(B1;LUNGHEZZA(B1)-TROVA(" ";B1;1))

per trovare il numero.
Queste formule cercano lo spazio nel tuo testo e riportano quello che trovano a sinistra rispettivamente destra.

[Anthony47]

Le formule indicate da W&G sono sicuramente utili per risolvere; comunque se hai le macro protette puoi mettere le "funzioni" del suo messaggio precedente nel file Personal.xls e poi userai la sintassi

Codice: Seleziona tutto

=Personal.xls!EstrNum(B1)


Ciao a tutti.

[giorgioa]

Salve Wallace e buongiorno
ho risolto con la formula qui sotto
quindi va benissimo così,
=CONTA.SE(C$1:C$100;DESTRA($B1))
Il motivo era che ogni volta che devo utilizzare
questo tipo di controllo ero costretto ad utilizzare
un'altra colonna per indicare cosa serve quel numero
Evviva PIPPO1.
però terrò conto anche del consiglio di Anthony
solo che non ho capito per come farla funzionare
ammesso che riesca ad entrare nel personal.xls,
senza utilizzare il button.

OK e grazie.