user form di inserimento dati

[apoben64]

Ciao a tutti ho creato una user form per l'inserimento di dati in un folgio
excel, avrei bisogno di una routine o codice che ogni qualvolta archivio i
dati inseriti , mi aggiorni un campo della maschera con un un numero
progressivo , che a sua volta viene inserito nella riga , insieme agli altri
dati immessi nel foglio di excel.
Grazie tante per un gradito suggerimento.
Apoben64

[Mauro Gamberini]

Post by apoben64
Ciao a tutti ho creato una user form per l'inserimento di dati in un folgio
excel, avrei bisogno di una routine o codice che ogni qualvolta archivio i
dati inseriti , mi aggiorni un campo della maschera con un un numero
progressivo , che a sua volta viene inserito nella riga , insieme agli altri
dati immessi nel foglio di excel.

Se ci dai la struttura dei tuoi dati...
In linea di massima, quando confermi i tuoi dati,
fai leggere la colonna del numero progressivo
che hai come id(immagino) ed aumentala di 1.

[apoben64]

Post by apoben64

Post by apoben64
Ciao a tutti ho creato una user form per l'inserimento di dati in un

folgio

Post by apoben64
excel, avrei bisogno di una routine o codice che ogni qualvolta archivio i
dati inseriti , mi aggiorni un campo della maschera con un un numero
progressivo , che a sua volta viene inserito nella riga , insieme agli

altri

Post by apoben64
dati immessi nel foglio di excel.

Se ci dai la struttura dei tuoi dati...
In linea di massima, quando confermi i tuoi dati,
fai leggere la colonna del numero progressivo
che hai come id(immagino) ed aumentala di 1.
--
----------------------------
Mauro Gamberini
Ti ringrazio per la risposta , la struttura è semplice ho creato delle textbox : data, oggetto, importo,codice entrata e uscita , annotazioni; pulsanti di archivia, pulisci e salva.

Adesso ogni volta che archivio, mi inserice i dati partendo dalla prima riga
vuota e dalle colonne C..... . Nel foglio ho inserito nella colonna B
progressivo con la funzione se collegata all'immissione della data . In
visual basic quale istruzione devo mettere e devo usare una textbox? Devo
metterla dopo l'istrzione di archivia ?. Grazie per la prontezza nella
risposta se al limite posso in qualche modo inviare il file , fammelo sapere.

[Mauro Gamberini]

Post by apoben64
Ti ringrazio per la risposta , la struttura è semplice ho creato delle
data, oggetto, importo,codice entrata e uscita , annotazioni; pulsanti di

archivia, pulisci e salva.

Post by apoben64
Adesso ogni volta che archivio, mi inserice i dati partendo dalla prima riga
vuota e dalle colonne C..... . Nel foglio ho inserito nella colonna B
progressivo con la funzione se collegata all'immissione della data . In
visual basic quale istruzione devo mettere e devo usare una textbox? Devo
metterla dopo l'istrzione di archivia ?. Grazie per la prontezza nella
risposta se al limite posso in qualche modo inviare il file , fammelo sapere.

Proviamo(proviamo) senza invii.

Nel codice del pulsante Archivia controlla l'ultima riga di B nella quale
hai scritto
e aggiungi qualcosa tipo:

dim nr as long
nr=tuoFoglio.range("B65536").end(xlup).row

e scrivi nella riga sotto aumentando di 1

tuoFoglio.range("B" & nr+1).value=tuoFoglio.Range("B" & nr).value+1

Adesso nella colonna B, hai il tuo numero incrementato.
Portalo dove ti serve. Ti puoi riferire a lui con una cosa tipo:
tuofoglio.range("B65536").end(xlup).value

[apoben64]

Post by apoben64

Post by apoben64
Ti ringrazio per la risposta , la struttura è semplice ho creato delle
data, oggetto, importo,codice entrata e uscita , annotazioni; pulsanti di

archivia, pulisci e salva.

