(10/03/2017, 13:47)atoz112 yazdı: sayın kaan75a,

bahsettiğiniz talebinize yönelik olarak;

Sub hersayfada_kullan()

Cells.Interior.ColorIndex = xlColorIndexNone

'ActiveCell.EntireColumn.Interior.ColorIndex = 19 'Sütun Rengi

ActiveCell.EntireRow.Interior.ColorIndex = 16 ' Satır Rengi

ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi

End Sub

yukarıdaki kodları yeni bir MODÜL oluşturmak sureti ile kaydediniz.

bunun için,kod sayfasına geçiniz (ALT +F11) ve üst menüden INSERT - MODULE ifadesini seçiniz ve bu kodları ekleyiniz.

ardından,her bir sayfanın WORKSHEET - SELECTIONCHANGE olay yordamı içerisine,

Call hersayfada_kullan

kod satırını ekleyiniz.

bilginize...iyi çalışmalar,saygılar.

dosyayı sıze yollasam yardımcı olur musunuz