Det fungerade. Hur skulle det fungera om du har A1 i Sheet1 förändringar som ska hända med B1 i Sheet2, men även A2 i Sheet1 förändringar som händer med B2 i Sheet2?

Hej Kan någon hjälpa mig med ovanstående fråga snarast, jag är i stort behov av det och har ont om tid.

Не могли бы вы написать прям оригинальный код,fria разъяснений,я новичок и вообще не могу понять)

Hej,
den här koden verkar fungera om jag refererar till en cell, men om jag matar in ett intervall, blir intervallet på blad 2 svart istället för att hantera den inre färgen.

några idéer varför det kan hända?

Hej Crystal,
Tack så mycket. Fungerar perfekt!
Du är fantastisk! O_o

Hej Crystal!
Hur ser samma kod ut om jag vill att den ska kopieras till både Sheet2 och Sheet3 samtidigt?

Hej kan någon svara på denna fråga. Jag försöker göra exakt detta och har ingen lycka.

detta fungerar inte för mig. Jag får hela tiden ett felmeddelande om "kompileringsfel, tvetydigt namn upptäckt"....

detta fungerar inte för mig. kan cellområdet är inte detsamma på båda arken. kan du ge råd om vad man ska göra eller hur man justerar koden?

Den här fungerade för mig när jag klistrade in en andra bladreferens - men jag var tvungen att göra en modifiering, jag kommer att visa modifieringen nedan så att du kan se Crystals första version, sedan min med modifiering som fungerade när jag behövde inkludera två uppsättningar istället av en. Det här är den som Crystal gav till Joey efter att han sa att målområdet blev svart när han provade det:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xCRg As Range
Dim xStrAddress som sträng
Dim xFNum Som heltal
xStrAddress = "Ark2!$A$1:$A$10"
Ställ in xRg = Application.Range(xStrAddress)
Ställ in xCRg = Me.Range("$A$1:$A$10")
On Error Resume Next
För xFNum = 1 Till xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Nästa
End Sub
Min mod som fungerade för att inkludera två uppsättningar (t.ex. referera till olika kolumner eller rader eller vad har du) var att inkludera denna del:
On Error Resume Next
För xFNum = 1 Till xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Nästa
efter vart och ett av mina "set"
Så, utan att ändra provuppsättningarna som Crystal gav så att de skiljer sig från varandra (vilket dina förmodligen kommer att vara om du försöker hänvisa till olika rader etc), skulle det se ut så här:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Dim xCRg As Range
Dim xStrAddress som sträng
Dim xFNum Som heltal
xStrAddress = "Ark2!$A$1:$A$10"
Ställ in xRg = Application.Range(xStrAddress)
Ställ in xCRg = Me.Range("$A$1:$A$10") Vid fel Återuppta nästa
För xFNum = 1 Till xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Nästa
xStrAddress = "Ark2!$A$1:$A$10"
Ställ in xRg = Application.Range(xStrAddress)
Ställ in xCRg = Me.Range("$A$1:$A$10")
On Error Resume Next
För xFNum = 1 Till xRg.Count
xRg.Item(xFNum).Interior.Color = xCRg.Item(xFNum).Interior.Color
Nästa
End Sub

där raderna 6-8 och 13-15 är "uppsättningarna" och raderna 9-12 och 16-19 är koden som måste upprepas efter varje uppsättning.
Jag hoppas att det är vettigt eftersom jag inte vet något om detta, jag hittade bara ett sätt att kopiera det som listades här som fungerade. Första gången jag försökte ha två uppsättningar genom att koppla in koden som den är, gjorde den första uppsättningen cellerna svarta och den andra uppsättningen fungerade och fick målcellerna i rätt färg. Jag kom till slut på att för att fungera behövde varje uppsättning rad 9-12-koden efter den. Denna mod tillät lämpliga färger att (i mitt fall) överföra från två olika kolumner på ursprungsarket till motsvarande celler inom ett givet intervall på målarket.

Hej esad, jag har samma fall med dig för närvarande, jag skulle uppskatta om du delar

Enligt bifogade
Lagnamnen finns på rad 2 (R till AD)
Varje rad under teamnamnet hänför sig till uppgiften i Col D
Vad jag skulle vilja är att när ett namn skrivs in i kol. L färgar det den cellen med färgen från gruppmedlemmarnas kol på den raden
t.ex. i Col L enter Emma tittar den på Emma i W1 och tar över Green från W2. om det var Paula skulle hon titta på Paula i T1 och ta över bärnsten från T2 osv
Det angivna namnet skulle fortfarande finnas kvar som exempel i L2 & 3

Tack för din hjälp
Osäker på hur man bifogar skärmdump eller en FIL jag kan maila den

Tack för att du försökte