hücrenin bulunduğu satırı ve sütunu koyu göstermek

[unutulmaz37]

merhaba,
öncelikle vereceğiniz cevaplar için şimdiden teşekkür ediyorum. benim sorunum şu excellde çalışırken üzerinde bulunduğum hücrenin bulunduğu satırı ve sütunu koyu renkli göstermenin bir yolu varmıdır? uzun tablolarda çalışırken soldaki bir hücrede bir rakama bakıp sonra aynı satırdaki başka bir hücreye bakmak bir süre sonra gözlerimi baya yoruyor oysaki bulunduğum satır ve sütun koyu olsa o satır veya sütundaki bilgileri kontrol ederken çok daha kolay işimi yapabilirim.

 

[unutulmaz37]

yokmu cevap vereblilecek olan kimse

 

[Mahir64]

yokmu cevap vereblilecek olan kimse

Merhaba
Çalışma sayfasının kod bölümüne yapıştırın.

Not:Kodlar alıntıdır.

   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 = 17 ' Satır Rengi
    ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
    End Sub

 

[Korhan Ayhan]

Selamlar,

Sorunuzun bölümü sizce uygunmu?

 

[unutulmaz37]

kusura bakmayın ben diğer excell soruları bölümüne açmayı düşünmüştüm ama bir karışıklık olmuş buraya açmışım açtıktan sonra fark ettim yöneticiler konuyu taşırsa sevinirim.

 

[unutulmaz37]

Merhaba
Çalışma sayfasının kod bölümüne yapıştırın.

Not:Kodlar alıntıdır.

   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 = 17 ' Satır Rengi
    ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
    End Sub

elinize sağlık işe yaradı çok teşekkürler

 

[Mahir64]

elinize sağlık işe yaradı çok teşekkürler

Korhan beyin hatırlatmasını bundan sonraki konularınızda dikkate alınız.
Kolay Gelsin
iyi Çalışmalar :hey:

 

[unutulmaz37]

Merhaba
Çalışma sayfasının kod bölümüne yapıştırın.

Not:Kodlar alıntıdır.

   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 = 17 ' Satır Rengi
    ActiveCell.Cells.Interior.ColorIndex = 4 ' Hücre Rengi
    End Sub

Merhaba,
şuanda iş yerindeyim macronuzu kullnıyorum işe yarıyor fakat bir sorun var çalıştığım dosyada (ctrl z) (ctrl-c) gibi işlemler yapılmıyor ayrıca dolgu rengi olan hücrelerden dolgu renkleri kayboluyor

 

[turan1971]

bu kodda sadece satır renkleniyor. Fakat satırdaki önceden renklenmiş hücrelerin renkleri bozulmuyor. Copy/Paste çalışmaktadır...




Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
With Application
.FindFormat.Clear
.ReplaceFormat.Clear
.FindFormat.Interior.ColorIndex = 27
.ReplaceFormat.Interior.ColorIndex = xlNone
Sh.Cells.Replace What:="", Replacement:="", SearchFormat:=True, _
ReplaceFormat:=True
.FindFormat.Clear
.ReplaceFormat.Clear
.FindFormat.Interior.ColorIndex = xlNone
.ReplaceFormat.Interior.ColorIndex = 27
Intersect(Target.EntireRow, Sh.UsedRange).Replace What:="", _
Replacement:="", SearchFormat:=True, ReplaceFormat:=True
End With
End Sub

 

[muzzymania]

çok faydalı bir macro ;teşekkürler

bu kodun dosya içinde yeni bir sayfa açıldığındada o sayfa içinde de çalışması için thisworkbook un içinede ekledim ama olmadı ? sayfadaki verilerin tablo olması sebebiyle böyle olabilirmi

bu sorunu nasıl çözerim

 

[sinowyounow]

bu kodda sadece satır renkleniyor. Fakat satırdaki önceden renklenmiş hücrelerin renkleri bozulmuyor. Copy/Paste çalışmaktadır...




Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
With Application
.FindFormat.Clear
.ReplaceFormat.Clear
.FindFormat.Interior.ColorIndex = 27
.ReplaceFormat.Interior.ColorIndex = xlNone
Sh.Cells.Replace What:="", Replacement:="", SearchFormat:=True, _
ReplaceFormat:=True
.FindFormat.Clear
.ReplaceFormat.Clear
.FindFormat.Interior.ColorIndex = xlNone
.ReplaceFormat.Interior.ColorIndex = 27
Intersect(Target.EntireRow, Sh.UsedRange).Replace What:="", _
Replacement:="", SearchFormat:=True, ReplaceFormat:=True
End With
End Sub

Öncelikle Emekleriniz için teşekkür ederim.
Bu kodu workbook a copy paste yaptığımız zaman çalışmadı. Bir örnek dosya ekleyebilirmisiniz.
İyi çalışmalar dilerim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linkteki örnek dosyayı incelermisiniz.

Satır-Sütun Renklendirme

 

[önder34]

Merhaba hücrelerde önceden başka renk varsa hücrenin rengine göre satır başka renk alıyor. Ama hücredeki değerleri kopyalam ve yapıştırm yapmıyor. Ayrıca satır hangi hücrede olursa olsun sadece tek renk (renk değişmeden ) yapılabilir mi ? Yardımınızı bekliyorum

 

[daysee]

bu kodu çalıştıramadım sorun nedir acaba

 

[Korhan Ayhan]

Hangi kodu çalıştırmadınız. Önerilen kodları ilgili sayfanın kod bölümüne uygulamalısınız.

 

[Altindag]

Bu işlemi eklentiler başlığıyla arasanız Excel Eklentileri ile de çözümleyebilirsiniz. Dilerim işinize yarayacaktır bu da.