[Risolto] semplicemente copia/scambia una colonna su un'al

[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

[patel]

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

[cater58]

fatto

[lucky63]

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

[cater58]

perfetttttttoooo!
no grazie, di più !!!
come hai fatto a assegnare il tasto esegui macro??

[lucky63]

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.

[cater58]

ok ... scusa ma come si fa a mettere risolto?

[charlie]

Un "giro" nel forum non fa male a nessuno:
viewtopic.php?f=8&t=5661