Post by apoben64
Adesso ogni volta che archivio, mi inserice i dati partendo dalla prima

riga

Post by apoben64
vuota e dalle colonne C..... . Nel foglio ho inserito nella colonna B
progressivo con la funzione se collegata all'immissione della data . In
visual basic quale istruzione devo mettere e devo usare una textbox? Devo
metterla dopo l'istrzione di archivia ?. Grazie per la prontezza nella
risposta se al limite posso in qualche modo inviare il file , fammelo

sapere.
Proviamo(proviamo) senza invii.
Nel codice del pulsante Archivia controlla l'ultima riga di B nella quale
hai scritto
dim nr as long
nr=tuoFoglio.range("B65536").end(xlup).row
e scrivi nella riga sotto aumentando di 1
tuoFoglio.range("B" & nr+1).value=tuoFoglio.Range("B" & nr).value+1
Adesso nella colonna B, hai il tuo numero incrementato.
tuofoglio.range("B65536").end(xlup).value
--
----------------------------
Mauro Gamberini

Forse è meglio se ti inserisco il codice della user form, nel foglio di
excel la numerazione progressiva inizia nella colonna B5 con la funziona SE
(textbox8) :


Private Sub CommandButton1_Click()

Worksheets("foglio1").Range("c4") = TextBox1.Text
Texbox1 = Format(Texbox1, "(mm/dd/yy")
Worksheets("foglio1").Range("D5") = TextBox2.Text
Worksheets("foglio1").Range("e5") = TextBox3.Text
Worksheets("foglio1").Range("f5") = TextBox4.Text
Worksheets("foglio1").Range("g5") = TextBox5.Text
Worksheets("foglio1").Range("h5") = TextBox6.Text
Worksheets("foglio1").Range("j5") = TextBox7.Text
b5?

TextBox1.SetFocus
End Sub

'pulsante pulisci'

Private Sub CommandButton2_Click()
TextBox1 = Clear
TextBox2 = Clear
TextBox3 = Clear
TextBox4 = Clear
TextBox5 = Clear
TextBox6 = Clear
TextBox7 = Clear
TextBox1.SetFocus
End Sub

'pulsante archivia '

