Ha funzionato. Come funzionerebbe se le modifiche A1 nel Foglio1 avvengano a B1 nel Foglio2, ma anche le modifiche A2 nel Foglio1 avvengano a B2 nel Foglio2?

Ciao Qualcuno può aiutare con la domanda di cui sopra al più presto, ne ho un disperato bisogno e il tempo sta per scadere.

Non è possibile scegliere il codice originale del codice, la versione aggiornata, il nuovo e il messaggio non possono essere accettati)

Ciao,
questo codice sembra funzionare se faccio riferimento a una cella ma se inserisco un intervallo, l'intervallo sul foglio 2 diventa nero invece di far fronte al colore interno.

qualche idea sul perché ciò potrebbe accadere?

Ciao Cristallo,
Grazie mille. Funziona perfettamente!
Sei incredibile! O_o

Ciao Crystal!
Che aspetto ha lo stesso codice se voglio che venga copiato su Foglio2 e Foglio3 contemporaneamente?

Ciao qualcuno può rispondere a questa domanda. Sto cercando di fare esattamente questo e non ho fortuna.

questo non funziona per me. Continuo a ricevere l'errore su "errore di compilazione, nome ambiguo rilevato"....

questo non funziona per me. l'intervallo di celle di maggio non è lo stesso su entrambi i fogli. puoi aiutare a consigliare cosa fare o come regolare il codice pls?

Questo ha funzionato per me quando ho incollato un secondo foglio di riferimento, ma ho dovuto apportare una modifica, mostrerò la modifica di seguito in modo da poter vedere la prima versione di Crystal, quindi la mia con la modifica che ha funzionato quando dovevo invece includere due set di uno. Questo è quello che Crystal ha dato a Joey dopo che ha detto che il range del bersaglio è diventato nero quando l'ha provato:
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg come intervallo
Dim xCRg come intervallo
Dim xStrAddress come stringa
Dim xFNum come intero
xStrAddress = "Foglio2!$A$1:$A$10"
Imposta xRg = Application.Range(xStrAddress)
Imposta xCRg = Me.Range("$A$1:$A$10")
On Error Resume Next
Per xFNum = 1 per xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Successiva
End Sub
La mia mod che ha funzionato per includere due set (ad esempio fare riferimento a colonne o righe diverse o cosa hai) doveva includere questa parte:
On Error Resume Next
Per xFNum = 1 per xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Successiva
dopo ogni mio "set"
Quindi, senza modificare i set di campioni forniti da Crystal in modo che siano diversi l'uno dall'altro (cosa che probabilmente sarà la tua se stai cercando di fare riferimento a righe diverse ecc.), Sembrerebbe così:
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Dim xRg come intervallo
Dim xCRg come intervallo
Dim xStrAddress come stringa
Dim xFNum come intero
xStrAddress = "Foglio2!$A$1:$A$10"
Imposta xRg = Application.Range(xStrAddress)
Imposta xCRg = Me.Range("$A$1:$A$10")In caso di errore Riprendi Avanti
Per xFNum = 1 per xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Successiva
xStrAddress = "Foglio2!$A$1:$A$10"
Imposta xRg = Application.Range(xStrAddress)
Imposta xCRg = Me.Range("$A$1:$A$10")
On Error Resume Next
Per xFNum = 1 per xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Successiva
End Sub

con le righe 6-8 e 13-15 come "insiemi" e le righe 9-12 e 16-19 come codice che deve essere ripetuto dopo ogni serie.
Spero che abbia senso perché non ne so nulla, ho appena trovato un modo per copiare ciò che è stato elencato qui che ha funzionato. La prima volta che ho provato ad avere due set collegandomi al codice così com'è, il primo set ha reso le celle nere e il secondo set ha funzionato e ha trasformato le celle target del colore giusto. Alla fine ho capito che per funzionare, ogni set aveva bisogno del codice della riga 9-12 dopo di esso. Questa mod ha consentito ai colori appropriati di trasferire (nel mio caso) da due colonne diverse sul foglio di origine alle celle corrispondenti all'interno di un determinato intervallo sul foglio di destinazione.

Ciao esad, ho lo stesso caso con te attualmente, ti sarei grato se condividessi

Come da allegato
I nomi delle squadre sono nella riga 2 (da R ad AD)
Ogni riga sotto il nome della squadra si riferisce all'attività in Col D
Quello che vorrei è che quando un nome viene inserito in Col L, colora quella cella con il colore dei membri del team col su quella riga
ad esempio in Col L entra Emma, ​​guarda Emma in W1 e porta Green da W2. se fosse Paula, guarderebbe Paula nel T1 e porterebbe l'ambra dal T2 ecc
Il nome inserito rimarrebbe comunque come esempio in L2 e 3

Grazie per l'aiuto
Non sono sicuro di come allegare uno screenshot o un FILE, posso inviarlo via email

Grazie per averci provato