Pagina 2 di 2
Re: semplicemente copia/scambia una colonna su un'altra
Inviato: giovedì 14 settembre 2017, 18:40
da cater58
ho capito come si fa a citare, non so come modificare i post passati.ì e non vorrei far piu confusione del normale
via per stavolta facciamo che è lo stesso, in futuro usero' il cita.
Riguardo la mia passata domanda ... perche mi sbianca il valore location delle prime tre righe?
ciao
Gianni
Re: semplicemente copia/scambia una colonna su un'altra
Inviato: giovedì 14 settembre 2017, 18:57
da patel
cater58 ha scritto:ho capito come si fa a citare, non so come modificare i post passati.ì e non vorrei far piu confusione del normale
Non ti hanno chiesto di "citare" ma di racchiudere il codice tra i tag Code, vai su vecchi post, modifica, selezioni il codice e clicchi sul pulsante Code, poi salvi con Invia
Re: semplicemente copia/scambia una colonna su un'altra
Inviato: giovedì 14 settembre 2017, 19:23
da cater58
fatto
Re: semplicemente copia/scambia una colonna su un'altra
Inviato: giovedì 14 settembre 2017, 20:40
da lucky63
cater58 ha scritto:IL FILE CORTO è IN EFFETTI IL PRIMO FILE DA CUI IL LAVORO DEVE PARTIRE
applicando la macro:
- cancella delle colonne
- spostamento le due colonne comments e location
- inserisce "prova" nella colonna comments
Ecco la macro finale che ti serve:
Nel file in allegato è già collegata a un pulsante azzurro sul quale ti basta cliccare una volta con il mouse e averne i riscontri.
Codice: Seleziona tutto
Sub LaMacroCheMiServe
doc=thiscomponent
Sh1 = Doc.Sheets(0)
c = Sh1.createCursor
c.gotoEndOfUsedArea(false)
Rem ----- Trova ultima riga dati utili nel foglio di lavoro -----
UltimaRiga = c.RangeAddress.EndRow
REM ----- Rimozione delle colonne che non servono -----
Sh1.Columns.removeByIndex(0, 6)
Sh1.Columns.removeByIndex(1, 1)
Sh1.Columns.removeByIndex(2, 1)
Sh1.Columns.removeByIndex(6, 4)
Rem ----- Inizio Loop -----------
For Riga = 1 to UltimaRiga
Rem ----- Il dato della Colonna C "Comments" viene scritto nella Colonna G "Location" -----
Sh1.getCellByPosition(6, Riga).string = Sh1.getCellByPosition(2, Riga).string
Rem ----- Il dato della Colonna C "Comments" viene sostituito dalla parola "PROVA" -----
Sh1.getCellByPosition(2, Riga).string = "PROVA"
Next Riga
End Sub
Re: semplicemente copia/scambia una colonna su un'altra
Inviato: venerdì 15 settembre 2017, 14:36
da cater58
perfetttttttoooo!
no grazie, di più !!!
come hai fatto a assegnare il tasto esegui macro??
Re: semplicemente copia/scambia una colonna su un'altra
Inviato: venerdì 15 settembre 2017, 17:52
da lucky63
cater58 ha scritto:come hai fatto a assegnare il tasto esegui macro??
Stai andando fuori argomento rispetto al quesito iniziale.
Se lo ritieni metti [Risolto] a questo post.
Apri poi nuovo post con argomento specifico.
Re: semplicemente copia/scambia una colonna su un'altra
Inviato: sabato 16 settembre 2017, 12:06
da cater58
ok ... scusa ma come si fa a mettere risolto?
Re: semplicemente copia/scambia una colonna su un'altra
Inviato: sabato 16 settembre 2017, 13:37
da charlie
Un "giro" nel forum non fa male a nessuno:
viewtopic.php?f=8&t=5661