Private Sub CommandButton3_Click()
Sheets("foglio1").Select
Range("c1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = TextBox1.Text
ActiveCell.Offset(0, 1) = TextBox2.Text
ActiveCell.Offset(0, 2) = TextBox3.Text
ActiveCell.Offset(0, 3) = TextBox4.Text
ActiveCell.Offset(0, 4) = TextBox5.Text
ActiveCell.Offset(0, 5) = TextBox6.Text
ActiveCell.Offset(0, 6) = TextBox7.Text

End Sub

Private Sub CommandButton4_Click()
x = MsgBox("Vuoi uscire dalla maschera?", vbYesNoCancel)
If x = vbYes Then Unload Me
End Sub

Private Sub CommandButton5_Click()
x = MsgBox("sei sicuro di uscire dal lavoro e salvarlo?", vbYesNo)
If x = vbYes Then ActiveWorkbook.Save
Application.Quit
End Sub

Ti ringrazio di nuovo per il tuo interessamento!!!!!!

[Mauro Gamberini]

Post by apoben64
Forse è meglio se ti inserisco il codice della user form, nel foglio di
excel la numerazione progressiva inizia nella colonna B5 con la funziona SE

Non capisco cosa sia 'sto SE.
Il CommandButton1, che fa?

E' il CommadButton3 che archivia?

Private Sub CommandButton3_Click()

Foglio1.Range("C65536").End(xlUp).Offset(1, 0).Select

With ActiveCell

.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = TextBox3.Text
.Offset(0, 3).Value = TextBox4.Text
.Offset(0, 4).Value = TextBox5.Text
.Offset(0, 5).Value = TextBox6.Text
.Offset(0, 6).Value = TextBox7.Text
'.Offset(0, -1).Value = TextBox8.Text
'Questa ultima riga inserirà il progressivo

End With

End Sub

Domanda sciocca(la mia).
Ma quando schiacci il pulsante che Archivia,
se tu avessi una bella MsgBox che ti chiede
conferma e in caso affermativo ti inserisce e
pulisce anche le TextBox?

Chiarisci, per favore cosa fa il CommandButton1.

[apoben64]

Post by Mauro Gamberini

Post by apoben64
Forse è meglio se ti inserisco il codice della user form, nel foglio di
excel la numerazione progressiva inizia nella colonna B5 con la funziona

SE
Non capisco cosa sia 'sto SE.
Il CommandButton1, che fa?
E' il CommadButton3 che archivia?
Private Sub CommandButton3_Click()
Foglio1.Range("C65536").End(xlUp).Offset(1, 0).Select
With ActiveCell
.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = TextBox3.Text
.Offset(0, 3).Value = TextBox4.Text
.Offset(0, 4).Value = TextBox5.Text
.Offset(0, 5).Value = TextBox6.Text
.Offset(0, 6).Value = TextBox7.Text
'.Offset(0, -1).Value = TextBox8.Text
'Questa ultima riga inserirà il progressivo
End With
End Sub
Domanda sciocca(la mia).
Ma quando schiacci il pulsante che Archivia,
se tu avessi una bella MsgBox che ti chiede
conferma e in caso affermativo ti inserisce e
pulisce anche le TextBox?
Chiarisci, per favore cosa fa il CommandButton1.
--
----------------------------
Mauro Gamberini
La funzione =SE è inserita direttamente nel foglio, ogniqualvolta viene riempiota una riga della colonna C (data) attribuisce il numero progressivo es. B5 è 1 una volta compilato il campo C6 , B6 diventa 2, e così via ; è quello che però vorrei venisse fuori automaticamente dalla user form .

Ti confermo che il commandbutton3 è " archivia".
Il commandbutton2 è la funzione pulisce , in quanto alcuni dati inserisco
sono gli stessi e cambiano solo di importo.
Il commandbutton1 mi è servito inizialmente per definire il formato data
della colonna C , ma in effetti nella user form non vi è alcun pulsante.
Mi spiace che ti confronti con un neofita "fai da te" e direi scarso , ma
ti ringrazio per la tua attenzione.

[Mauro Gamberini]

Post by apoben64

Post by Mauro Gamberini
La funzione =SE è inserita direttamente nel foglio, ogniqualvolta

viene riempiota una riga della colonna C (data) attribuisce il numero
progressivo es. B5 è 1 una volta compilato il campo C6 , B6 diventa 2, e
così via ; è quello che però vorrei venisse fuori automaticamente dalla
user form .

Post by apoben64
Ti confermo che il commandbutton3 è " archivia".
Il commandbutton2 è la funzione pulisce , in quanto alcuni dati inserisco
sono gli stessi e cambiano solo di importo.
Il commandbutton1 mi è servito inizialmente per definire il formato data
della colonna C , ma in effetti nella user form non vi è alcun pulsante.
Mi spiace che ti confronti con un neofita "fai da te" e direi scarso , ma
ti ringrazio per la tua attenzione.

Mi sto divertendo.

Ora prova a copia incollare questo nella UserForm:

Private Sub UserForm_Activate()

With Worksheets("Foglio1")
TextBox8.Text = .Range("B65536").End(xlUp).Value
End With

End Sub

Private Sub CommandButton3_Click()

Worksheets("Foglio1").Range("C65536").End(xlUp).Offset(1, 0).Select

With ActiveCell

.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = TextBox3.Text
.Offset(0, 3).Value = TextBox4.Text
.Offset(0, 4).Value = TextBox5.Text
.Offset(0, 5).Value = TextBox6.Text
.Offset(0, 6).Value = TextBox7.Text
.Offset(1, -1).Value = TextBox8.Text + 1
TextBox8.Text = .Range("B65536").End(xlUp).Value
End With

End Sub


Cosa succede?
All'Activate della UserForm andiamo a scrivere nella TextBox8
(aggiungila) il numero progressivo del prossimo inserimento.
Quando invierai i dati, verranno inseriti e contemporaneamente
verrà aggiunto il nuovo numero prograssivo
nella riga sotto. Numero che, verrà riportato nella
TextBox8.

Fai un po' di prove e posta tranquillo se hai problemi.

[apoben64]

Post by Mauro Gamberini

Post by apoben64

Post by Mauro Gamberini
La funzione =SE è inserita direttamente nel foglio, ogniqualvolta

viene riempiota una riga della colonna C (data) attribuisce il numero
progressivo es. B5 è 1 una volta compilato il campo C6 , B6 diventa 2, e
così via ; è quello che però vorrei venisse fuori automaticamente dalla
user form .

Post by apoben64
Ti confermo che il commandbutton3 è " archivia".
Il commandbutton2 è la funzione pulisce , in quanto alcuni dati inserisco
sono gli stessi e cambiano solo di importo.
Il commandbutton1 mi è servito inizialmente per definire il formato data
della colonna C , ma in effetti nella user form non vi è alcun pulsante.
Mi spiace che ti confronti con un neofita "fai da te" e direi scarso , ma
ti ringrazio per la tua attenzione.

Mi sto divertendo.
Private Sub UserForm_Activate()
With Worksheets("Foglio1")
TextBox8.Text = .Range("B65536").End(xlUp).Value
End With
End Sub
Private Sub CommandButton3_Click()
Worksheets("Foglio1").Range("C65536").End(xlUp).Offset(1, 0).Select
With ActiveCell
.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = TextBox3.Text
.Offset(0, 3).Value = TextBox4.Text
.Offset(0, 4).Value = TextBox5.Text
.Offset(0, 5).Value = TextBox6.Text
.Offset(0, 6).Value = TextBox7.Text
.Offset(1, -1).Value = TextBox8.Text + 1
TextBox8.Text = .Range("B65536").End(xlUp).Value
End With
End Sub
Cosa succede?
All'Activate della UserForm andiamo a scrivere nella TextBox8
(aggiungila) il numero progressivo del prossimo inserimento.
Quando invierai i dati, verranno inseriti e contemporaneamente
verrà aggiunto il nuovo numero prograssivo
nella riga sotto. Numero che, verrà riportato nella
TextBox8.
Fai un po' di prove e posta tranquillo se hai problemi.
--
----------------------------
Mauro Gamberini

TextBox8.Text = .Range("B65536").End(xlUp).Value

[Mauro Gamberini]

Post by Mauro Gamberini
TextBox8.Text = .Range("B65536").End(xlUp).Value

TextBox8.Text = Worksheets("Foglio1").Range("B65536").End(xlUp).Value

Scusa, ho scritto direttamente qui senza testare in vba.
Così *dovrebbe* essere a posto.

[apoben64]

Post by Mauro Gamberini

Post by Mauro Gamberini
TextBox8.Text = .Range("B65536").End(xlUp).Value

TextBox8.Text = Worksheets("Foglio1").Range("B65536").End(xlUp).Value
Scusa, ho scritto direttamente qui senza testare in vba.
Così *dovrebbe* essere a posto.
--
----------------------------
Mauro Gamberini
Mi spiace del grattacapo che stò procurando, ho inserito la nuova istruzione senza avere più alcun errore di debug se non che ,dopo l'archiviazione mi scompare il progressivo inserito manualmente nella textbox8 della maschera , e peraltro il progressivo mi sbalza di una riga sotto rispetto alla riga dei dati inseriti e copiati nella colonna C . C'è qualche speranza ?

[Mauro Gamberini]

Mi spiace del grattacapo che stò procurando, ho inserito la nuova istruzione
senza avere più alcun errore di debug se non che ,dopo l'archiviazione mi
scompare il progressivo inserito manualmente nella textbox8 della maschera
, e peraltro il progressivo mi sbalza di una riga sotto rispetto alla riga
dei dati inseriti e copiati nella colonna C . C'è qualche speranza ?
*************************************************************************

In effetti io avrei fatto una cosa che il progressivo
se lo gestisce da sola..., rileggi il post
precedente(o 2 post fa).

Preferisci gestirlo tu dalla TextBox?

[apoben64]

Post by Mauro Gamberini
Mi spiace del grattacapo che stò procurando, ho inserito la nuova istruzione
senza avere più alcun errore di debug se non che ,dopo l'archiviazione mi
scompare il progressivo inserito manualmente nella textbox8 della maschera
, e peraltro il progressivo mi sbalza di una riga sotto rispetto alla riga
dei dati inseriti e copiati nella colonna C . C'è qualche speranza ?
*************************************************************************
In effetti io avrei fatto una cosa che il progressivo
se lo gestisce da sola..., rileggi il post
precedente(o 2 post fa).
Preferisci gestirlo tu dalla TextBox?
--
----------------------------
Mauro Gamberini
Il punto è che adesso che se inserisco nella textbox il nuovo progressivo questo si aggiorna nel foglio ma nella maschera rimane tale quale e quindi non ha senso tutte le volte cambiarlo, mi spiego meglio se immetto 10 , nel foglio inserice 11 nella colonna anche se sbalzato in giù di una riga dai dati incollati e posi , rimanedo sempre il 10 mi rimette nella seguente operazione 11.

Forse è meglio che lasci la vecchia funzione =SE , non ti pare ?

Post by Mauro Gamberini
Ho provato anche ad eliminare la funzione (TextBox8.Text = .Range("B65536").End(xlUp).Value ) nel commandbutton 3 ma ho lo stesso risultato.

[Mauro Gamberini]

Post by Mauro Gamberini
Il punto è che adesso che se inserisco nella textbox il nuovo

progressivo questo si aggiorna nel foglio ma nella maschera rimane tale
quale e quindi non ha senso tutte le volte cambiarlo, mi spiego meglio se
immetto 10 , nel foglio inserice 11 nella colonna anche se sbalzato in giù
di una riga dai dati incollati e posi , rimanedo sempre il 10 mi rimette
nella seguente operazione 11.
************************************

Dimmi, per favore, *quando* e *come* vuoi aggiornare
il progressivo.

Manuale? Automatico?

[apoben64]

Post by Mauro Gamberini

Post by Mauro Gamberini
Il punto è che adesso che se inserisco nella textbox il nuovo

progressivo questo si aggiorna nel foglio ma nella maschera rimane tale
quale e quindi non ha senso tutte le volte cambiarlo, mi spiego meglio se
immetto 10 , nel foglio inserice 11 nella colonna anche se sbalzato in giù
di una riga dai dati incollati e posi , rimanedo sempre il 10 mi rimette
nella seguente operazione 11.
************************************
Dimmi, per favore, *quando* e *come* vuoi aggiornare
il progressivo.
Manuale? Automatico?
--
----------------------------
Mauro Gamberini
Se è possibile automatico dopo aver digitato il pulsante "archivia" .Grazie

[Mauro Gamberini]

Post by Mauro Gamberini
Dimmi, per favore, *quando* e *come* vuoi aggiornare
il progressivo.
Manuale? Automatico?
Se è possibile automatico dopo aver digitato il pulsante "archivia" .Grazie

Allora, ricapitoliamo.
Tu attivi la UserForm.
Ti trovi nel TextBox8 un numero
progressivo che *dovrebbe* essere
nuovo, senza dati sulla stessa riga del
Foglio1.
Ok fin qui?

Scrivi nelle altre TextBox.
Confermi.
Nel Foglio1 avrai già il tuo
nuovo numero progressivo nella riga
sotto a quella che hai appena inserito.
Numero che dovrebbe essere già riportato
all'interno della TextBox8.
Ok? E' questa la situazione?
Bene, se vuoi pulire le altre TextBox
cambiamo così:

Private Sub CommandButton3_Click()

Worksheets("Foglio1").Range("C65536").End(xlUp).Offset(1, 0).Select

With ActiveCell

.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = TextBox3.Text
.Offset(0, 3).Value = TextBox4.Text
.Offset(0, 4).Value = TextBox5.Text
.Offset(0, 5).Value = TextBox6.Text
.Offset(0, 6).Value = TextBox7.Text
.Offset(1, -1).Value = TextBox8.Text + 1
TextBox8.Text =
Worksheets("Foglio1").Range("B65536").End(xlUp).Value

TextBox1.Text=""
TextBox2.Text=""
'........................
'.........................
TextBox7.Text=""

End With

End Sub

Proviamo?
Io però sto per smollare qui.
Ci guardo domani mattina.

[apoben64]

Post by Mauro Gamberini
Dimmi, per favore, *quando* e *come* vuoi aggiornare
il progressivo.
Manuale? Automatico?
Se è possibile automatico dopo aver digitato il pulsante "archivia"

..Grazie
Allora, ricapitoliamo.
Tu attivi la UserForm.
Ti trovi nel TextBox8 un numero
progressivo che *dovrebbe* essere
nuovo, senza dati sulla stessa riga del
Foglio1.
Ok fin qui?
Scrivi nelle altre TextBox.
Confermi.
Nel Foglio1 avrai già il tuo
nuovo numero progressivo nella riga
sotto a quella che hai appena inserito.
Numero che dovrebbe essere già riportato
all'interno della TextBox8.
Ok? E' questa la situazione?
Bene, se vuoi pulire le altre TextBox
Private Sub CommandButton3_Click()
Worksheets("Foglio1").Range("C65536").End(xlUp).Offset(1, 0).Select
With ActiveCell
.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = TextBox3.Text
.Offset(0, 3).Value = TextBox4.Text
.Offset(0, 4).Value = TextBox5.Text
.Offset(0, 5).Value = TextBox6.Text
.Offset(0, 6).Value = TextBox7.Text
.Offset(1, -1).Value = TextBox8.Text + 1
TextBox8.Text =
Worksheets("Foglio1").Range("B65536").End(xlUp).Value
TextBox1.Text=""
TextBox2.Text=""
'........................
'.........................
TextBox7.Text=""
End With
End Sub
Proviamo?
Io però sto per smollare qui.
Ci guardo domani mattina.
--
----------------------------
Mauro Gamberini

Gentile Mauro, ho inserito le tue istruzioni, eliminando l'istruzione
:.offset(1,-1).value=textbox8.text+1, in quanto mi dava errore di debug.
Adesso quando archivio i dati ottengo il risultato voluto sul foglio e
cioè il progressivo in automatico, anche se non viene visulaizzato nel campo
della user form (textbox8) nè tantomeno aggiornato. Questo in ultimo era lo
scopo della mia richiesta , ma diciamo che comunque mi ritengo soddisfatto
del risultato ottenuto .
Evidentemente non si può collegare il progressivo del foglio per essere
visualizzato anche nel campo della userform . Ti sono veramente grato . Ciao
e grazie da apoben64

[Mauro Gamberini]

Post by apoben64
ho inserito le tue istruzioni, eliminando l'istruzione
:.offset(1,-1).value=textbox8.text+1, in quanto mi dava errore di debug.
Adesso quando archivio i dati ottengo il risultato voluto sul foglio e
cioè il progressivo in automatico, anche se non viene visulaizzato nel campo
della user form (textbox8) nè tantomeno aggiornato. Questo in ultimo era lo
scopo della mia richiesta , ma diciamo che comunque mi ritengo soddisfatto
del risultato ottenuto .
Evidentemente non si può collegare il progressivo del foglio per essere
visualizzato anche nel campo della userform

No no, amico. risolviamo tutto!!!(forse....8-))

