2Click su 3 celle distinte

Hai un problema con Excel?

Nuova discussione

2Click su 3 celle distinte
di paganiva (utente non iscritto) data: 27/10/2016 23:24:39
Buonasera a tutti.
Avrei l'esigenza di fare in modo che, con l'evento doppio click in una cella, la stessa si riempia con una "X".
Se si tratta di un range singolo, es. B26, nessun problema.
Ma vorrei che questo fosse possibile in tre distinte celle non consecutive, nell'esempio B26;B28;B30.
Avevo pensato di usare la gestione Nomi, creandone uno al quale assegnare B26;B28;B30 ma non funziona.
Come si può risolvere?
Spero di essermi spiegato.
di Mister_x (utente non iscritto) data: 28/10/2016 00:57:13
ciao

sub da inserire nel foglio

ciao

Ps ( controlla i separatori nel Range() perché ogni versione di excel e diversa
sto usando la 2013 forse per la 10 bisogna mettere i ; al posto della ,
Private Sub worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean) On Error Resume Next If Not Intersect(target, Range("B26,B28,B30")) Is Nothing Then target = "X" End Sub
di paganiva (utente non iscritto) data: 28/10/2016 12:46:13
Grazie Mister_x, la macro funziona, ma vorrei che una volta selezionata la cella, nelle altre due i dati siano cancellati "".
Adesso, se fatto in sequenza, questo non avviene.
Saluti

di Mister_x (utente non iscritto) data: 28/10/2016 14:42:33
ciao

aggiunta alla sub()

ciao

Private Sub worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean)
On Error Resume Next
 If Intersect(target, Range("B26,B28,B30")) Is Nothing Then Exit Sub
   target = "X"
    If target.Address() = "$B$26" Then
     Range("B28,B30").ClearContents
    ElseIf target.Address() = "$B$28" Then
     Range("B26,B30").ClearContents
    Else
     Range("B26,B28").ClearContents
    End If
End Sub

di paganiva (utente non iscritto) data: 28/10/2016 17:48:43
Grazie Mister_x, avevo provato e riprovato, ma non ci sarei mai riuscito. Saluti

Vuoi Approfondire?