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.
Buonasera
è possibile utilizzare 13 Bottoni (o diversa soluzione) che una volta selezionati mi digitano (tipo tastiera) un testo in una cella, almeno TRE lettere?
Esempio : A B C D E F G H I L M N O (bottoni)
Grazie
ciao
ma la cella è sempre quella?
anche se non capisco perchè non usi una convalida
che è meno bella esteticamente
Ciao Gianfranco Buongiorno
Praticamente questo lavoro mi serve per selezionare in B5 le carte in gioco tramite i bottoni coppie da AA a 22 o eventualmente carta singola da A a 2
Nel caso di coppie cliccando sui bottoni in grigio in B5 mi deve apparire la coppia selezionata. Es: se clicco su 55 in B5 mi appare 55 come testo
Nel caso di carta singola premerò sui bottoni in arancio. Es : se le due carte sono A e 7 clicco sui bottoni arancio A e 7 e in B5 mi deve apparire A7
Sempre se la scelta è sulle carte singole (bottoni arancio), una volta selezionate andrò anche a scegliere se le due carte sono o meno dello stesso. Quindi faro una scelta sui bottoni in verde s (suited) o (offsuited)
Es: se le due Carte sono AK dello stesso seme…clicco su A poi su K e infine su s
In B5 deve apparire AKs
Spero di essere stato chiaro e mi scuso per la lungaggine del testo
Se si può fare diversamente ....meglio!!!!
Grazie
ciao
le celle in grigio non vengono mai usate doppie vero?
solo le celle arancio e verdi
ciao
puoi usare il doppio click o il selection change
una delle due
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("F4:R4")) Is Nothing Then
Range("B5").Value = ActiveCell.Value
ElseIf Not Intersect(Target, Range("F5:R5,F6:G6")) Is Nothing Then
Range("B5").Value = Range("B5").Value & ActiveCell.Value
ElseIf Not Intersect(Target, Range("B4")) Is Nothing Then
Range("B5").Value = ""
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("F4:R4")) Is Nothing Then
Range("B5").Value = ActiveCell.Value
ElseIf Not Intersect(Target, Range("F5:R5,F6:G6")) Is Nothing Then
Range("B5").Value = Range("B5").Value & ActiveCell.Value
ElseIf Not Intersect(Target, Range("B4")) Is Nothing Then
Range("B5").Value = ""
Cancel = True
End If
End Sub
se utilizzi le coppie non serve azzerare la B5
se invece usi le celle singole per azzerare devi cliccare su B4
in pratica se passi da singola(concatenata) a doppia non fare niente
se devi cambiare da doppia a singola devi azzerare
vediamo se Marius o altri vbaisti sistemano la cosa
io con il VBA non sono esattamente un genio
Perfetto, peccato per il fatto della cancellazione delle coppie , spero si possa risolvere.
Dovendo usare questo ssistema nel foglio precedente "Intercetta colore formattazione condizionale con VBA.xlsm"....che cosa devo fare? Aggiungere il codice dopo eventuali modifiche di celle nel VBA....sotto End sub
Comunque un grazie infinito
ciao
senti ma in che foglio lo metti
e che su colonne visto che nel file intercetta
le colonne usate sono occupate.
al limite modifica il file intercetta e vedimo dove va messo
nb
io sono un formulista con il VBA ho solo poche ed elementari nozioni
vediamo se i vbaisti ti vedono e sistemano il problemino
Ciao
per evitare ti allego il file dove vanno messi i "bottoni"....ho inserito i dati e colorato come nel foglio di esempio precedente.
Il testo deve apparire in B8
Cerca di cancellazione in B7
Grazie e a dopo
Ciao. Ottimo
Penso non ci siano modi che bastino per evidenziare competenze e disponibilità.
Non so se devo aspettare, eventualmente, per la casella cancellazione....o mettere risolto già da adesso.
Grazie
ciao
volendo potremo inserire un pulsante per la cancellazione della B8
così da facilitarne l'uso
a dire il vero mi servono 5 bottoni
APERTURA
CONTRO RAISE
CONTRO 3BET
CONTRO 4 BET
CONTRO ALL IN
questi dovrebbero restituirmi un valore da 1 a 5 in P20 che mi servirebbe poi da
utilizzare per dei SE che andrò ad aggiungere alla formula in O8 che mi consente la variazione di colore formattato.
Il bottone che dici tu si potrebbe aggiungere a questi di colore diverso. Comunque
ora utilizzavo la cella Cerca Carte per cancellare
Grazie
ciao
cioè vuoi la stessa struttura
per tutti i fogli?
non è difficile basta levare dalla macro il nome del foglio
No vorrei restare sullo stesso foglio.
I bottoni mi darebbero solo la possibilità di gestire la formattazione di APERTURA...3BET ecc.
Anche perchè provando ad inserire più Fogli ho visto che quando per esempio vado sul Foglio 3 a cambiare la formattazione colore celle, salv, ma mi ritrovo i cambiamenti anche negli altri fogli.
