Il problema dei 3 corpi: Attraverso continenti e decadi, cinque amici geniali fanno scoperte sconvolgenti mentre le leggi della scienza si sgretolano ed emerge una minaccia esistenziale. Vieni a parlarne su TopManga.
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

inserire righe o riga dopo un intervallo specifico di N righe

Ultimo Aggiornamento: 02/12/2016 19:13
Post: 2
Registrato il: 30/11/2016
Utente Junior
2016
OFFLINE
02/12/2016 16:05

ciao a tutti
mi chiamo Gaetano
Avrei bisogno di creare una macro che mi possa permettere inserire una riga o varie righe, dopo un numero specifico di righe.
faccio un esempio
mario
rossii
via teglia

gisella
rondine
via prima

quello di qui avrei bisogno e specificare che da una riga specifica della mia teballe, possa cominciare ad aggiungere una riga vuota ogni N righe e per N volte.
qualcuno mi potrebbe aiutare?
grazie mille
Post: 3.510
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
02/12/2016 16:17

Sub addrowsafter()
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
first = Selection.Row
n = 3
For r = Lastrow To first Step -1
    Rows(r + 1 & ":" & r + n).Insert ' inserisce n righe
Next
End Sub

parte dalla cella selezionata
[Modificato da patel45 02/12/2016 16:18]

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 2
Registrato il: 30/11/2016
Utente Junior
2016
OFFLINE
02/12/2016 16:37

grazie
ho provato ad inserire il codice che mi hai dato ma esce errore:
non ha definito sub o finzione
Post: 3.511
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
02/12/2016 17:52

hai selezionato la cella iniziale ? hai incollato il codice o lo hai digitato ? allega il tuo file con la macro
[Modificato da patel45 02/12/2016 17:53]

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 3
Registrato il: 30/11/2016
Utente Junior
2016
OFFLINE
02/12/2016 18:11

modifica
Sub addrowsafter()
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
first = Selection.Row
n = 1
For r = Lastrow To first Step -11
Rows(r + 1 & ":" & r + n).Insert
Next
End Sub

ho dovuto modificarlo in questo modo
sembra che funzioni, ma avrei che aggiunga le righe fino a dove voglio io e non fino alla fine, credi che possa essere possibile?
Post: 4
Registrato il: 30/11/2016
Utente Junior
2016
OFFLINE
02/12/2016 18:15

domanda
una volta che lancio la macro, se il risultato ottenuto non dovesse essere quello che io volevo, come faccio a tornare indietro?
Post: 3.514
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
02/12/2016 18:31

Re: modifica
Gaetano Sabino, 02/12/2016 18.11:

... ma avrei che aggiunga le righe fino a dove voglio io e non fino alla fine, credi che possa essere possibile?

sostituisci la riga
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
con
Lastrow = numero che vuoi tu

una volta lanciaata la macro non puoi tornare indietro a meno di non fare una macro che fa l'opposto


----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 2.467
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
02/12/2016 18:32

Le operazioni eseguite da una macro non sono "annullabili".

Devi intervenire manualmente sul foglio.

Alfredo
Post: 3.515
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
02/12/2016 18:37

seleziona tutto il range che vuoi trattare e prova questa
Sub addrowsafter() ' seleziona il range
first = Selection.Row
Lastrow = Selection.Rows.Count + first - 1
n = 3
For r = Lastrow To first Step -1
    Rows(r + 1 & ":" & r + n).Insert ' inserisce 3 righe
Next
End Sub

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 3.516
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
02/12/2016 18:39

Re:
alfrimpa, 02/12/2016 18.32:

Le operazioni eseguite da una macro non sono "annullabili".

Devi intervenire manualmente sul foglio.


E' un difetto di excel, su OpenOffice basta cliccare sul pulsante Annulla e si torna indietro


----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 2.468
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
02/12/2016 18:48

Re: Re:
patel45, 02/12/2016 18.39:


E' un difetto di excel, su OpenOffice basta cliccare sul pulsante Annulla e si torna indietro




Non avendo Open Office non lo sapevo ma Gaetano usa OO?


Alfredo
Post: 3.517
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
02/12/2016 18:50

non lo so, l'ho detto solo per informazione, Excel è migliore senza dubbio di OO, ma non in tutto.

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 5
Registrato il: 30/11/2016
Utente Junior
2016
OFFLINE
02/12/2016 19:10

grazie
grazie adesso provo con le modifiche che mi hai dato
Post: 6
Registrato il: 30/11/2016
Utente Junior
2016
OFFLINE
02/12/2016 19:13

open ofice
io non uso open poco poco posso usare Excel
[SM=x423026]
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 18:39. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com