Excel Forum Per condividere esperienze su Microsoft Excel

aggiungi righe in excel contenenti una formula

  • Messaggi
  • OFFLINE
    alle
    Post: 1
    Registrato il: 16/09/2023
    Città: SASSUOLO
    Età: 59
    Utente Junior
    excel 365
    00 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.
  • ONLINE
    L2018
    Post: 776
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 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
  • OFFLINE
    alle
    Post: 1
    Registrato il: 16/09/2023
    Città: SASSUOLO
    Età: 59
    Utente Junior
    excel 365
    00 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 !
  • ONLINE
    L2018
    Post: 777
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 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
  • OFFLINE
    alle
    Post: 2
    Registrato il: 16/09/2023
    Città: SASSUOLO
    Età: 59
    Utente Junior
    excel 365
    00 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.
  • ONLINE
    L2018
    Post: 778
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 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
  • ONLINE
    L2018
    Post: 779
    Registrato il: 02/04/2018
    Città: PESCARA
    Età: 75
    Utente Senior
    EXCEL 2016 - SPREAD32
    00 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
  • OFFLINE
    dodo47
    Post: 3.547
    Registrato il: 06/04/2013
    Utente Master
    2010
    00 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
  • OFFLINE
    alle
    Post: 3
    Registrato il: 16/09/2023
    Città: SASSUOLO
    Età: 59
    Utente Junior
    excel 365
    00 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.
Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima