aynı renk

[mersilen]

arkadaşlar sayfa 1 deki a1 hücresinin değiştirince sayfa2deki a1:d1 hücre aralığının rengini ona bağımlı değişsin istiyorum
a1 deki hücre aktif hücre olacak ve macro anına çalışacak

bir kod yazdım ama hatalı oldu galiba; nasıl düzeltebiliriz

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [!sayfa1(A1:a4)]) Is Nothing Then Exit Sub
Dim i As Integer

Range("A1:d1").Interior.ColorIndex = Range("sayfa1A1").Interior.ColorIndex
Range("a2:d2").Interior.ColorIndex = Range("sayfa1A2").Interior.ColorIndex
Range("A3:d3").Interior.ColorIndex = Range("sayfa1a3").Interior.ColorIndex
Range("A4:d4").Interior.ColorIndex = Range("sayfa1A4").Interior.ColorIndex

End Sub

 

[Necdet]

Merhaba,

Umarım anlamışımdır, aşağıdaki kodları Sayfa2 nin kod bölümünü kopyalayınız.

Private Sub Worksheet_Activate()
Dim i As Integer
For i = 1 To 4
    Range("A" & i & ":D" & i).Interior.ColorIndex = Sheets("Sayfa1").Range("A" & i).Interior.ColorIndex
Next i
End Sub

 

[mersilen]

teşekkür ederim
istediğim tam buydu

bir şey daha sorabilir miyim?

excel sayfalarını ayırıpta ekranda 1 ve 2 ayfayıda aynı anda görmeye çalıştığımda
kodun Sheets("Sayfa1").Range("A" & i) bu kısmında nasıl bir değişiklik yapmalıyım

ekran görüntüsünü ekledim

 

[Necdet]

Merhaba,

Hiç bir değişiklik yapmaya gerek yok yalnız renk değişimini anlamak güç o yüzden kodları active bölümüne koydum, yani sayfa2 ye tıklarsanız olay gerçekleşecek ve kodlar çalışacaktır.