satır işaretleme hk.

[wertasd]

Merhaba arkadaşlar,
Bu konuyu açmadan önce internettede çok aşartım ama bulamadım, bu konuyu açmak zorunda kaldım, eğer konuyu içeren bilgi varsa kusura bakmayın.

Benim istediğim, herhangi bir excel sayfasında makroyu çalıştırdığımda tüm satırın ve sütunun belirli bir renkte işaretlenmesi. Fare ile yada klavyeyle hareketlerde bulunduğu hücreye göre işaretlemesini yapacak.

Yardımlarınız için şimdiden teşekkür ederim.
Kolay gelsin.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo son
    Cells.Interior.ColorIndex = xlNone
    Range(Cells(1, Target.Column), Cells(65536, Target.Column)).Interior.ColorIndex = 3
    Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 3
son:
End Sub

 

[wertasd]

Üstadım Allah razı olsun, tam istediğimi vermişsin.

Fakat uğraştım ama yapamadığım konu ise, ben bir kısa yol ile ( CTRL+... ) bu makroyu çalıştırmak ve herhangi bir excel sayfasında kullanmak istiyorum. rica etsem bu şekilde gönderebilir misin?

Teşekkürler...

 

[ceyrek]

Orion2 Hocam izninle...
Düzenleme: Kısayolu yazmayı unutmuşum:ctrl+W

 

[Orion1]

Üstadım Allah razı olsun, tam istediğimi vermişsin.

Fakat uğraştım ama yapamadığım konu ise, ben bir kısa yol ile ( CTRL+... ) bu makroyu çalıştırmak ve herhangi bir excel sayfasında kullanmak istiyorum. rica etsem bu şekilde gönderebilir misin?

Teşekkürler...

Merhaba.
Ctrl+r tuş kombinosyonu ile ilgili makroyu çalıştırabilirsiniz.
Ekli dosyayı inceleyiniz.
boş bir modüle

Public renk As Byte

başka bir modüle

Sub renklendir()
If MsgBox("Renklendirmeyi kullanmak istiyormusunuz??", vbYesNo + vbQuestion, "RENK") = vbYes Then
    renk = 1
    Else
    renk = 0
End If
End Sub

Thisworkbook sayfasına

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo son
    If renk = 0 Then Exit Sub
    Cells.Interior.ColorIndex = xlNone
    Range(Cells(1, Target.Column), Cells(65536, Target.Column)).Interior.ColorIndex = 3
    Range(Cells(Target.Row, 1), Cells(Target.Row, 256)).Interior.ColorIndex = 3
son:
End Sub

 

[wertasd]

Hocam yollamış olduğun sadece o excel'de 3 sayfada çalışıyor. örneğin başka bir excel sayfası açtığımda orda çalışmıyor. Kastetmek istediğim oydu. Ne zaman ve hangi sayfada istersem çalıştırmak istiyorum.

Hızlı dönüşün için tekrar teşekkürler.

 

[wertasd]

Cevap verebilirseniz sevinirim, makro sadece mesajınızda verdiğiniz örnek sayfanızda çalışıyor. herhangi bir excelde çalışmasını nasıl sağlayabilirim?

 

[Orion1]

Cevap verebilirseniz sevinirim, makro sadece mesajınızda verdiğiniz örnek sayfanızda çalışıyor. herhangi bir excelde çalışmasını nasıl sağlayabilirim?

5nci mesajdaki söylediğim önergeleri takip edip sırasıyla çalışma kitabınıza uygulayınız.