Rimozione parziale di caratteri nella cella

[Ricky0185]

Buongiorno, nelle celle della colonna E di un foglio ho testi di svariata lunghezza e tutti, in differente posizione, contengono la parola "Info". Vorrei eliminare (anche con macro) in ciascuna cella della colonna tutto il testo che segue la parola "Info", ivi compreso "Info". Ripeto che, sia prima che dopo la parola, le lunghezze del testo sono diverse per tutte le celle, perciò la posizione della parola è sempre diversa e non ha "segni particolari" quali Dopo punto piuttosto che Dopo spazio,Lunghezza prima, Lunghezza dopo, etc.
Saluti
R

[Anthony47]

Ad esempio in una colonna libera:

Codice: Seleziona tutto

=SE(E2="";"";SE(VAL.ERRORE(RICERCA("info";E2));E2;SINISTRA(E2;RICERCA("info";E2)-1)))


Dovrebbe essere compatibile col tuo Office 2003

Prova...

[Ricky0185]

Aggiudicato. Prima o poi debbo incominciare a studiarmi le formule.
Una domanda: con macro, come faccio a dirgli cancellami da Info in avanti? Ovvio dopo avermi trovato la parola Info.
Grazie
R

[Anthony47]

Se vuoi farlo con macro; ad esempio:

Codice: Seleziona tutto

Sub DeInfo()
Dim I As Long, fInfo As Long, myCurr As String
Dim myData As Range, myOut As Range, LastI As Long
'
Set myData = Range("E2")        '<<< Inizio dei dati
Set myOut = Range("H2")         '<<< Inizio per i dati corretti
'
LastI = myData.Offset(10000, 0).End(xlUp).Row
For I = 1 To LastI
    myCurr = myData.Cells(I, 1).Value
    If Len(myCurr) > 0 Then
        fInfo = InStr(1, myCurr, "info ", vbTextCompare)
        If fInfo = 0 Then fInfo = 9999
        myOut.Cells(I, 1).Value = Left(myCurr, fInfo - 1)
    Else
        myOut.Cells(I, 1).ClearContents
    End If
Next I
End Sub

Va inserita in un modulo standard del vba; i dati marcati <<< vanno adattati come da commento; nota che teoricamente myData e myOut potrebbero anche puntare alla stessa area, e quindi i dati originali sovrascritti con quelli rivisti, ma io sconsiglio questa soluzione perche' il risultato non sarebbe controllabile

Prova...

[Ricky0185]

Naturalmente funziona. La preferisco ed inserirò in finale di altra macro che copia in excel le descrizioni chilometriche di versamenti bancari.
Ciao e grazie.
R