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
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