Generare un numero progressivo colonna A

Kevin 65

il 17 ott 2020, 20:10

12 risposte

Kevin 65

Pochi posts

Iscritto da: lug, 2019

Messaggi:: 13

Generare un numero progressivo colonna A

17 ott 2020, 20:34

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

O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21791
Re: Generare un numero progressivo colonna A
17 ott 2020, 23:46
Non si capisce molto...
patel
Molto attivo
Iscritto da
giu, 2018
Messaggi:
550
Re: Generare un numero progressivo colonna A
18 ott 2020, 08:02
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.
K
Kevin 65
Pochi posts
Iscritto da
lug, 2019
Messaggi:
13
Re: Generare un numero progressivo colonna A
18 ott 2020, 10:03
Allego file di esempio
K
Kevin 65
Pochi posts
Iscritto da
lug, 2019
Messaggi:
13
Re: Generare un numero progressivo colonna A
18 ott 2020, 10:25
Per allegare il file ho dovuto cambiare estensione in realta e un file .rar per aprirlo cambiate l'estenzione in.rar
K
Kevin 65
Pochi posts
Iscritto da
lug, 2019
Messaggi:
13
Re: Generare un numero progressivo colonna A
18 ott 2020, 10:31
Scusate ma non riesco a capire se il file è stato allegato, fatemi sapere se riuscite a visualizzarlo
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21791
Re: Generare un numero progressivo colonna A
18 ott 2020, 13:56
Evidentemente no dato che non c'è.

Usa un sito di sharing o dropbox e comunque spiegati meglio
K
Kevin 65
Pochi posts
Iscritto da
lug, 2019
Messaggi:
13
Re: Generare un numero progressivo colonna A
18 ott 2020, 19:57
Allego file di esempio nella colonna A ci sono i nume progressivi di esempio. Allego Link del file di esempio
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21791
Re: Generare un numero progressivo colonna A
18 ott 2020, 21:20
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
```
K
Kevin 65
Pochi posts
Iscritto da
lug, 2019
Messaggi:
13
Re: Generare un numero progressivo colonna A
18 ott 2020, 23:44
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.
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21791
Re: Generare un numero progressivo colonna A
19 ott 2020, 07:11
E non hai tentato di modificare il codice? Quanto sai di vba? Si tratta di aggiungere una If... fallo tu.
K
Kevin 65
Pochi posts
Iscritto da
lug, 2019
Messaggi:
13
Re: Generare un numero progressivo colonna A
19 ott 2020, 11:19
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
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21791
Re: Generare un numero progressivo colonna A
19 ott 2020, 11:54
Vedi che non ci voleva molto?

Devi accedere o registrarti per scrivere nel forum

12 risposte