| | Post: 88 | Registrato il: 13/09/2013
| Città: SANGINETO | Età: 59 | Utente Junior | excel 2003 | | OFFLINE | |
|
17/10/2020 19:15 | |
Salve dovrei risolvere un problema, nella colonna A dalla cella A16 vedo inserire il numero progressivo ogni volta che clikko un pulsante, sul Web ho trovato questa macro, e funziona, solo che io ho un problema nella colonna A le celle sono unite 2 a 2, praticamente 16 e 17 unite, 18 e 19 unite ecc, e la macro non funziona, allego file di esempio spero che qualcuno mi aiuti a risolvere. |
|
|
17/10/2020 20:35 | |
Non ho capitom quale delle due... Option Explicit
Sub Progessivo()
Dim Nriga As Long
Nriga = Cells(Rows.Count, 1).End(xlUp).Row
If Nriga < 16 Then Nriga = 16
Cells(16, 1) = Cells(16, 1) + 1 'questa aumenta il numero in A16
Cells(Nriga + 2, 1) = Nriga - 14 'questa aumenta la riga di due celle
End Sub |
| | Post: 88 | Registrato il: 13/09/2013
| Città: SANGINETO | Età: 59 | Utente Junior | excel 2003 | | OFFLINE | |
|
17/10/2020 21:06 | |
Grazie per aver risposto ho provato la macro ma non funziona come dovrebbe, comunque nessuna delle due funzionano, quello che deve fare la macro e clik pulsante nelle celle 17-17 unite inserire il numero 1, clik pulsante nelle celle 18-19 inserire il numero 2 e cosi via. |
| | Post: 1.001 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | OFFLINE |
|
17/10/2020 22:05 | |
Un saluto a tutti.
@Aquilarossa64, immagino che le celle unite dopo la 16-17, 22-23 proseguiranno con le copie 28-29, 34-35, ecc.
Prova e valuta questa mia modifica alla tua macro: Option Explicit
Sub Progessivo()
Dim Nriga As Long
Nriga = Cells(Rows.Count, 1).End(xlUp).Row
If Nriga < 16 Then
Nriga = 16
Cells(Nriga, 1) = Nriga - 15
Else
Nriga = Nriga + 6 'incrementa distanza tra celle unite
Cells(Nriga, 1) = Cells(Nriga, 1).Offset(-6, 0) + 1 'somma 1 al numero nella cella unita precedente
End If
End Sub [Modificato da rollis13 17/10/2020 22:13]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 89 | Registrato il: 13/09/2013
| Città: SANGINETO | Età: 59 | Utente Junior | excel 2003 | | OFFLINE | |
|
18/10/2020 10:56 | |
Grazie rollis13, ho provato la macro e funziona grazie mille |
| | Post: 1.002 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | OFFLINE |
|
18/10/2020 12:49 | |
Grazie del riscontro positivo 👍.
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
|
|