cancellare selezione pulsanti

Hai un problema con Excel?

Nuova discussione

cancellare selezione pulsanti
di Pippo (utente non iscritto) data: 06/11/2013 10:57:17
Ciao a tutti, ho un foglio excel con dei controlli modulo creati (sono le caselle che selezionandole appare la "v", poi i circoletti che selezionandoli si anneriscono); a questi ho assegnato un codice cosi che una volta selezionati permettano di dare valore a determinate celle.
Ho costruito poi un pulsante chiamato "Clear", il quale vorrei che una volta cliccato vada a cancellare le "v", l'annerimento del circoletto e le celle da compilare.
Sono solo riuscito a creare il codice per cancellare il contenuto delle celle (ve lo scrivo sotto), però mi rimangono le "v" e l'annerimento del circoletto.
Sapete dirmi il codice?
Grazie!
Sub clear () Range ("J9,J11,J23,J25,J26").ClearContents End Sub

di totygno71 (utente non iscritto) data: 06/11/2013 11:58:13
Ecco...

'Per le v
   OptionButton1.Value = False 
'Per i circletti ^_^
   CheckBox1.Value = False

di Pippo (utente non iscritto) data: 06/11/2013 12:06:11
se la mia casella di controllo si chiama "Meticoloso" (ossia è il nome che ho scritto per la macro), il mio codice diventa cosi?
Sub Clear() Range("J9,J11,J13,J15,J19,J23,J27,J29").ClearContents CheckBoxMeticoloso.Value=False End Sub
di Vecchio Frac data: 06/11/2013 13:48:21
cit. "sono le caselle che selezionandole appare la "v", poi i circoletti che selezionandoli si anneriscono"
---> Un modo pittoresco per indicare caselle di riepilogo a discesa (combo/listbox) e pulsanti di opzione (optionbutton) ^_^
di Vecchio Frac data: 06/11/2013 13:51:06
errata corrige....
cit. "selezionandole appare la "v"
---> La "v" non è una "v" ma un segno di spunta! L'ho capito leggendo i codici... strano che totygno avesse capito subito al volo, ogni tanto riesce a stupirmi :P

@pippo
sì il tuo codice a prima vista è giusto.
di Pippo (utente non iscritto) data: 06/11/2013 13:52:10
Non funziona
di Vecchio Frac data: 06/11/2013 14:06:22
Ottieni qualche errore?
La Sub è nell'userform?
Se è in un modulo, è dichiarata Public?
Se è in un foglio non verrà richiamata.
E' eseguita alla pressione del pulsante "Clear" o, in altre parole, viene richiamata nell'evento del pulsante Clear_Click()?

di Pippo (utente non iscritto) data: 06/11/2013 14:15:18
Ho fatto in questo modo:
ho creato delle caselle di controllo--->ho associato macro alle casella di controllo che ti scrivo sotto denominate "Meticoloso" "Tradizionalista" "Disinibito"

ho creato poi il pulsante "Clear" associando la macro che ti scrivo sotto

l'errore che fuoriesce è :Errore di run time 424.....Necessario Oggetto

Sub Meticoloso()                                                  
Range("j9").Select
ActiveCell.FormulaR1C1 = "5"
Range("j11").Select
ActiveCell.FormulaR1C1 = "5"
Range("j13").Select
ActiveCell.FormulaR1C1 = "10"
Range("j15").Select
ActiveCell.FormulaR1C1 = "5"
End Sub


Sub Clear()
Range("J9,J11,J13,J15,J19,J23,J27,J29").ClearContents
CheckBoxMeticoloso.Value=False
End Sub

di Vecchio Frac data: 06/11/2013 14:36:21
Ma buttateli 'sti controlli modulo che non servono a niente e non sono gestibili da codice ^_^
Comunque scrivi come sotto, vedrai che funziona.

p.s. non serve preselezionare una cella per scriverci dentro. Scrivici direttamente :)

Option Explicit

Sub Meticoloso()
    Range("j9") = "5"
    Range("j11") = "5"
    Range("j13") = "10"
    Range("j15") = "5"
End Sub


Sub Clear()
    Range("J9,J11,J13,J15,J19,J23,J27,J29").ClearContents
    ActiveSheet.Shapes("casella di controllo 2").OLEFormat.Object.Value = False
End Sub

di Vecchio Frac data: 06/11/2013 14:37:54
E prima che ti salti il piripicchio di dirmi che non funziona perchè non trova la forma "casella di controllo 2", tieni presente che una cosa è il testo che compare nella casella di controllo, altra cosa è il suo nome.
Ovviamente nel codice devi dargli il nome che si merita ^_^
di Pippo (utente non iscritto) data: 06/11/2013 15:06:46
Grazie davvero tanto!.....perdona i miei errori!
di totygno71 (utente non iscritto) data: 06/11/2013 15:26:18
cit"strano che totygno avesse capito subito al volo, ogni tanto riesce a stupirmi :P

A volte mi stupisco anche da solo!!!

Vuoi Approfondire?