[Risolto] Cancellare testo dopo una parola

[rxdue]

Sto cercando di cancellare tutto il testo dopo una parola però al momento con scarso risultato.

Ho il file composto così:

A1
xxxx xxxxx PER xxx xxxxxxx xxx xxxx
xxxxxx xxx xxx PER xxxxx xxxx xxx
xxx PER xxxx xxx xxxx
ecc.

Ho provato varie formule però non riesco a venirne fuori =/
Qualche idea?

Grazie a tutti

[patel]

=SINISTRA(A1;RICERCA("PER";A1; )+3)

[rxdue]

=SINISTRA(A1;RICERCA("PER";A1; )+3)

Err.511

Hai già provato?

[rxdue]

Risolto Grazie!

Avevi messo uno spazio ed un ; in più
=SINISTRA(A1;RICERCA("PER";A1)+3)

Così funziona

Grazie ancora

[rxdue]

Se invece volessi spezzare un testo appena, a partire da sinistra, vede un numero?
Cioè al primo numero a partire da sx.

Ho provato a mettere val.numero però non funziona

[patel]

non è molto chiaro, ma penso occorra una macro

[rxdue]

Es.

A
a1 xxxx xxxxx 123 xxxx 456
a2 xxxx xxxx xxxx 789 xxxx 012 xx

Vorrei che divida il testo al primo numero che trova partendo da sinistra in questo caso deve dividere
in b1
123 xxxx 456

in b2
789 xxxx 012


Mi va bene anche una macro

[patel]

Codice: Seleziona tutto

sub estrai
oSheet = ThisComponent.Sheets(0)
oCursor = oSheet.createCursor
oCursor.gotoEndOfUsedArea(False)
LastRow = oCursor.RangeAddress.EndRow
dim s as string
for r= 0 to LastRow
  s = osheet.GetCellByPosition(0,r).string
  p1=firstNumber(s)
  p2= RevfirstNumber(s)  
  osheet.GetCellByPosition(1,r).string = Mid(s,firstNumber(s), RevfirstNumber(s) - firstNumber(s))
next
end sub

Function firstNumber(st)
For i = 1 To Len(st)
  stp =  Mid(st, i, 1)
  If IsNumeric(stp) and stp <> " " Then exit for
Next
firstNumber = i
End Function


Function RevfirstNumber(st)
For i = Len(st) to 1 step -1
  stp =  Mid(st, i, 1)
  If IsNumeric(stp) and stp <> " " Then exit for
Next
RevfirstNumber = i+1
End Function

[rxdue]

Grazie mille, funziona alla perfezione!
<3

[Gaetanopr]

........ ma penso occorra una macro

Si può fare usando le espressioni regolari

Codice: Seleziona tutto

=DESTRA(A1;RICERCA("[0-9].*";A1)+1)

[patel]

non le ho mai capite, me la spieghi ?

[Gaetanopr]

Codice: Seleziona tutto

"[0-9].*" 

I caratteri inclusi nella cornice cioè le parentesi [] sono legati da una relazione di tipo OR, quindi trova un SOLO carattere tra quelli presenti nella cornice, il trattino significa "tra" per cui tutti i valori numerici tra 0 e 9 è come scrivere [0123456789] invece l'asterisco serve a specificare che dopo il valore numerico trovato può esserci qualsiasi altro tipo di carattere.

[patel]

grazie, però non mi sembra che funzioni per la seconda riga, deve restituire 789 xxxx 012

[Gaetanopr]

Allora qualcosa non va anche nella tua macro(restituisce lo stesso risultato della mia formula) sicuramente ha sbagliato nell'esempio rxdue, la richiesta è chiara

Es.
Vorrei che divida il testo al primo numero che trova partendo da sinistra ........

[rxdue]

Entrambe le risposte fanno quello che serve a me, cioè estrarre il primo numero a partire da sinistra del testo che viene dopo il primo numero non mi importa nulla.
Quindi avevo "sbagliato" nell'esempio, ho messo che in b1 mi deve riportare "123 xxxx 456" quando a me va bene anche se mi da "123 456" perchè poi con la funzione "Testo a colonne" separo i due numeri con lo spazio in mezzo e così ho ottenuto il famoso primo numero a partire da sinistra.

Grazie di nuovo a tutti

[rxdue]

Non volevo aprire un altro topic visto che si tratta dello stesso argomento, quindi continuo qua, ho modificato il titolo.

Avrei bisogno di fare la stessa cosa della prima richiesta, cioè cancellare il testo a destra dopo una parola, però questa volta la parola che deve cercare la deve prendere da una lista.

ES.

A1
xxx xxxxx PER xxx xx
xxxx xx xxxx DEL xxx
xxx xxxx xx CON xxxx

B1
xxx xxxxx PER
xxxx xx xxxx DEL
xxx xxxx xx CON

C1
DEL
PER
CON

Quindi la forumula non è più

Codice: Seleziona tutto

=SINISTRA(A1;RICERCA("PER";A1)+3)

Perchè dovrei cambiare manualmente la parola da trovare, e quindi ho provato a buttarci in mezzo un CERCA.VERT ma con scarsi risultati

Codice: Seleziona tutto

=SINISTRA(A6;CERCA.VERT(A6;C1:C7;2;0)-1)

Dove sbaglio? =\

[Gaetanopr]

Non è così semplice, supponendo il testo nella colonna A, nella colonna D le parole da ricercare

Codice: Seleziona tutto

=SINISTRA(A1;RICERCA(INDICE(D$1:D$3;CONFRONTA(1;SE(VAL.ERRORE(TROVA($D$1:$D$3;A1)^0);0;TROVA($D$1:$D$3;A1)^0);0));A1)+LUNGHEZZA(INDICE(D$1:D$3;CONFRONTA(1;SE(VAL.ERRORE(TROVA($D$1:$D$3;A1)^0);0;TROVA($D$1:$D$3;A1)^0);0)))-1)

Formula matriciale
Allego un esempio

[rxdue]

Grazie mille funziona alla grande.

Pensavo bastasse una ricerca in verticale =/