Prova a mandare il file all'indirizzo che
trovi nell'header, rimuovendo ciò che va rimosso.
Nel caso, se qualcuno sta seguendo il thread,
posto anche qui l'eventuale soluzione.

[apoben64]

Post by apoben64

Post by apoben64
ho inserito le tue istruzioni, eliminando l'istruzione
:.offset(1,-1).value=textbox8.text+1, in quanto mi dava errore di debug.
Adesso quando archivio i dati ottengo il risultato voluto sul foglio e
cioè il progressivo in automatico, anche se non viene visulaizzato nel

campo

Post by apoben64
della user form (textbox8) nè tantomeno aggiornato. Questo in ultimo era

lo

Post by apoben64
scopo della mia richiesta , ma diciamo che comunque mi ritengo

soddisfatto

Post by apoben64
del risultato ottenuto .
Evidentemente non si può collegare il progressivo del foglio per essere
visualizzato anche nel campo della userform

No no, amico. risolviamo tutto!!!(forse....8-))
Prova a mandare il file all'indirizzo che
trovi nell'header, rimuovendo ciò che va rimosso.
Nel caso, se qualcuno sta seguendo il thread,
posto anche qui l'eventuale soluzione.
--
----------------------------
Mauro Gamberini
OK, ti ho spedito il file all'indirizzo email del tuo profilo, spero che abbia capito bene. Ti ringrazio. Apoben64

