Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
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

sayın kaan75a,

bahsettiğiniz talebinize yönelik olarak;

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

kod sayfasına geçiniz (ALT +F11) ve yukarıdaki kodları ThisWorkbook adlı uygulama genel sayfasındaki WORKSHEET - SELECTIONCHANGE olay yordamı içerisine ekleyip kaydediniz ve bu şekilde kullanmayı deneyiniz.

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

(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

sayın kaan75a,

sadece bilgilendirmek ve hatırlatmak amacı ile değerlendirmeniz temennisi ile,

 - lütfen,Site Kuralları sayfasında yazılı hususları tekrar inceleyiniz.

- lütfen,çözüm elde etmeyi istediğinizi talebinizi veya sorununuzu KONU BAŞLIĞI üzerinde sormayınız.aksine,ayrıntılı şekilde konu içerisinde yazmaya gayret ediniz.

- lütfen,kurallar çerçevesi içerisinde,konularınıza;içeriğinde farazi gerçek dışı uydurma veriler olacak haldeki ve sonuçlarını da görebilmek adına birkaç kayıt barındıracak şekilde örnek uygulamalarınızı da dahil etmeye gayret ediniz...teşekkürler.

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

sayın kaan75a,

Alıntı:dosyayı sıze yollasam yardımcı olur musunuz

ifadenize yönelik olarak;

örnek uygulamanızı,bir önceki mesajda bahsi geçtiği halde olacak şekilde konunuza DOSYA EKLE butonu vesilesi ile) dahil ediniz.

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

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

Alıntı:dosyayı sıze yollasam yardımcı olur musunuz

ifadenize yönelik olarak;

örnek uygulamanızı,bir önceki mesajda bahsi geçtiği halde olacak şekilde konunuza DOSYA EKLE butonu vesilesi ile) dahil ediniz.

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