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.