seçilen hücreleri dolgu rengi yapmak

[selimmanav]

merhaba
çalışma kitabında sayfaların herhangi birinde o an için seçilen hücreyi veya hücreleri dolgu rengi sarı olacak şekilde makroyu yazabilir miyiz?
saygılarımla

 

[apocalyt]

çalışma sayfasına sağ klik yapıp kod görüntüle diyin..açılan sayfaya kodu kopyalayın..

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Intersect(Target, Cells) Is Nothing Then Exit Sub
Cells.Interior.Color = xlNone
Target.Interior.Color = vbYellow
End Sub

 

[Necdet]

Merhaba,

Kitabın tüm sayfalarında dediğine göre arkadaşımız, sayın apocalyt nin kodlarını Bu çalışma kitabının kod bölümüne kopyalamakta yarar var.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Intersect(Target, Cells) Is Nothing Then Exit Sub
    Cells.Interior.Color = xlNone
    Target.Interior.Color = vbYellow
End Sub

 

[selimmanav]

düğme

merhaba
Sayın Necdet Yeşertener ve apocalyt cevaplar için teşekkür ederim. Soruma hücreyi ve hücreleri seçip düğmeye bastıktan sonra eklemesini unutmuşum.
bu şekilde düzenleme yapabilir miyiz?

 

[halit3]

kod:

ActiveWindow.RangeSelection.Interior.Color = 6