Funzione sostituisci in Excel

Question

Buonasera a tutti sto cercando di portare a capo un testo inserito in una cella di Excel che ha la suo interno il simbolo dell'asterisco ma ho il messaggio di errore ed il testo no va capo nella cella.

Riporto la funzione che ho creato: =SOSTITUISCI(A1;"*";CODICE.CARATT(13);CODICE.CARATT(10))

 ma nella cella compare il messaggio di errore VALORE, cosa non va?

P.S. è possibile creale la stessa funzione in vba che analizza un range di celle e mi porta capo il testo dopo aver trovato l'asterisco?

Ciao Nicola.

Answer 1

P.S. è possibile creale la stessa funzione in vba che analizza un range di celle e mi porta capo il testo dopo aver trovato l'asterisco?

Ciao Nicola.

Modifica le parti in grassetto con i tuoi riferimenti:

Public Sub m()

    Dim sh As Worksheet

    Dim rng As Range

    Dim c As Range

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        Set rng = .Range("A1:A10")

        For Each c In rng

            c.Value = Replace(c.Value, "*", vbNewLine)

        Next

    End With

    Set c = Nothing

    Set rng = Nothing

    Set sh = Nothing

End Sub

Aggiungo, senza vb:

=SOSTITUISCI(A1;"*";CODICE.CARATT(10))

Ovviamente devi consentire il Testo a capo nella cella.

• Scheda Home
• Pulsante: Testo a capo

Answer 2

Ciao Norman non so perché seguendo passo passo quanto tu mi indichi ho il messaggio di errore che ti allego, dove sbaglio?. Eppure ho copiato questo da te:~* e digitato tenendo premuto Alt +010 sulla tastiera numerica.

Ho pure selezionato il range per la modifica dei dati.

Ciao Nicola.

Answer 3

Ciao Nicola,

Ho immesso il testo abc*def nelle celle A1:A6

Maisc+F5 per aprire  la finestra di dialogo Trova e sostituisci

Nella prima scheda, Trova ho messo ~* 

Nota che la tilde ~ è necessario per indicare che l'asterisco non deve essere trattato come un jolly.

Nella seconda scheda (Sostituisci), immetto ALT+010 tenendo premuto ALT mentre digito 010 sulla tastiera numerica. Nota che non si vede nulla nella scheda!

Faccio clic su Sostituisci Tutti (Replace All):

,

Tutto fatto!

===

Regards,

Norman

Answer 4

Ciao Mauro, Norman, grazie per il vostro cortese e professionale riscontro.

Tutto perfetto Mauro, con immensa stima ed affetto.

Per Norman al quale va la stessissima considerazione e stima  di Mauro, chiedo di perdonarmi perché non riesco ad inserire in Trova e sostituisci i caratteri che mi indichi, faccio ALT+010 sulla tastiera numerica ma mi emette un BEEP e non mi permette di inserire nulla, dove sbaglio?

Inoltre nella riga TROVA inserisco solo l'asterisco ma non   ~*.

In attesa di un tuo gentile riscontro colgo l'occasione per salutarvi con affetto e sincerità.

Ciao Nicola

Answer 5

Ciao Nicola,

Hai già di una soluzione eccellente VBA da Mauro, ma per una rapida alternativa:

CTRL+MAIUSC+T (oppure MAISC+F5) per visualizzare la finestra di dialogo Trova e sostituisci con la scheda Trova selezionata

Nella scheda Trova (Find), digita ~*

Nella scheda Sostituisci (Replace), digita ALT+010 utilizzando la tastiera numerica 

Sostituisci Tutti (Replace All)

===

Regards,

Norman