[Mauro Gamberini]

Post by apoben64
OK, ti ho spedito il file all'indirizzo email del tuo profilo, spero che

abbia capito bene. Ti ringrazio. Apoben64
Rispondo qui.
Ho guardato il file.
Devi solo:
Evidenziare *tutta* la colonna B.
Premere Canc.

Riscrivere Protocollo nella cella B2(credo).
Riprovare.

Probabilmente ti erano rimaste alcune formule SE()
o comunque qualcosa in qualche cella di B.

Il file che mi hai mandato, con questa procedura, è ok.

[apoben64]

Post by apoben64

Post by apoben64
OK, ti ho spedito il file all'indirizzo email del tuo profilo, spero che

abbia capito bene. Ti ringrazio. Apoben64
Rispondo qui.
Ho guardato il file.
Evidenziare *tutta* la colonna B.
Premere Canc.
Riscrivere Protocollo nella cella B2(credo).
Riprovare.
Probabilmente ti erano rimaste alcune formule SE()
o comunque qualcosa in qualche cella di B.
Il file che mi hai mandato, con questa procedura, è ok.
--
----------------------------
Mauro Gamberini
Ti ho mandato un email di ringraziamento e di cuore , senza neanche aver visto le tue ultime indicazioni , e questo perchè l'interessamento e il lavoro che hai svolto mi basta e mi avanza, preciso comunque, che visto che hai il file ti sarei accorto che in B2 non devo riscrivere alcunchè, le formule SE() sono state cancellate e per assurdo adesso non viene aggiornato il progressivo sul foglio nè tantomeno questo viene ancora aggioranto o visualizzato nel campo della user form.

