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.
le frasi sono nello stesso foglio?
ciao
ma libro dove lo trovo
ciao
ma libro dove lo trovo
Libro l'ho sostituito
Le voci ora sono quelle dei Testi all'inizio, ovvero:
Roccia
Aquila
Professore
Calling
Maniac
Pesce
OK
si può semplificare con un cerca verticale ma devo usare una colonna d'appoggio
fammi sapere
OK
si può semplificare con un cerca verticale ma devo usare una colonna d'appoggio
fammi sapere
Va benissimo, sol che nella formattazione non mi da il Grassetto
Poi sul foglio completo mi succede una cosa strana che puoi verificare anche tu su OPPO
se si seleziona tutto il foglio per procedere alla protezione del foglio la cella AD6 una volta tolta la selezione non funziona più...????!!!!
ciao
sostituisci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("R2:AD2")) Is Nothing Then
Range("Z13").Value = ActiveCell.Value
ElseIf Not Intersect(Target, Range("R3:AD3,R4:S4")) Is Nothing Then
Range("Z13").Value = Range("Z13").Value & ActiveCell.Value
ElseIf Not Intersect(Target, Range("W13")) Is Nothing Then
Range("Z13").Value = ""
Cancel = True
End If
End Sub
ho aggiunto
If Target.Cells.Count > 1 Then Exit Sub
prova dovrebbe sistemare le cose
Si, adesso non cda problemi.
Per il grassetto che non appare?
Mi piacerebbe comunque poterti passare il File Completo per avere tu stesso una visione migliore e magari valutare anche alcune funzioni per poterle migliorare.
per il grassetto ci vuole il vba
volendo si possono separare le spiegazioni dal nome
e usare due celle per importarlo ma ne vale la pena?
per il file meglio se mi chiedi una cosa alla volta
onestamente devo ristudiarmi tutti i passaggi ogni volta
non capendo a cosa si riferisce.
Come non detto....
noto ora che con la modifica fatta non mi azzera il pulsante in rosso ( da immagine)
Se provi sul Foglio Oppo il pulsante AZZERA (in bianco su oppo) azzera in Z13
Poi vedo che le Coppie in alto se inserite, sono intercambiabili senza dover azzerare,
Non è possibile fare la stessa cosa con la scelta in Riga Nera ? e la selezione Suited Offsuited?
che vado ad utilizzare per le altre mani?....sarebbe decisamente più funzionale ed eviterebbe di azzerare
la modifica della macro non tocca il pulsante
semplicemente esce dalla macro se selezioni più celle
vedo se ritrovo il file con il pulsante e vediamo di capire cosa non va
ciao
sono tutte celle unite
e la macro viene bloccata
vediamo se riesco a separarle e avere la stessa struttura
ti devo inserire un pulsante
Ciao scusami per le troppe richieste, ma purtroppo adesso non funziona nemmeno l'azione esatta.
nell'esempio 22 dovrebbe dare FOLD e invece indica Call perchè P14 che dovrebbe essere 2 è uguale a 3
le celle in bianco (FOLD) non veng
ono riconosciute
....
ciao
prova a levare la frase dalla macro
e veiamo
al limite mi alleghi il file con dropbox
lo scarico e lo eliminiamo subito
troppe celle unite per il vba
al limite mi alleghi il file con dropbox
lo scarico e lo eliminiamo subito
lo allego come sempre?
posso farlo quando sei online....altrimenti resta troppo, credo
o c'è un modo diverso per inviare
