excel applicare codice a range di celle

[romeos]

sono nuovo del forum anche se lo seguo da un pò,premesso che pur senza conoscenze specifiche di vba sono riuscito attraverso la lettura dei vostri post e non solo a farmi un programmino per la gestione di un evento sportivo, che parte dall'elaborazione degli iscritti suddividendoli in categorie e classi ed arriva a creare dei tabelloni di gara, ho la necessità di fare in modo che un determinato codice che rappresenterebbe delle sanzioni (facendo click sulla cella questa diventa rossa).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With

End Sub
agisca solo su determinati range di celle del medesimo foglio non tutte contigue per esempio:
(B3:D3) ,(B7:D7),(G5:I5) ed altre. Spero di essere stato ufficientemente chiaro,un grazie anticipato a tutti voi.

[Flash30005]

Ciao Romeos e benvenuto nel Forum

Innanzitutto dovresti elencare tutti i range (oppure ti acontenti di un esempio e poi lo implementi da solo?)

Inoltre dovresti dire se l'esigenza è solo quella di cliccare (metodo On/Off) per evidenziare in rosso o no
oppure c'è una condizione come sembra tu dica "che rappresenterebbe delle sanzioni " ?

Ciao

[romeos]

vorrei provare ad implementarlo solo, comunque posto un immagine


Uploaded with ImageShack.us.
in pratica vorrei che dove vi sono le celle numerate che rappresentano delle sanzioni clikkandoci sopra si riempino di rosso ma solo quelle le altre no e deve essere chiaro che nelle altre celle posso clikkarci ed eventualmente inserire del testo senza che queste diventino rosse.
Se non sono stato ancora chiaro me ne scuso.ciao.

[Flash30005]

Il codice che colora di rosso il range è questo e va inserito nel Vba del foglio e non nel Modulo

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'CheckArea = "G17:G31"  'togliere commento a questa riga e inserire il commento o cancellare la riga che segue
CheckArea = "G17,G19,G21,G23,G25,G27,G29,G31"
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    If ActiveCell.Interior.ColorIndex = 3 Then
        ActiveCell.Interior.ColorIndex = xlNone
    Else
       ActiveCell.Interior.ColorIndex = 3
    End If
End If
End Sub

Dall'immagine sembrerebbe che il tuo foglio abbia delle righe (pari: 18,20,22,24,etc) nascoste
in questo caso puoi usare il range continuo che ho commentato
"G17:G31" (o oltre)

Nel caso che la cella è rossa cliccando torna senza colore (metodo On/Off)

ciao

[romeos]

quello che ottengo è questo e non è quello che vorrei ottenere, ho provato a lavorare sul tuo codice ma non sono riuscito a venirne a capo,quindi mi spiego meglio,con il codice che mi hai dato si colorano anche delle celle che non centrano niente con le sanzioni che devono essere definite solo nelle celle con i numeri, in pratica cliccando sulla cella con il numero 1 questa si evidenzia e ciò indica che l'atleta e stato sanzionato 1 volta, se clikko sulla cella con il numero 2 l'atleta è alla seconda sanzione è cosi via fino alla 3 raggiunta la quale l'atleta sarà squalificato, quindi se ne deduce che devono colorarsi al clik solo gli intervalli che sono definiti dai numeri che vanno da 1 a 3, per esempio B3:D3, B7:D7,piuttosto che L9:N9 per avere una visione globale ti dico che nelle caselle con i bordi di rosso o di blu vi sono i nomi degli atleti, grazie Flash.ciao.

[peppo55]

Ciao romeos

ma non sarebbe sufficiente una convalida dati con applicata una formattazione condizionale ?
vuoto niente
1,2,3 rosso

[Flash30005]

Dalla foto del primo post avevo letto che la colonna interessata fosse la "G"
alla luce di queste coordinate
devi cambiare il codice ovvero solo l'area

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

CheckArea = " B3:D3, B7:D7,B11:D11,B15:D15" 'continua ad incrementare fino dove serve (range continuo determinato da ":" duepunti, separatore di un range da un altro con la virgola)
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    If ActiveCell.Interior.ColorIndex = 3 Then
        ActiveCell.Interior.ColorIndex = xlNone
    Else
       ActiveCell.Interior.ColorIndex = 3
    End If
End If
End Sub

Ciao

[romeos]

ok adattato il codice di flash che va alla perfezione,quindi problema risolto e vi ringrazio infinitamente. Per la soluzione di peppo55
ieri lavorando sul file anche io ho pensato che forse potevo percorrere un'altra strada, legando la funzione del click del mouse al valore delle celle, in fondo a pensarci bene il comando deve agire solo sulle celle con valore > di 0, ma flash ha esattamente risposto alla mia richiesta che inizialmente poneva il problema di applicare del codice solo a determinate celle.Mi riprometto comunque di addestrarmi sulla convalida dati perchè credo che possieda delle particolarità che possono ritornarmi utili.
Ciao e ancora grazie .

[romeos]

"Mi riprometto comunque di addestrarmi sulla convalida dati perchè credo che possieda delle particolarità che possono ritornarmi utili."
Lapsus non convalida dati ma formattazione condizionale. ciao.

[Flash30005]

La formattazione condizionale ti funzionerà solo se nella cella inizialmente non ci inserisci nulla
poi inserendo 1 (o 2 o 3) potrai condizionare il formato della cella, ma, se hai già nello schema, i valori 1, 2, 3
con la formattazione condizionale non cambi nulla.


ciao