| | Post: 77 | Registrato il: 12/03/2014
| Città: MODENA | Età: 54 | Utente Junior | 2019 | | OFFLINE | |
|
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 |
|
| | Post: 7.062 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
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 |
| | Post: 77 | Registrato il: 12/03/2014
| Città: MODENA | Età: 54 | Utente Junior | 2019 | | OFFLINE | |
|
17/01/2023 10:02 | |
Ecco il file con l'esempio.
Grazie mille
Luca Excel 365 |
| | Post: 7.063 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
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 |
| | Post: 78 | Registrato il: 12/03/2014
| Città: MODENA | Età: 54 | Utente Junior | 2019 | | OFFLINE | |
|
17/01/2023 11:16 | |
Grazie mille Sal !
Perfetta! Excel 365 |
|
|