Tıklanan seçilen satırların otomatik boyanması

[tezcalitpoka]

Merhabalar sayın üstadlarım ,
ekte çalışma dosyam bulunmaktadır.Satır satır veriler oldugunu dusunelım ben baska bı yerdeki dokumanla ektekı dosya arasında kıyaslama yapmam gerekıyor.ornegın beyannameye bakıyorum sonra excel dosyasında buldugum ve uzerıne tıkladıgım satırın tamamanın boyanmasını ıstıyorum(hangısıne baktım ,hangısıne bakmadım bu karmasayı onlemek amacıyla)yanı tıkladıgım satırın boyanması ve oyle kalması,bunu nasıl yapabılırım degerlı fıkırlerınızı beklıyorum

 

[İhsan Tank]

Merhabalar sayın üstadlarım ,
ekte çalışma dosyam bulunmaktadır.Satır satır veriler oldugunu dusunelım ben baska bı yerdeki dokumanla ektekı dosya arasında kıyaslama yapmam gerekıyor.ornegın beyannameye bakıyorum sonra excel dosyasında buldugum ve uzerıne tıkladıgım satırın tamamanın boyanmasını ıstıyorum(hangısıne baktım ,hangısıne bakmadım bu karmasayı onlemek amacıyla)yanı tıkladıgım satırın boyanması ve oyle kalması,bunu nasıl yapabılırım degerlı fıkırlerınızı beklıyorum

sayfanızın kod bölümüne ekleyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Static EskiHucre As Range
  If Target.Interior.ColorIndex <> xlColorIndexNone Then
    EskiHucre.Interior.ColorIndex = xlColorIndexNone
    Exit Sub
  ElseIf Not EskiHucre Is Nothing Then
    EskiHucre.Interior.ColorIndex = xlColorIndexNone
  End If
  Target.Interior.ColorIndex = 3
  Set EskiHucre = Target
End Sub

 

[Erhan Üstünel]

eki inceleyebilirsiniz.

 

[tezcalitpoka]

İhsan bey İlginiz için çok teşekkür ederim ancak şöyle bir hata aldım

tıkladığım satırdaki kutu değilde o satırın tamamı da boyansın,ve şöyle bişi olabilirmi hani o kutuya tekrar tıkladıgımda o satırın tamamının boyası normale dönsün,yanlışlıkla bir kutuya tıklarsam bunu önleyebilmek amacıyla ,öncelikli olarak tıklanan satırın boyanması ve oyle kalması benım ıcın yeterlıdır

 

[Erhan Üstünel]

Merhaba eklediğim dosya işinizi görür sanırım, çif tık la satır renklenir tekrar çif tık ile normale döner..

 

[tezcalitpoka]

aynen budur 2 nizede çok teşekkür ediyorum çoook sağolun

 

[Erhan Üstünel]

rica ederiz, kolay gelsin..