Ti saluto . Apoben64 >

[Mauro Gamberini]

preciso comunque, che visto che hai il file ti sarei accorto che in B2 non
devo riscrivere alcunchè, le formule SE() sono state cancellate e per
assurdo adesso non viene aggiornato il progressivo sul foglio nè tantomeno
questo viene ancora aggioranto o visualizzato nel campo della user form.
******************************************************************

Ti rimando il file *funzionante*.

[apoben64]

Post by Mauro Gamberini

Post by Mauro Gamberini
TextBox8.Text = .Range("B65536").End(xlUp).Value

TextBox8.Text = Worksheets("Foglio1").Range("B65536").End(xlUp).Value
Scusa, ho scritto direttamente qui senza testare in vba.
Così *dovrebbe* essere a posto.
--
----------------------------
Mauro Gamberini

Private Sub CommandButton3_Click()
Worksheets("Foglio1").Range("C65536").End(xlUp).Offset(1, 0).Select
With ActiveCell
.Value = TextBox1.Text
.Offset(0, 1).Value = TextBox2.Text
.Offset(0, 2).Value = TextBox3.Text
.Offset(0, 3).Value = TextBox4.Text
.Offset(0, 4).Value = TextBox5.Text
.Offset(0, 5).Value = TextBox6.Text
.Offset(0, 6).Value = TextBox7.Text
.Offset(1, -1).Value = TextBox8.Text + 1
TextBox8.Text = Worksheets("Foglio1").Range("B65536").End(xlUp).Value
End With

