Excel Yardım: Başka bir hücredeki renge eşitleme

Tur1 ve Tur2 isimli sayfalarım var. Tur1 deki a3 hücresindeki hücrede diyelimki kırmızı renk var. Tur2 sayfasındaki a3 hücresindeki rengin de buna eşit olmasını istiyorum.

Tur1 sayfasının Worksheet.deactivate olayına aşağıdaki kodu yazın.
Sayfa1=Tur1 sayfasının VB editördeki adı
Sayfa2=Tur2 sayfasının VB editördeki adı

systran' Alıntı:

Tur1 sayfasının Worksheet.deactivate olayına aşağıdaki kodu yazın.
Sayfa1=Tur1 sayfasının VB editördeki adı
Sayfa2=Tur2 sayfasının VB editördeki adı

Kod:

Sayfa2.Range("A3").Interior.Color = Sayfa1.Range("A3").Interior.Color

Genişletmek için tıkla ...

Başarılı hocam çok teşekkür ederim.

systran' Alıntı:

Tur1 sayfasının Worksheet.deactivate olayına aşağıdaki kodu yazın.
Sayfa1=Tur1 sayfasının VB editördeki adı
Sayfa2=Tur2 sayfasının VB editördeki adı

Kod:

Sayfa2.Range("A3").Interior.Color = Sayfa1.Range("A3").Interior.Color

Genişletmek için tıkla ...

Hocam aşağıdaki kod serisini for döngüsü gibi bir döngü ile nasıl yazdırabilirim. Daha kısa olarak

Sayfa2.Range("A5:L5").Interior.Color = Sayfa1.Range("A5").Interior.Color
Sayfa2.Range("A6:L6").Interior.Color = Sayfa1.Range("A6").Interior.Color
Sayfa2.Range("A7:L7").Interior.Color = Sayfa1.Range("A7").Interior.Color
Sayfa2.Range("A8:L8").Interior.Color = Sayfa1.Range("A8").Interior.Color
Sayfa2.Range("A9:L9").Interior.Color = Sayfa1.Range("A9").Interior.Color
Sayfa2.Range("A10:L10").Interior.Color = Sayfa1.Range("A10").Interior.Color
Sayfa2.Range("A11:L11").Interior.Color = Sayfa1.Range("A11").Interior.Color
Sayfa2.Range("A12:L12").Interior.Color = Sayfa1.Range("A12").Interior.Color
Sayfa2.Range("A13:L13").Interior.Color = Sayfa1.Range("A13").Interior.Color
Sayfa2.Range("A14:L14").Interior.Color = Sayfa1.Range("A14").Interior.Color
Sayfa2.Range("A15:L15").Interior.Color = Sayfa1.Range("A15").Interior.Color
Sayfa2.Range("A16:L16").Interior.Color = Sayfa1.Range("A16").Interior.Color
Sayfa2.Range("A17:L17").Interior.Color = Sayfa1.Range("A17").Interior.Color
Sayfa2.Range("A18:L18").Interior.Color = Sayfa1.Range("A18").Interior.Color

hücre seçmek için Sayfa.Cells(Satır_no,Sutun_no) kullanabilirsin hocam. Doğal olarak Satır_no ve Sutun_no için değişkende kullanabilirsin.

For i = 5 To 18
Sayfa1.Range("a" & (i )).Interior.Color

Şeklinde olabilir sanırım denemek lazım

edit: denedim tam olarak şöyle

Sub Düğme1_Tıklat()
For i = 5 To 18
Sayfa2.Range("a" & (i) & ":" & "l" & (i)).Interior.Color = Sayfa1.Range("a" & (i)).Interior.Color
Next
End Sub

dndd' Alıntı:

For i = 5 To 18
Sayfa1.Range("a" & (i )).Interior.Color

Şeklinde olabilir sanırım denemek lazım

edit: denedim tam olarak şöyle

Sub Düğme1_Tıklat()
For i = 5 To 18
Sayfa2.Range("a" & (i) & ":" & "l" & (i)).Interior.Color = Sayfa1.Range("a" & (i)).Interior.Color
Next
End Sub

Genişletmek için tıkla ...

Hocam çok teşekkür ederim İşimi gördü.