Condividi:        

Distribuire il contenuto di una cella in celle adiacenti

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Distribuire il contenuto di una cella in celle adiacenti

Postdi giostacchio » 27/09/17 08:59

buongiorno a tutti
dovrei Distribuire il contenuto di una cella in un file in celle adiacenti di un altro file.
Realizzare una macro che mi permetta di eseguire o una stringa ?
la cella dal quale prelevare questa stringa sarà impostata sempre con il separatore "-"
es. nella cella P4 del file A ci sarà scritto "10291377 - 10291378 - 10291379"

il risultato dovrà essere
nel file B
nella cella a7 si dovrà scrivere 10291377
nella cella a8 si dovrà scrivere 10291378
nella cella a9 si dovrà scrivere 10291379

grazie a tutti :-)
giostacchio
Utente Junior
 
Post: 90
Iscritto il: 14/10/16 07:36

Sponsor
 

Re: Distribuire il contenuto di una cella in celle adiacenti

Postdi giostacchio » 27/09/17 09:08

ehm.....dovrei anche spostare sempre dal file A al file B altre informazioni.
ho cercato di creare tra i due file una cross reference colorata di come dovrei spostare i dati.
ovviamente devo poter scegliere a mia discrezione una riga piuttosta che un altra

grazie

https://we.tl/txmrc96YTd

oppure da qui

https://wetransfer.com/downloads/403067 ... 420/7acaa1
giostacchio
Utente Junior
 
Post: 90
Iscritto il: 14/10/16 07:36

Re: Distribuire il contenuto di una cella in celle adiacenti

Postdi Anthony47 » 27/09/17 14:48

Da come hai descritto il problema si puo' rispondere "Si, probabilmente si puo' fare usando una macro"
Ad esempio:
Codice: Seleziona tutto
Sub DemoCod()
Dim Dest As Range, mySplit
'
Set Dest = Workbooks("Front sheet.xlsm").Sheets("Foglio1").Range("A7")    '<<< La prima cella in cui trascivere
'
mySplit = Split(ActiveCell.Value, "-", , vbTextCompare)
Dest.Resize(UBound(mySplit) + 1, 1).Value = Application.WorksheetFunction.Transpose(mySplit)
End Sub

Mettere il codice in un "Modulo standard del vba" (es Modulo1); personalizzare la riga marcata <<< come da commento.

Poi selezionare la stringa che si vuole spezzare e copiare e mandare in esecuzione la Sub DemoCod.

Tuttavia poco hai detto su come l'utente deve operare, le modalita' con cui sceglie cosa copiare e dove copiarlo, per cui piu' che un codice dimostrativo non ti posso suggerire.
Quanto al secondo problema, e' ancora piu' vago... Vorresti poter copiare un tot di celle da qualche foglio di un primo file a qualche foglio di un secondo file: vuoi una macro che copia a caso /casaccio? Se No allora devi spiegare quali sono i criteri con cui scegliere che cosa copiare e dove incollare.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Distribuire il contenuto di una cella in celle adiacenti

Postdi giostacchio » 02/10/17 06:15

Anthony47 ha scritto:Da come hai descritto il problema si puo' rispondere "Si, probabilmente si puo' fare usando una macro"
Ad esempio:
Codice: Seleziona tutto
Sub DemoCod()
Dim Dest As Range, mySplit
'
Set Dest = Workbooks("Front sheet.xlsm").Sheets("Foglio1").Range("A7")    '<<< La prima cella in cui trascivere
'
mySplit = Split(ActiveCell.Value, "-", , vbTextCompare)
Dest.Resize(UBound(mySplit) + 1, 1).Value = Application.WorksheetFunction.Transpose(mySplit)
End Sub

Mettere il codice in un "Modulo standard del vba" (es Modulo1); personalizzare la riga marcata <<< come da commento.

Poi selezionare la stringa che si vuole spezzare e copiare e mandare in esecuzione la Sub DemoCod.

Tuttavia poco hai detto su come l'utente deve operare, le modalita' con cui sceglie cosa copiare e dove copiarlo, per cui piu' che un codice dimostrativo non ti posso suggerire.
Quanto al secondo problema, e' ancora piu' vago... Vorresti poter copiare un tot di celle da qualche foglio di un primo file a qualche foglio di un secondo file: vuoi una macro che copia a caso /casaccio? Se No allora devi spiegare quali sono i criteri con cui scegliere che cosa copiare e dove incollare.

Ciao


Super grazie Anthony
giostacchio
Utente Junior
 
Post: 90
Iscritto il: 14/10/16 07:36


Torna a Applicazioni Office Windows


Topic correlati a "Distribuire il contenuto di una cella in celle adiacenti":


Chi c’è in linea

Visitano il forum: Nessuno e 75 ospiti