È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Inserire 1 riga, 2, righe, tre righe

Ultimo Aggiornamento: 21/03/2017 13:00
Post: 1
Registrato il: 20/03/2017
Utente Junior
2013
OFFLINE
20/03/2017 16:34

Buon pomeriggio, sono nuova :-)
Ho un problema con excell, avrei bisogno di una macro che mi possa inserire righe vuote tra le celle, tante righe quanto il numero contenuto nella cella. Faccio un esempio:

1
3
2
4

Deve diventare

1

3


2


4




Spero possiate aiutarmi.
Grazie [SM=x423038]

Post: 2.958
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
20/03/2017 16:50

Ciao Simona

Allega un file di esempio spiegando in base a quale criterio vanno inserite le righe perché dalla tua descrizioni (almeno io) non l'ho capito.

Alfredo
Post: 0
Registrato il: 20/03/2017
Città: NAPOLI
Età: 50
Utente Junior
2013
OFFLINE
20/03/2017 17:47

Buonasera,
mi inserisco in questa discussione perché il problema di Simona è anche il mio, quindi provo a spiegare. Abbiamo un file excel (versione 2013) in cui le celle della colonna A contengono numeri. Per motivi che non sto a spiegare, vorremmo in maniera automatica un sistema per cui se per es la cella A1 contiene 1 dopo l'applicazione della macro sia aggiunta una riga immediatamente sotto, se la cella A2 contiene 2 siano aggiunte 2 righe immediatamente sotto, se la cella A3 contiene 4 siano aggiunte 4 righe immediatamente sotto, e così via.
Ancora per es,
1
2
4
1
dovrebbe diventare
1
.
2
.
.
4
.
.
.
.
1
.
(dove il puntino vuole indicare le nuove righe aggiunte).
Spero di essere stato chiaro.
Grazie mille per l'aiuto

Gianni



Post: 3.780
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
20/03/2017 18:13

Sub insertcolA() 
LR = Cells(Rows.Count, "A").End(xlUp).Row
For r = LR To 2 Step -1
  n = Cells(r, 1)
  Rows(r + 1 & ":" & r + n).Insert
Next

End Sub

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 1
Registrato il: 20/03/2017
Utente Junior
2013
OFFLINE
21/03/2017 10:36

Ciao Patel45, bellissimo, funziona alla grande! [SM=x423017] [SM=x423038] [SM=x423028] [SM=x423048]
Post: 1
Registrato il: 20/03/2017
Città: NAPOLI
Età: 50
Utente Junior
2013
OFFLINE
21/03/2017 13:00

grazieeeee!
Vota: 15MediaObject5,0016 1
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 20:30. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com