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
prova così
apri il foglio DATI
e poi torna sul foglio Range
Ho provato, anche se non ho capito bene come fare, ma non funzione.
Volevo dirti che prima gestivo P14 direttamente dal foglio, ma ho visto che RAISE FOLD e CALL le hai aggiunte in Dati. Come faccio ad aggiungere altre azioni in Dati e poi ottenere il risultato numerico in P14?
ciao
cosa centra P14 che è determinato da una macro e prende in esame i colori
solo tu lo sai
l'unica formula che hai è
=CONFRONTA(1;INDICE((Dati!$A$3:$A$83=1)*(Dati!$B$3:$B$83=P10)*(Dati!$C$3:$C$83=P12);;);0)
che valuta 83 righe
perciò se aggiungi in dati dei valori problemi non hai
l'altra con RAISE ecc..
=SE.ERRORE(CERCA.VERT($P$14;Dati!$E$2:$F$10;2;0);"")
ha 10 righe ma puoi portarle a quante vuoi
per il resto non so dove hai toccato
ma io problemi con colori e righe doppie non ne ho
dimmi che colori vuoi e te lo cambio io
Scusami Gianfranco
purtroppo, capisco e ci mancherebbe non avrai avuto modo di seguire tutte le mie domande.
Le formule a cui ti riferisci non le ho più adottate.
Al momento ho elaborato la Tabella per quando riguarda 40BB RAISE
Quello che chiedevo adesso è che in Dati devo aggiungere altre 4 AZIONE (LIMP, 4-BET/FOLD,
4-BET/CALL e ALL IN
questi i colori
4 LIMP RGB 255 255 0
5 4-BET/FOLD RGB 0 176 240
6 4- BET/CALL RGB 192 0 0
7 ALL IN RGB 0 32 96
se è possibile poi spiegarmi come faccio ad aggiungere altre azioni in Dati e poi ottenere il risultato numerico in P14? in modo che in futuro possa farlo da solo, sarà molto meglio
I bottoni volevo colorarli verde RGB 0 176 80 con testo in bianco
Ti allego il File Ultimo con tutte le modifiche e l'immagine dei bordi che vedo sopra i bottoni verdi.
ciao
per aggiungere il calcolo dei colori
devi andare nel modulo1
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
e aggiungere.....chiaramente variando i numeri
ElseIf Col = RGB(0, 32, 96) Then
Range("P14").Value = 7
le righe che vedevi erano le celle sotto con i bordi
il colore te l'ho cambiato
come fare per avere un colore personalizzato te lo spiego sotto
colore personalizzato pulsanti
- SVILUPPO
- MODALITA' PROGETTAZIONE
- CLICCA SUL PULSANTE DA VARIARE O TENENDO CLICCATO CTRL LI SELEZIONI TUTTI
- PROPRIETA'
- BACK COLOR
- CLICCA SU UNA CELLA BIANCA IN BASSO CON IL SINISTRO E TENENDOLO SCIACCIATO CLICCA CON IL DESTRO
- TI ESCE
- METTI I NUMERI DEL ROSSO VERDE BLU E CLICCA SU AGGIUNGI
FATTO
Ciao Gianfranco, direi che non manca nulla ...
A titolo personale volevo capire ed imparare come si ottiene il cambiamento delle "AZIONE" ed ottenere il numero in P14....con le Formule so come fare, ma adesso cgedo che tu lo abbia impostato in VBA.
Ti ringrazio per ogni minima cosa e spero di disturbarti di meno
Grazzie....sei un GRANDE!!!!
ciao
per la P14
basta che guardi il penultimo post
nessun disturbo.......se mi disturbassero le richieste
non farei il moderatore 😀
se hai risolto mi chiudi la discussione
grazie
