La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Ciao Gianfranco
ho notato e ti allego immagine, che una volta azzerato succede che poi selezionando una delle Carte (in questo esempio Q) in B3 appare già la scelta consigliata, ovviamente sbaagliata perchè dovrebbero essere selezionate DUE CARTE...o una coppia
Grazie
certo
il P14 è praticamente sempre un 2
visto che la tabella è di colore grigio e come tocchi un tasto lo legge.
ma cosa te ne frega?
finito di scrivere si adegua
Graficamente e visivamente non è un bel vedere...è pur sempre un errore.
Ho capito del 2 che mi da il grigio quando AZZERRA....ma vedere appena inserisco una CARTA comparire un colore , nell'immagine RAISE in ROSSO....fa molta confusione
Pensavo fosse possibile sistemarlo
Grazie
certo
teoricamente intercettando il colore del carattere
o attivare con un pulsante la macro
vediamo domani se ci riesco
Grazie.....
come puoi
ciao
eccolo
non è il massimo ma è quello che riesco a fare con il vba
Option Compare Text
Sub formattazione()
Dim Col As Variant
Dim Cl As Range
With Sheets("Range")
For Each Cl In .Range("B14:N26").Cells
If Cl = Range("B8") Then
Col = Cl.DisplayFormat.Interior.Color
If Col = RGB(255, 0, 0) Then
Range("P14").Value = 1
ElseIf Col = RGB(0, 176, 80) Then
Range("P14").Value = 3
ElseIf Col = RGB(242, 242, 242) Then
Range("P14").Value = 2
ElseIf Col = RGB(255, 255, 0) Then
Range("P14").Value = 4
ElseIf Col = RGB(0, 176, 240) Then
Range("P14").Value = 5
ElseIf Col = RGB(192, 0, 0) Then
Range("P14").Value = 6
ElseIf Col = RGB(0, 32, 96) Then
Range("P14").Value = 7
End If
Exit For
End If
Next Cl
End With
End Sub
Sub carattere()
Dim fon As Variant
Dim Cl As Range
With Sheets("Range")
Range("P14").Value = ""
For Each Cl In .Range("B14:N26").Cells
If Cl = Range("B8") Then
fon = Cl.DisplayFormat.Font.Color
If fon = RGB(255, 192, 0) Then
Call formattazione
End If
Exit For
End If
Next Cl
End With
End Sub
Buongiorno Gianfranco
ho aperto il tuo e funziona perfettamente (non ho capito perchè hai detto che non è il massimo
se va bene) sul mio ho copiato la parte Sub carattere perchè sopra ho cambiato alcuni colori e non funziona. Ho copiato l'intero codice, non so se riesci a vedere l'errore che commetto.
Sub formattazione()
Dim Col As Variant
Dim Cl As Range
With Sheets("Range")
For Each Cl In .Range("B14:N26").Cells
If Cl = Range("B8") Then
Col = Cl.DisplayFormat.Interior.Color
If Col = RGB(255, 0, 0) Then
Range("P14").Value = 1
ElseIf Col = RGB(0, 176, 80) Then
Range("P14").Value = 3
ElseIf Col = RGB(242, 242, 242) Then
Range("P14").Value = 2
ElseIf Col = RGB(165, 0, 33) Then
Range("P14").Value = 4
ElseIf Col = RGB(178, 178, 178) Then
Range("P14").Value = 5
ElseIf Col = RGB(255, 153, 0) Then
Range("P14").Value = 6
ElseIf Col = RGB(0, 0, 0) Then
Range("P14").Value = 7
End If
Exit For
End If
Next Cl
End With
End Sub
Sub carattere()
Dim fon As Variant
Dim Cl As Range
With Sheets("Range")
Range("P14").Value = ""
For Each Cl In .Range("B14:N26").Cells
If Cl = Range("B8") Then
fon = Cl.DisplayFormat.Font.Color
If fon = RGB(255, 192, 0) Then
Call formattazione
End If
Exit For
End If
Next Cl
End With
ciao
devi cambiare in foglio 1 il nome della macro da lanciare
mi sono dimenticato di avvisarti
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B8")) Is Nothing Then
Call carattere
End If
End Sub
Ti allego direttamente il file, ho provato ad entrare, non sono assolutamente pratico di Visual Basic e Macro....non voglio creare casini
Grazie
Scusami Gianfranco....ho risolto....non attivavo la macro
Grazie per l'aiuto
ciao
certo che sei furbo eh! 😀
non hai più il carattere arancio ma metti il carattere in grassetto
che a livello vba è tutta un'altra cosa e che a livello visivo è
un assurdo visto che non te ne accorgi neanche
vedo se riesco a cambiare
la formattazione è allucinante e blocca il file
( guarda che le formattazioni sono pesantissime )
ora vedo di creare una tabella e formattare i colori con un cerca verticale
in modo da ridurre drasticamente il lavoro della CPU
vediamo come sistemare
ciao
non riesco a copiare le formattazioni si blocca sempre
hai una lista di come fare da allegare?
senti se il file funziona bene
ma fidati che la formattazione deve essere cambiata
se hai la lista mandamela
Non avevo notato la questione Arancio giuro!!! e hai ragione....
Mi sono accorto invece di quanto rallentasse fare una formattazione di una nuova regola.
Purtroppo le combinazioni per ottenere i RANGE sono tantissime....
derivano come avrai ben capito dai Bottoni inseriti....
40BB 20BB 10BB
RAISE 3BET 4BET ALL IN e tutti le posizioni HERO e VILLAIN
....sinceramente non saprei che copia poter fare....
Mi fermo con altre formattazioni che ho da fare in attesa di una tua risposta per capire cosa fare....
Grazie
ciao
hai solo circa 200 formattazioni su una cella
ora provo a sintetizzarle su una tabella
con un paio di celle
mi ci vogliono ore per estrapolare tutte le tue formattazioni
il pc rallenta moltissimo dammi un po di tempo e ti faccio un esempio
che poi completerai tu
