macro click su pulsante opzione

[matzap]

Ciao,
dato che gli aiuti che mi date sono fantastici eccomi di nuovo qui:

ho una serie di pulsanti opzione collegati tra loro e poi ne ho uno chiamato " nessun messaggio" che quando lo clicco il codice assegnatogli mi imposta su falso tutti gli altri indipendentemente da quale è selezionato.

dovrei inserire in una macro un comando per simulare il clic sul pulsante " nessun messaggio" è possibile?
grazie e ciao

[ricky53]

Ciao,
prova con

Codice: Seleziona tutto

    UserForm1.TuoOptionButton = True


Però mi sfugge l'utilità di un passaggio intermedio.
Potresti, all'atto dell'emissione della tua UserForm, deselezionare tutti gli OptionButton con queste istruzioni

Codice: Seleziona tutto

    UserForm1.OptionButton1 = False
    UserForm1.OptionButton2 = False
    UserForm1.OptionButton3 = False
' Altri Option Button
'...


Oppure c'è qualche altra informazione che dovremmo avere per capire bene ?

[matzap]

non funziona, forse perchè il pulsante non pè in una userform ma sul foglio....
ti faccio un esempio:
il pulsante 4 ha questo codice:

Private Sub OptionButton4_Click()
Dim x As Integer
For x = 10 To 17
Range("AA" & x).Select
ActiveCell.FormulaR1C1 = "False"
Next x
Range("AA12").Select
ActiveCell.FormulaR1C1 = "TRUE"
End Sub

il pulsante 6 ha quest'altro codice:

Private Sub OptionButton6_Click()
Dim x As Integer
For x = 10 To 17
Range("AA" & x).Select
ActiveCell.FormulaR1C1 = "False"
Range("AA10").Select
Next x
End Sub

quindi poichè tutti i pulsanti tranne il 6 controllano una cella, quando metto la cella uguale a falso mi si toglie la spunta su tutti i pulsanti, ma non si mette la spunta sul pulsante 6.

[ricky53]

Ciao,
io avevo dato per scontato che gli Option Button fossero in una UserForm.
Essendo sul foglio non può andare.

Ma tu cosa devi effettivamente fare, oltre ad attivare "OptionButton6" ???

[ricky53]

Ciao,
in attesa di avere qualche altra tua informazione ti propongo

Codice: Seleziona tutto

sub Attiva()
     TuoFoglio.OptionButton6.Value = True
End Sub

Dove "TuoFoglio" è il foglio nel quale hai inserito i vari "'OptionButton"


Rimane il fatto che non ho ancora capito lo scopo dell'attivazione dell'OptionButton6 !

[Anthony47]

dovrei inserire in una macro un comando per simulare il clic sul pulsante "nessun messaggio" è possibile?

Quindi immagino che nel tuo esempio OptionButton6 e' il pulsante che indica "nessun messaggio"
Allora e' sufficiente che nella macro inserisci le stesse istruzioni che sono nella Private Sub OptionButton6_Click (da Dim a Next x). Una cosa piu' strutturata la puoi fare allocando in una sub a se' stante quelle istruzioni (ad esempio una Sub ClearAll(), che metterai in un modulo standard) e poi richiamarle sia dalla Sub OptionButton6_Click che dall' altra macro.
Tieni presente che "quel codice" lavora sul foglio attivo; quindi se tu non puoi garantire che il foglio attivo nella macro sia "quello giusto" e' meglio che espliciti il foglio a cui far riferimento.
Quindi ad esempio:

Codice: Seleziona tutto

Sub ClearAll()
Dim x As Integer
With Sheets("NomeFoglio")
    For x = 10 To 17
        .Range("AA" & x).FormulaR1C1 = "False"
    Next x
End With
End Sub



Codice: Seleziona tutto

Private Sub OptionButton6_Click()
Call ClearAll
Range("AA10").Select
End Sub


Analogamente, nella macro in cui vuoi simulare l' azzeramento di tutto metterai Call ClearAll

Ciao a tutti

[matzap]

Ciao,
ho provato entrambi i codici ( ricky 53 e Antony47) e funzionano entrambi. l'unica differenza è che Anthony agisce sui singoli pulsanti, mentre ricky attiva direttamente il codice del button6.
grazie a entrambi

[ricky53]

Ciao,
però utilizzando tu un "OptionButton" proprio per la natura del controlo utilizzato l'attivazione è "MUTUAMENTE Esclusiva" ossia quando ne attivi viene disattivo l'altro che era attivo perchè di "OptionButton" non se ne possono avere attivi più di UNO, quindi, basta solo la riga di codice che ti ho inviato per fare quello che ti occorre.