[apoben64]

Un grazie

[Mauro Gamberini]

Post by apoben64
Un grazie

Nel senso che abbiamo risolto?
Bene. 8-)

[apoben64]

Post by Mauro Gamberini

Post by apoben64
Un grazie

Nel senso che abbiamo risolto?
Bene. 8-)
--
----------------------------
Mauro Gamberini
Eccezionale , tutto OK, un grazie infinito , adesso continuo a portare avanti il progetto. A risentirci. Luca .Apoben64

[Mauro Gamberini]

Post by Mauro Gamberini
A risentirci.

Sembra una minaccia... 8-)

[apoben64]

Post by Mauro Gamberini

Post by Mauro Gamberini
A risentirci.

Sembra una minaccia... 8-)
--
----------------------------
Mauro Gamberini
Assolutamente no, il fatto è che portando avanti l'applicazione penso che avrò bisogno di qualche consiglio, quindi pensavo di porterti disturbare . Posso ?

[Mauro Gamberini]

Post by Mauro Gamberini
Assolutamente no, il fatto è che portando avanti l'applicazione penso

che avrò bisogno di qualche consiglio, quindi pensavo di porterti
disturbare . Posso ?
C'era la faccina 8-).
Non è che puoi, devi!

Buon lavoro.

[apoben64]

