| | Post: 1 | Registrato il: 16/09/2023
| Città: SASSUOLO | Età: 59 | Utente Junior | excel 365 | | OFFLINE | |
|
16/09/2023 09:04 | |
Ciao, ho una richiesta. Chiedo il vostro aiuto per : creare numero (n,)di righe uguali a quella superiore, ricopiando anche la formula contenuta.
Nel mio esempio, arrivato alla riga n.22 vorrei creare ulteriori 20 righe che mantengano la formula di calcolo contenuta nella riga n.22.
Grazie. |
|
| | Post: 776 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
16/09/2023 10:30 | |
ciao, per caso una cosa così ?
forse troppo banale per non averci pensato anche tu, oppure non ho capito
Leo
LEO
https://t.me/LordBrum |
| | Post: 1 | Registrato il: 16/09/2023
| Città: SASSUOLO | Età: 59 | Utente Junior | excel 365 | | OFFLINE | |
|
16/09/2023 15:18 | |
Certo. proprio così.
compilando una tabella ho la necessità di aumentarne il n. di righe mantenendo la formula .
Se mi sai indicare come fare, sarebbe cosa gradita ! |
| | Post: 777 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
16/09/2023 16:09 | |
nel tuo caso ho prima spostato la riga gialla 20 posti più in giù
poi ho copiato la tua ultima riga N. 22 e incollata per 20 volte in un solo colpo dalla posizione 23 alla 42
non ho dovuto preoccuparmi delle formule perchè si sono autoaggiornate
infine ho aggiornato le formulette della riga gialla finale (somme da 2 a 42)
Leo
LEO
https://t.me/LordBrum |
| | Post: 2 | Registrato il: 16/09/2023
| Città: SASSUOLO | Età: 59 | Utente Junior | excel 365 | | OFFLINE | |
|
16/09/2023 17:17 | |
Questo è quanto faccio già ora.
Io vorrei una macro o una formula per inserire con un solo comando le righe volute. |
| | Post: 778 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
16/09/2023 17:29 | |
questo non so farlo
aspettiamo qualcuno che sappia
Leo
ma ho trovato una semplice macro che aggiunge 1 riga alla volta
AGGIUNGE Sub insert_riga()
Dim Riga As Variant
Riga = InputBox("inserire numero riga")
Rows(Riga & ":" & Riga).Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
[Modificato da L2018 16/09/2023 17:35]
LEO
https://t.me/LordBrum |
| | Post: 779 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | OFFLINE |
|
16/09/2023 18:03 | |
avrei in mano la logica della soluzione, ma purtroppo non so scriverla in VBA
Mentre aspettiamo la soluzione ufficiale posso dire che
al rigo 4 della macro che ho postata, se dopo "& Riga" si scrive "+ 10"
al foglio vengono aggiunte 10 righe , e così via
ma il numero di righe da aggiungere, sommato al rigo da cui si parte non deve superare il numero delle righe disponibili al momento
cioè se il foglio di partenza ha 22 righe, N. riga da cui cominciare + N. righe da inserire deve essere <= 22.
Leo
[Modificato da L2018 16/09/2023 19:28]
LEO
https://t.me/LordBrum |
| | Post: 3.547 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
17/09/2023 10:47 | |
ciao
devi occuparti anche della riga dei totali, altrimenti questi resteranno fermi alla riga 22 quando inserisci le righe.
Pertanto:
1) inserisci una riga vuota prima dei totali
2) modifichi le formule con somme fino a riga 23 (quella vuota)
3) volendo tale riga la puoi assottigliare e colorarla in grigio scuro (o come ti pare).
Infine utilizzi questo codice:
Sub InsertRows()
Dim Righe As Integer, r As Long
Righe = Application.InputBox("Numero righe da inserire", Type:=1)
If Righe = 0 Then Exit Sub
r = Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
Rows(r - 1).Copy
Rows(r & ":" & r + Righe).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("C" & r).Select
End Sub
Saluti
[Modificato da dodo47 17/09/2023 10:48] Domenico
Win 10 - Excel 2016 |
| | Post: 3 | Registrato il: 16/09/2023
| Città: SASSUOLO | Età: 59 | Utente Junior | excel 365 | | OFFLINE | |
|
18/09/2023 14:40 | |
dodo47, 17/09/2023 10:47:
ciao
devi occuparti anche della riga dei totali, altrimenti questi resteranno fermi alla riga 22 quando inserisci le righe.
Pertanto:
1) inserisci una riga vuota prima dei totali
2) modifichi le formule con somme fino a riga 23 (quella vuota)
3) volendo tale riga la puoi assottigliare e colorarla in grigio scuro (o come ti pare).
Infine utilizzi questo codice:
Sub InsertRows()
Dim Righe As Integer, r As Long
Righe = Application.InputBox("Numero righe da inserire", Type:=1)
If Righe = 0 Then Exit Sub
r = Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row
Rows(r - 1).Copy
Rows(r & ":" & r + Righe).Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("C" & r).Select
End Sub
Saluti
Perfetto. Proprio quello che mi serviva.
Grazie. |
|
|