Satır renklendirme makrosu...

[yollabana]

Merhaba,
Excelde örneğin a5 hücresine geldiğimde a5 in bulunduğu satırı renklendirmek istiyorum.A4 hücresine geçtiğimde ise a5 teki renklendirme eski haline dönecek ve a4 hücresi bu sefer renklenecek..
Yardımcı olacak üstadlarımıza şimdiden teşekkür ederim..

 

[Merhum İdris SERDAR]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 35
End Sub

Deneyin

35'i dilediğiniz sayı yaparak, dilediğiniz renk elde edebilirsiniz.

 

[yollabana]

Çok teşekkürler, elinize sağlık....

 

[Recep İpek]

Merhaba,

Bu konu daha önce işlenmişti ama, makro eski renkleri siliyor.

Eski renklerin kalması için ne yapılabilinir?
:8)

 

[Merhum İdris SERDAR]

Eski renklerin kalması için ne yapılabilinir?

Cells.Interior.ColorIndex = xlColorIndexNone
Bu kodu ya silin ya da kodun başına ' kesme işareti koyun.

 

[Recep İpek]

Sn.yurttas sorumu net olarak soramadım galiba.

Benim yapmak istediğim daha önceden değişik renklerde renklendirdiğim hücrelerin renklerinin aynı kalmasını istiyorum.
Kolay Gelsin.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?p=61543#61543

 

[merken]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireColumn.Interior.ColorIndex = 17
ActiveCell.EntireRow.Interior.ColorIndex = 17
End Sub

 

[Recep İpek]

Sn:leventm hocam ellerinize sağlık.
Teşekkürler...

 

[Recep İpek]

Sn:leventm hocam.Affınıza sığınarak ilgili linkteki kodlarınızı aşağıdaki şekilde değiştirdim.Çok süperrr oldu.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Cells.FormatConditions.Delete
[z1] = 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions.Add Type:=xlExpression, Formula1:="=$z$1=1"
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions(1).Interior.ColorIndex = 36
End Sub

Şimdi de renklendirme makrosu hesaplama yaptığı için herhangi bir hücrede kopyalama yapmak istediğimde buna izin vermiyor.Herhangi bir çözümü olabilir mi? Teşekkürler. :dua2:

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:11b19b1440]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode = xlCopy Then Exit Sub
On Error Resume Next
Cells.FormatConditions.Delete
[z1] = 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions.Add Type:=xlExpression, Formula1:="=$z$1=1"
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions(1).Interior.ColorIndex = 36
End Sub
[/vb:1:11b19b1440]

Not:kodlar herkesin paylaşımına açıktır. İstediğiniz değişikliği yapıp kullanabilirsiniz. Bunun içinde izin almanız gerekmez.

 

[Recep İpek]

Sn.leventm harikasınız.Söyleyecek söz bulamıyorum.Bilginize sağlık...
Çok çok teşekkürler....

Bu arada ilgili makronun son şekli aşağıdadır.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Application.CutCopyMode = xlCopy Then Exit Sub
On Error Resume Next
Cells.FormatConditions.Delete
[z1] = 1
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions.Add Type:=xlExpression, Formula1:="=$z$1=1"
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions(1).Interior.ColorIndex = 36
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions(1).Font.Bold = True
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 20)).FormatConditions(1).Font.ColorIndex = 3
'www.excel.web.tr
End Sub


:hey:

 

[MOUNTANYER]

merhaba ,ben bu kodu açılan tum kitaplarda aktif olmasını istiyorum nasıl yapabilirim.

 

[Recep İpek]

Eklenti oluşturarak bunu yapabilirsiniz.

Konu ile ilgili olarak aşağıdaki linki inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=14377

 

[RIKU]

İyi Geceler! Benim sorumda renklendirmeyle alakalı fakat biraz değişik.
Sorum şöyle aktif hücredeki değere bağlı olarak, başka bir listedeki o aktif hücredeki değere eşit olan hücrelerin renklenmesini istiyorum. Eminim herkes diyecektir Eeee ne var bunda? Koşullu biçimlendimeyle hallolur.Fakat o aktif hücrenin hemen aşağısında başka bir değer var diyelim. Ve böylece yön tuşları ile aşağı kaydıkça değişen verilere göre renklenen hücreler değişecektir elbette.Buna yönelik yani Aktif Hücredeki değere bağlı olarak, yani bu değer sabit bir hücrede değil. Buna yönelik Bir kod yazılabilirmi acaba? Ek dosyada biraz daha iyi anlatabildim sanırım.Şimdiden Teşekkürler....

 

[Recep İpek]

Sanırım bu şekil istiyorsunuz.

 

[RIKU]

Sayın Ripek, gerçekten çok teşekkür ediyorum. Kesinlikle kusursuz bir çözüm. Başarılarınızın devamını diliyorum.Saygılarımla...

 

[Recep İpek]

İşinize yaradığına sevindim. :keyif:

 

[RIKU]

Sayın Ripek, çözümünüzle alakalı bir şey sormak istiyorum. Örneğin ben aşağı yukarı tuşlarıyla isimler arasında gezindiğim sırasında ismin hemen yanındaki butona toplamlar geliyor ve orası da renkleniyor. Ben öğrenme amaçlı olarak toplamı kaldırabildim fakat; renklenme devam ediyor.Fakat sadece I sütunun renlenmesini istesem, ne yapmam gerek onu keşfedemedim. Yardımcı olabilirmisiniz.
Umarım çok fazla olmuyorumdur.

 

[Recep İpek]

Range(ActiveCell, ActiveCell.Offset(0, 1)).Interior.ColorIndex = 36

satırını

ActiveCell.Interior.ColorIndex = 36

olarak değiştirin.