Operare su fogli nascosti

Hai un problema con Excel?

Nuova discussione

Operare su fogli nascosti
di Claudio (utente non iscritto) data: 07/05/2016 11:12:12
Buongiorno ragazzi, ho tre quesiti da proporvi

ho realizzato un form per inserire dei dati su una scheda di lavoro nascosta

solo che quando lancio il comando di pulizia:

Private Sub CommandButton612_Click()
Sheets("FORMULE").Select ' o il nome del tuo foglio
Range("A70:J70").ClearContents ' cancella il contentuto del range
End Sub

mi ritorna un errore come se (credo di aver capito) la macro non riesci a visualizzare la scheda

suggerimenti?

e poi...

nella textbox come faccio a ridurre i decimali?
ho un risultato 13,987654 come faccio a visualizzarlo come 13,98?

e ultimo ma non meno importante

quando inserisco il valore es 10,56 e uso il tastierino, nella textbox 10.56 e nella cella 1056

come faccio a mettere le virgole senza usare la virgola=

grazie mille
di patel data: 07/05/2016 11:50:51
allega un file di esempio
di Claudio (utente non iscritto) data: 07/05/2016 14:15:08
Fatto...Allegato
di patel data: 07/05/2016 15:18:49
hai allegato un file che non è in accordo a quanto hai descritto nel primo post, vuoi cancellare il range di un foglio inesistente, non si capisce se vuoi cancellare le textbox o il range
di Claudio (utente non iscritto) data: 07/05/2016 15:37:48
Ciao Patel, il range che voglio cancellare si trova nel foglio 2 che ho nascosto (tasto destro su foglio1 e mostra foglio2)

e vorrei cancellare il range senza che il foglio sia visibile
di patel data: 07/05/2016 15:56:19
la macro che hai riportato nel primo post cerca un foglio che non esiste, per questo ti ho detto che l'esempio non va d'accordo con quanto hai scritto, comunque tornando all'esempio basta eliminare il select
Private Sub CommandButton2_Click() Sheets("Foglio2").Range("A1").ClearContents TextBox2 = "" TextBox1 = "" End Sub

di Gianfranco data: 07/05/2016 16:12:48
Ciao

salutoni Patel
per i numeri senza virgola basta cambiare in VAL, è generico va bene sia per i numeri che con le lettere.
non puoi selezionare con il Vba un foglio nascosto ( è nascosto )

perciò prima lo rendi visibile e poi lo rinascondi.

ecco il codice

ciao


Private Sub CommandButton1_Click()
TextBox2 = Sheets("Foglio2").Range("A1")
End Sub
'come faccio a cancellare anche i contenuti delle due textbox?
Private Sub CommandButton2_Click()
Sheets("Foglio2").Visible = True
Sheets("Foglio2").Select
Range("A1").ClearContents
TextBox1 = ""
TextBox2 = ""
Sheets("Foglio2").Visible = False
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

'in questa casella inserisco un valore, se inserisco 10.5 vusalizza 105
Private Sub TextBox1_Change()
Sheets("Foglio2").Range("A1").Value = Val(TextBox1)
End Sub

di Claudio (utente non iscritto) data: 08/05/2016 07:42:07
Grazie Mille, ora provo ma sono sicuro che funziona

per quanto riguarda la formattazione dei decimali?

avevo pensato in alternativa di linkare i risultati in una cella, inserirgli un .arrotonda e poi visualizzare quella cella...

Vuoi Approfondire?