Incrementare una text box

Hai un problema con Excel?

Nuova discussione

Incrementare una text box
di Kirotta data: 24/01/2014 23:30:09
Ciao a tutti
Premettendo che ho messo 0 nella proprietà text della casella di testo txtIncremento
Con le prime righe di codice sotto riportato ogni volta che schiaccio il pulsante txtStart parte un contatore nella casella di testo txtIncremento.
Volendo riportare i numeri che appaiono in questa casella nella colonna A di un Foglio di Excel ho aggiunto le altre righe di codice, però quello che appare nella colonna A del foglio sono tutti 0 e non 12345ecc
Allego anche file
Grazie

Private Sub cmdStart_Click()
Dim LRA As Integer

txtIncremento = 0


If CInt(txtIncremento.Text) < 99 Then
  txtIncremento.Text = CStr(CInt(txtIncremento.Text) + 1)
End If


  LRA = Cells(Rows.Count, "A").End(xlUp).Row + 1
  Sheets(1).Cells(LRA, 1) = Val(txtIcremento)

di patel data: 25/01/2014 07:44:52
non riesco a scaricare il tuo file, ma ho creato una userform di prova e il tuo codice funziona perfettamente
di Kirotta (utente non iscritto) data: 25/01/2014 11:51:45
Ciao Patel
Neanch'io riesco a scaricare il tuo file comunque con solo il codice che ti avevo scritto nella casella di testo mi appare 1 ma ogni volta che clicco sul pulsante rimane a 1.
Se metto 0 nella Text delle proprietà della casella di testo è lo stesso (mi appare 1 e cliccando non si incrementa)
Ho provato 0 nella Text delle proprietà della casella di testo e ho cancellato la prima riga di codice (txtIncremento = 0) e così la Casella di testo sulla Form funziona (il valore si incrementa)
Ma sul Foglio invece di 1,2,3,4,5 ecc mi appaiono solo Zeri invece io vorrei che A2=1 A3=2 A4=3 ecc

Grazie!
di patel data: 25/01/2014 12:53:39
non so cosa dirti, io ho applicato la tua macro e funziona, carica il tuo file su un sito di share e posta il link
di patel data: 25/01/2014 13:13:28
questo è il link al mio file
h t t p://wikisend.com/download/891488/Incremento.xlsm
di Kirotta (utente non iscritto) data: 25/01/2014 14:10:54
Ho visto il tuo file ma io vorrei evitare di mettere il pulsante sul foglio se no pazienza
Se riesci a dargli un occhiata ho caricato il mio file qui:

h t t p ://wikisend.com/download/118314/Prova 3.xls

Potresti anche vedere come mai non riesco a richiamare il Modulo1
Private Sub cmdStart_Click()
Call Colonne (Value)

Grazie
di Kirotta (utente non iscritto) data: 25/01/2014 16:11:29
Patel FUNZIONA però prometti di non arrabbiarti......
Ho scritto txtIcremento invece di txtIncremento nell'ultima riga di codice...... Scusa
La prox volta starò + attenta

Rimane comunque il problema di richiamare il Modulo1 non riesco proprio a capire xchè non và
Ti riposto il mio File:
h t t p ://wikisend.com/download/118314/Prova 3.xls

Private Sub cmdStart_Click()
Call Colonne (Value)
Non succede niente

Grazie e scusa ancora
di patel data: 25/01/2014 16:14:10
a cosa dovrebbe servire Call Colonne(value) ? dove value non viene mai definito ?
Se commenti quella riga funziona tutto, inoltre value è una parola chiave del vba e quindi non deve essere usata a sproposito.
di Kirotta (utente non iscritto) data: 25/01/2014 16:39:52
La Sub dovrebbe inserirmi i numeri che appaiono nella casella di testo sulla Form tramite i tasti numerici nelle colonne F,G,H secondo i criteri che ho messo nei Case
X scrivere nel Modulo ho guardato un pò di esempi in Internet..... x le Sub Nome (ByVal value As Integer)
x richiamare Call Nome (Value)

Non sono troppo pratica dei richiami ai moduli cosa intendi x commentare la riga?
di patel data: 25/01/2014 16:54:38
commentare significa aggiungere all'inizio della riga un apice '
questo rende inattiva la riga, io ho provato ad eliminare la sub colonne e tutti i richiami ad essa e mi sembra che tutto funzioni ugualmente, prova anche tu.
Sbagliare a scrivere le variabili capita a tutti, un modo per evitarlo è dimensionarle all'inizio e prima della prima sub scrivere
Option explicit
se una variabile è scritta male il programma va in errore
di Kirotta (utente non iscritto) data: 25/01/2014 17:03:38
Ma a me serve Sub Colonne se no come faccio a richiamare i numeri
di patel data: 25/01/2014 17:38:33
se ti serve spiegami cosa fa e cos'è value.
Non mi dire che ce l'hai messo perché l'hai visto in rete.
di Kirotta (utente non iscritto) data: 25/01/2014 18:02:57
Il codice del primo case, quello che mi mette i numeri nelle Colonne BCDF, mi avevi aiutato tu.... poi avevo l'esigenza di far apparire gli stessi numeri, ma con altri criteri, nelle Colonne GHI; ho provato ad aggiungere i case, che ora sono nel modulo1, al tuo codice ma non mi faceva apparire niente in GHI xchè, anche se in ordine diverso, i numeri sono sempre 1 2 3 4 5 6 7 8 9 10 11 12; allora mi hai consigliato una Macro quindi io lo creata seguendo il tuo codice e non essendo esperta sono andata in Internet x vedere come scriverla e negli esercizi ho trovato Sub Nome (ByVal value As Integer)
x richiamare Call Nome (Value)
Tu avevi scritto Val (tetStart) quindi Value mi sembrava corretta

Tutto Qua
Scusa se ti ho irritato
Io sono alle prime armi con VBA
Visto che nel codice avevi usato Value allora gli ho passato Value
di patel data: 25/01/2014 19:22:30
non sono irritato, ti ho chiesto di eliminare la sub colonne e tutti i richiami ad essa, hai provato a farlo ? io si e funziona tutto, quindi non serve a niente

Vuoi Approfondire?