+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tum Sayfalarda Kullanmak İstiyorum.yardımcı Olur Musunuz (/konu-tum-sayfalarda-kullanmak-istiyorum-yardimci-olur-musunuz.html)
Sayfalar:
1
2
Tum Sayfalarda Kullanmak İstiyorum.yardımcı Olur Musunuz - kaan75a - 10/03/2017
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
Cvp: Tum Sayfalarda Kullanmak İstiyorum.yardımcı Olur Musunuz - atoz112 - 10/03/2017
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 Rengikod 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.
Cvp: Tum Sayfalarda Kullanmak İstiyorum.yardımcı Olur Musunuz - kaan75a - 10/03/2017
(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
Cvp: Tum Sayfalarda Kullanmak İstiyorum.yardımcı Olur Musunuz - atoz112 - 10/03/2017
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.
Cvp: Tum Sayfalarda Kullanmak İstiyorum.yardımcı Olur Musunuz - atoz112 - 10/03/2017
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.
Cvp: Tum Sayfalarda Kullanmak İstiyorum.yardımcı Olur Musunuz - kaan75a - 10/03/2017
(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.