Generare un numero progressivo colonna A

di Kevin 65 il
12 risposte
Pochi posts
Iscritto da
lug, 2019
Messaggi
13
Salve a tutti ho un problema che non riesco a risolvere, provo a spiegare in un foglio di lavoro nella colonna A dalla cella 16 ogni volta che faccio clik sul pulsante mi deve generare un numero progressivo. Sul web ho trovato una macro, solo che nel mio file non funziona perchè io ho le celle unite a due a due, tipo 16 e 17 unite, 18 e 19 unite ecc. Allego il codice, spero che qualcuno mi possa aiutare.

Sub Progessivo()
Dim Nriga As Long
Nriga = Cells(Rows.Count, 1).End(xlUp).Row
If Nriga < 16 Then Nriga = 15
Cells(Nriga + 1, 1) = Nriga - 14
End Sub

12 Risposte

  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Non si capisce molto...
  • Avatar di patel
    Molto attivo
    Iscritto da
    giu, 2018
    Messaggi
    550
    Se le celle sono unite come fai a metterci numeri progressivi ? allega un file di esempio con il risultato desiderato e spiega meglio cosa vuoi ottenere.
  • Pochi posts
    Iscritto da
    lug, 2019
    Messaggi
    13
    Allego file di esempio
  • Pochi posts
    Iscritto da
    lug, 2019
    Messaggi
    13
    Per allegare il file ho dovuto cambiare estensione in realta e un file .rar per aprirlo cambiate l'estenzione in.rar
  • Pochi posts
    Iscritto da
    lug, 2019
    Messaggi
    13
    Scusate ma non riesco a capire se il file è stato allegato, fatemi sapere se riuscite a visualizzarlo
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Evidentemente no dato che non c'è.

    Usa un sito di sharing o dropbox e comunque spiegati meglio
  • Pochi posts
    Iscritto da
    lug, 2019
    Messaggi
    13
    Allego file di esempio nella colonna A ci sono i nume progressivi di esempio. Allego Link del file di esempio
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Ma scusa, quella If non ha senso.

    Ti basta
    
Dim Nriga As Long
Nriga = Cells(Rows.Count, 1).End(xlUp).Row
Cells(Nriga + 2, 1) = Cells(Nriga, 1) + 1
  • Pochi posts
    Iscritto da
    lug, 2019
    Messaggi
    13
    Grazie oregon per aver risposto ho provato il codice ma c'è un problema, devo indicare la cella di partenza dove inserire il primo numero è la cella A16.
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    E non hai tentato di modificare il codice? Quanto sai di vba? Si tratta di aggiungere una If... fallo tu.
  • Pochi posts
    Iscritto da
    lug, 2019
    Messaggi
    13
    Ciao oregon ho risolto cosi
    Sub Prog()
    Dim Nriga As Long
    Nriga = Cells(Rows.Count, 1).End(xlUp).Row
    If Nriga < 15 Then Nriga = 14
    Cells(Nriga + 2, 1) = Cells(Nriga, 1) + 1
    End Sub
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Vedi che non ci voleva molto?
Devi accedere o registrarti per scrivere nel forum
12 risposte