Attivazione celle con OptionButton

Hai un problema con Excel?

Nuova discussione

Attivazione celle con OptionButton
di Alessandra (utente non iscritto) data: 20/11/2015 18:21:08
Buonasera a tutti,

ho un problema con excel, nel codice vba seguente, vorrei che l'optionbutton potesse funzionare solo su determinate celle.
Cioe' se mi posiziono su una cella compresa tra A6 e J6 allora mi deve colorare la cella.
Se sono posizionata su un'altra cella del foglio non compresa tra queste mi deve dare un errore penso magari attraverso un msgbox. Mi deve impedire insomma di colorare una cella che non sia compresa tra A6 e J6.
Credo non sia molto difficile, ma non riesco a trovare il modo di farlo.
Grazie in anticipo per ogni aiuto.

Private Sub OptionButton1_Click()
ActiveCell.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Beep
    UserForm1.Hide
    End Sub

Private Sub OptionButton2_Click()
ActiveCell.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Beep
    UserForm1.Hide
End Sub

di alfrimpa data: 20/11/2015 19:26:19
Ciao Alessandra

Sarebbe utile poter disporre di un file di esempio strutturalmente uguale al tuo (senza dati sensibili) per poter capire meglio.

Ma gli optionbutton sono su una userform o sul foglio di lavoro?

Alfredo

di tanimon data: 21/11/2015 10:09:30
ciao Alessandra,
ed un saluto ad Alfredo

sfruttando l'evento del foglio interessato e senza option button.
puoi usare:

ciao
Frank

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a6:j6")) Is Nothing Then
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Exit Sub
Else
    MsgBox ("cella selezionata fuori dal target")
End If
End Sub

di Alessandra (utente non iscritto) data: 23/11/2015 14:27:02
Ciao a tutti e grazie per le risposte.
Per Alfredo, le option button sono su una userform, magari stasera inserisco il file di esempio.
Per Tanimon, proverò con il codice che mi hai segnato, magari modificandolo riesco e ti ringrazio, ma per quello che voglio fare mi servono le option button.
Buona giornata.
di tanimon data: 26/11/2015 07:37:13
ciao,
continuo a capire poco.......
sei su un foglio, e vuoi che alcune celle si colorino in base ad un evento.... attivato tramite option button presente su un Form.

Ok,
non ho niente contro le option button che dici ti servano,
ma se si sapesse a cosa, ti servono, si potrebbe individuare meglio l'evento a cui associare il codice....

Ciao
Frank

Vuoi Approfondire?