Post by Mauro Gamberini

Post by Mauro Gamberini
Assolutamente no, il fatto è che portando avanti l'applicazione penso

che avrò bisogno di qualche consiglio, quindi pensavo di porterti
disturbare . Posso ?
C'era la faccina 8-).
Non è che puoi, devi!
Buon lavoro.
--
----------------------------
Mauro Gamberini

Ascoltami, ti sembrerà pazzesco, ho supposto che 8-) sia una forma di
comumicazione ma non ne conosco il significato anche perchè non chatto,
preferisco scrivere . Forse dovrei incominciare a imparare ?

Post by Mauro Gamberini
Buon lavoro

Apoben64

[Mauro Gamberini]

Post by apoben64
Ascoltami, ti sembrerà pazzesco, ho supposto che 8-) sia una forma di
comumicazione ma non ne conosco il significato anche perchè non chatto,
preferisco scrivere . Forse dovrei incominciare a imparare ?

Puoi cominciare da qui:

http://www.windweaver.com/emoticon.htm#HAPPY

Ma se in Google digiti:
Emoticon
e dai invio, di siti così ne trovi un tot.

Buon lav... buon divertimento!

[apoben64]

Post by Mauro Gamberini

Post by apoben64
Ascoltami, ti sembrerà pazzesco, ho supposto che 8-) sia una forma di
comumicazione ma non ne conosco il significato anche perchè non chatto,
preferisco scrivere . Forse dovrei incominciare a imparare ?

http://www.windweaver.com/emoticon.htm#HAPPY
Emoticon
e dai invio, di siti così ne trovi un tot.
Buon lav... buon divertimento!
--
----------------------------
Mauro Gamberini
Va bene inizio a studiare , senti cerco di iniziare da subito a *lavorare* sull'archivio e ti faccio sapere . Un grazie e Ciao Apoben64