Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

Separare il testo di una cella in base al valore di un'altra

  • Messaggi
  • OFFLINE
    Lurik_f
    Post: 77
    Registrato il: 12/03/2014
    Città: MODENA
    Età: 54
    Utente Junior
    2019
    00 17/01/2023 09:31
    Buongiorno a tutti,
    ho 3 colonne:
    la prima contiente l'Articolo, la seconda l'Articolo con la descrizione, la terza è vuota

    Esempio

    A1 : Mele
    B1: Mele Mele del Perù
    C1:
    Posto che A1 potrebbe anche contenere degli spazi avrei bisogno tramite vba ( NON formule tipo StringaEstrai(Trova( A1..... ) di creare nella colonna C solo il camppo con la descrizione fino all'ultima riga compilata della colonna A

    Risultato
    A1:Mele
    B1:Mele Mele del Perù
    C1:Mele del Perù

    Grazie mille in anticipo
    Luca

    Excel 365
  • OFFLINE
    by sal
    Post: 7.062
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 17/01/2023 09:53
    Ciao Luca inserisci un esempio, cosi risparmi agli altri di creare un esempio che poi non corrisponde al tuo format.

    esempio io ti creo la macro che funziona sulla colonna "A" e tu hai i dati sulla colonna "D" si deve rifare la macro, come pure se fossero formule, bisogna modificare i riferimenti, ecco il motivo per cui si chiede un esempio.

    Ciao By Sal (8-D

    [Modificato da by sal 17/01/2023 09:54]
    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    Lurik_f
    Post: 77
    Registrato il: 12/03/2014
    Città: MODENA
    Età: 54
    Utente Junior
    2019
    00 17/01/2023 10:02
    Sorry Sal hai ragione
    Ecco il file con l'esempio.
    Grazie mille
    Luca
    Excel 365
  • OFFLINE
    by sal
    Post: 7.063
    Registrato il: 14/11/2004
    Utente Master
    Office 2019
    00 17/01/2023 10:20
    Ciao eccoti la macro che fa il lavoro, crea un modulo standard e fai copia incolla nello stesso 

    Sub estrazione()
Dim r, d, x

For x = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  d = Cells(x, 1)
  If Cells(x, 2) Like d & "*" Then Cells(x, 3) = Mid(Cells(x, 2), Len(d) + 2)
Next x
End Sub


    comunque ti allego anche il file

    Ciao By Sal (8-D
    se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
  • OFFLINE
    Lurik_f
    Post: 78
    Registrato il: 12/03/2014
    Città: MODENA
    Età: 54
    Utente Junior
    2019
    00 17/01/2023 11:16
    Grazie mille Sal !
    Perfetta!
    Excel 365
Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima