Inserire carattere inizio e fine cella excel

[Webattitude]

Ciao a tutti,
ho un file di excel dove in una colonna ho un campo categoria con dati del tipo:
centri benessere
agopuntura
ecc..

dovrei aggiungere all'inizio del campo una pipeline in modo che il valore sia:
|agopuntura|
|centri benessere|
ecc.

C'è una formula/macro che mi automizzi il tutto senza farlo manualmente...?

Grazie in anticipo

Attilio

[nman]

Prova questo

="|"&A1&"|"

[Webattitude]

Grazie nman, ci avevo già pensato anche io,
ma il problema è che io ho il valore della cella A1 e se inserisco

="|"&A1&"|"

mi da errore di "riefimento circolare" (cioè credo di una formula in una cella che richiama il valore della cella stessa...)

Altre idee?

[borgodiavalon]

Originariamente inviato da nman
Prova questo

="|"&A1&"|"

la formula inseriscila in B1-->la trascini-->selezioni tutta la colonna B--> copia-->seleziona la colonna A-->incolla speciale-->solo valori.

altrimenti si potrebbe fare tramite vba ma non conosco il tuo livello.

[borgodiavalon]

in caso prova questo codice (dovrai forse modificare il nome del foglio nel codice (dove vedi la scritta verde), devi aprire l'editor vba (alt + F11) dal tuo foglio di excel e lo incolli, chiudi l'editor e da excel premi ALT + F8, seleziona la macro INSERISCI_CARATTERE_INIZIO_FINE_CELLA e premi esegui.

Public Sub INSERISCI_CARATTERE_INIZIO_FINE_CELLA()
Dim MyRiga As Integer, MyCarattere As String
MyRiga = InputBox("INSERIRE IL NUMERO DI RIGA DA CUI INIZIANO I VALORI DA MODIFICARE", "inserisci il Dato") 'chiede la riga da cui iniziare l'inserimento
MyCarattere = InputBox("INSERIRE IL CARATTERE DA INSERIRE", "inserisci il Dato") 'chiede il carattere da inserire
MyRiga = MyRiga - 1 'tolgo uno al valore richiesto per poter iniziar dalla riga corretta
INIZIO_CONTROLLO:
        MyRiga = MyRiga + 1 'valorizzo la variabile che identifica la riga
        Sheets("FOGLIO1").Select 'seleziono il foglio di lavoro
        'tramire if verifico che se la cella è vuota, se vero messaggio e uscita dalla routine
        If Range("A" & MyRiga).Value = "" Then
            MsgBox "FINITO"
            Exit Sub
        End If
        Range("A" & MyRiga).Value = MyCarattere & Range("A" & MyRiga).Value & MyCarattere 'modifico la cella
        GoTo INIZIO_CONTROLLO 'torno a inizio_controllo
End Sub

[wallrider]

usa la funzione CONCATENA

[Webattitude]

borgodiavalon,
sei un genio!!
Funziona alla grande ed è proprio quelloc he cercavo

Grazie mille!

[borgodiavalon]

Originariamente inviato da Webattitude
borgodiavalon,
sei un genio!!
Funziona alla grande ed è proprio quelloc he cercavo

Grazie mille!

non esageriamo

ok. alla prossima.