Righe in progressione



  • Righe in progressione
    di Frank_to (utente non iscritto) data: 09/05/2014 09:47:40

    Buongiorno a tutti,
    io dovrei creare un foglio per la stesura di computo metrici, mi servirebbe un codice in VBA che mi permetta di inserire righe uguali a quella da me creata con numerazione in ordine crescente, ho provato a registrare una macro ma partendo dal numero 1 mi da sempre riga due alla pressione del tasto inserisci riga con macro associata.
    Qualcuno può aiutarmi?



  • di lepat (utente non iscritto) data: 09/05/2014 10:11:47

    normalmente non c'è bisogno di una macro. basta selezionare la riga e trascinare in basso, se non funziona così allega un file di esempio con la riga da copiare ed il risultato desiderato



  • di Frank_to (utente non iscritto) data: 09/05/2014 10:26:03

    Praticamente io vorrei che la riga si inserisse in automatico alla pressione del tasto inserisci riga...



  • di lepat (utente non iscritto) data: 09/05/2014 11:04:17

    prova questa
     
    Sub Macro1()
    LR = Cells(Rows.Count, "A").End(xlUp).Row
    Rows(LR).Copy
    Rows(LR + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Cells(LR + 1, 1) = Cells(LR, 1) + 1
    Application.CutCopyMode = False
    End Sub



  • di Frank_to (utente non iscritto) data: 09/05/2014 11:31:50

    Ti ringrazio infinitamente
    Funziona!!!!!



  • di Frank_to (utente non iscritto) data: 09/05/2014 11:35:05

    ho notato che il totale non mi somma i totali parziali...
    si riesce a fare qualcosa?



  • di lepat (utente non iscritto) data: 09/05/2014 11:53:14

    nella formula del Totale devi includere la riga vuota sopra il Totale stesso



  • di Frank_to (utente non iscritto) data: 09/05/2014 12:02:44

    Mi hai salvato la vita!