| | Post: 1 | Registrato il: 23/02/2017
| Città: ARENZANO | Età: 39 | Utente Junior | 2013 | | OFFLINE | |
|
11/01/2019 13:09 | |
Ciao a tutti, ho bisogno di aiuto.
Ho un foglio "database", nel quale, tramite userform, inserisco dei valori.
Questi valori li inserisco solo su una riga ed uso colonne fino a ("AS").
il codice che uso è il seguente:
Dim iRow As Integer
iRow = 2 'inizio dalla riga 2
While Cells(iRow, 2) <> ""
iRow = iRow + 1
Wend
'page1
Cells(iRow, 2) = Me.TextBox1.Text ' cognome/ obbligatorio
Cells(iRow, 3) = Me.TextBox2.Text ' nome / obbligatorio
Cells(iRow, 4) = Me.TextBox3.Text ' impresa / obbligatorio
Cells(iRow, 5) = Me.TextBox4.Text ' codice fiscale / obbligatorio
Cells(iRow, 6) = Me.TextBox5.Text ' email / obbligatorio
Cells(iRow, 7) = Me.TextBox6.Text ' telefono
ecc. ecc. fino a Cells(iRow, 45) = Me.Label66.Caption + Me.Label65.Caption '
l'aiuto che vorrei è questo:
ho necessità, con la funzione userform_activate, di inserire nella "label65.caption" un valore che veda l'ultimo inserito e lo ampli di 1. esempio( ultimo numero 000001 "presente già nel database", nella userform il nuovo caption 000002).
chi mi aiuta? grazie mille. |
|
| | Post: 652 | Registrato il: 24/06/2015
| Città: CATANIA | Età: 80 | Utente Senior | Excel2019 | | OFFLINE |
|
11/01/2019 17:44 | |
Ciao
Non so se ho capito bene ma provo a darti un suggerimento.
Quando salvi il file NON cancellare la Captiono della Label65.
Nel momento in cui riapri il file e attivi l'UserForm, assumiil valore della Label65 lo incrementi di un'unità (attento alla formattazione) e riassegni come Caption.
Consentimi un consiglio: nella dichiarazione di variabili che si riferiscono a Row o Column utilizza sempre Long e non Integer.
Ciao,
Mario |
| | Post: 1 | Registrato il: 23/02/2017
| Città: ARENZANO | Età: 39 | Utente Junior | 2013 | | OFFLINE | |
|
11/01/2019 20:39 | |
grazie mille dell'aiuto mario. |
|
|