I figli d'arte sono all'altezza dei genitori? Vieni a parlarne su Award & Oscar.
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Numerazione progressiva in textbox all'avvio di una userform ed incremento numero della textbox dopo inserimento

Ultimo Aggiornamento: 02/01/2017 20:24
Post: 1
Registrato il: 30/12/2016
Città: ZERO BRANCO
Età: 38
Utente Junior
EXCEL 2013
OFFLINE
30/12/2016 18:33

AIUTO!!! Problemi con la numerazione progressiva
Ciao a tutti, sono nuovo del forum ed mi sto approcciando a VBA, vi chiedo cortesemente se potete aiutarmi perchè non riesco a risolvere questo problema:
1) ho una userform che attivo tramite un pulsante in un foglio excel e vorrei che lo stesso pulsante oltre che ad aprire la userform mi inserisse in una TextBoxNumeroRicevuta della userform il numero successivo libero che ho nella colona A (la colonna A ha una numerazione progressiva) il codice che ho ora per l'apertura della Userform è questo:

Sub MASCHERA()
UserForm1.Show
End Sub;

2) quando ho compilato la userform ed cliccato sul pulsante per l'inserimento vorrei che la TextBoxNumeroRicevuta del numero aumentasse di uno per procedere con il record successivo il codice che ho ora è questo:

Private Sub CmdInserisci_Click()
Dim ur As Long
ur = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ur + 1, 1).Value = TextBoxNumeroRicevuta.Value
Cells(ur + 1, 2).Value = CDate(TextBoxData.Value)
Cells(ur + 1, 3).Value = TextBox2.Value
Cells(ur + 1, 4).Value = TextBoxNome.Value
Cells(ur + 1, 5).Value = ComboBoxTotale.Value
Cells(ur + 1, 6).Value = TextBox1.Value
Cells(ur + 1, 7).Value = ComboBoxMese.Value
End Sub

Vi ringrazio in anticipo per i consigli che mi darete.
Io sono 2 giorni che ci lavoro ma non trovo la soluzione
[SM=x423061] [SM=x423059]
[Modificato da SpartanMobility 30/12/2016 18:48]
Post: 3.557
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
30/12/2016 19:19

Re: AIUTO!!! Problemi con la numerazione progressiva
SpartanMobility, 30/12/2016 18.33:

vorrei che lo stesso pulsante oltre che ad aprire la userform mi inserisse in una TextBoxNumeroRicevuta della userform il numero successivo libero che ho nella colona A (la colonna A ha una numerazione progressiva) il codice che ho ora per l'apertura della Userform è questo:


non è molto chiaro come trovare il numero successivo libero, allega un file di esempio


----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 1
Registrato il: 30/12/2016
Città: ZERO BRANCO
Età: 38
Utente Junior
EXCEL 2013
OFFLINE
31/12/2016 12:14

FILE
Ecco il file di cui parlavo, scusatemi per la mia poco chiarezza.
Post: 3.559
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
31/12/2016 13:23

Sub MASCHERA()
Dim ur As Long
ur = Sheets("RICEVUTE ISCRIZIONI").Cells(Rows.Count, 1).End(xlUp).Row
UserForm1.TextBoxNumeroRicevuta.Value = ur
UserForm1.Show
End Sub

però nel tuo file ci sono 2 userform uguali, non ho capito qual'è quella buona

per incrementare il num della ricevuta dopo l'inserimento basta scrivere
TextBoxNumeroRicevuta = iRow
invece di
TextBoxNumeroRicevuta = ""
[Modificato da patel45 31/12/2016 14:33]

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 4
Registrato il: 30/12/2016
Città: ZERO BRANCO
Età: 38
Utente Junior
EXCEL 2013
OFFLINE
02/01/2017 20:24

Caro Patel45 problema risolto grazie al tuo contributo, ho aggiustato il codice con i tuoi consigli ed ho risolto il problemi.
Scusami per il ritardo con cui ho risposto.
Vota: 155,0025 2
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 03:41. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com