Satır renklendirme makrosu...

[RIKU]

Çok hızlısınız valla, bir zamanlar "Road Runner" vardı aynı o valla.Tekrardan çok Teşekkürler.

 

[hakpin]

Satır renklendirme kodu hata veriyor

Sayın hocam öncelikle merhaba;
Bu formdan alıp kopyaladığım satır renklendirme kodu diğer syfalarda çalışmasına rağmen en çok kuulandığım istihkaklar dosyası yatırım izleme sayfasının altında hata veriyor.Ekteki dosyada yatırım izleme sayfası.
eğer ilgilenirseniz sevinirim.şimdiden teşekkürler

 

[yellow]

Satır Renklendirme Makrosu

Excelde örneğin a sütünunda bulunacak çentik işaretiyle o satırın renklenmesini
istiyorum.satırı sildiğimde satırda bulunan veriyle birlikte renginde kaybolması gerekiyor.
Yardımcı olacak üstadlarımıza şimdiden teşekkür ederim..

 

[ETarkan]

Aktif hücreyide farklı renklendirmek istiyorum

Sevgili Arkadaşlar ve özellikle leventm ve ripek eserinize bir el atsanız diyorum
Buformüllere ilaveten ben birde renklendirilmiş satırda bulunduğum hücreyide farklı bir renk ile görmek istiyorum şimdiden teşekkürler


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

 

[Recep İpek]

Sevgili Arkadaşlar ve özellikle leventm ve ripek eserinize bir el atsanız diyorum
Buformüllere ilaveten ben birde renklendirilmiş satırda bulunduğum hücreyide farklı bir renk ile görmek istiyorum şimdiden teşekkürler

Sorunuzdan pek fazla birşey anlamadım ama, sanırım aşağıdaki linkin 1.mesajında yer
alan eklenti dosyası işinize yarayabilir.

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

 

[ETarkan]

Sevgili Ripek

Önclikle ilgin için teşekkür ederim ve tam anlatamadığım içinde özür

Öncelikle verdiğin linki inceledin sorunumun çözümünü eklenti ile halletmek istemiyorum yoksa bu linke ulaşmıştım

Sorunuma gelince Satırı renklendirdim yazmış olduğunuz kodları kullanarak sorunum renklenen satırın üstünde aktif olduğum hücreninde

örnek satır komple sarı yazılar siyah oluyor ben birde bu satır üzeründe aktif olduğum hücreninde zemin rengi yeşil yazı rengide kırmızı olsun istiyorum umarım sorunumu ifade etmişimdir.

Yardımlarınız için teşekkürler

 

[Recep İpek]

Aşağıdaki kodları deneyebilirsiniz.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Application.CutCopyMode = xlCopy Then Exit Sub
If Application.CutCopyMode = xlCut Then Exit Sub

Cells.FormatConditions.Delete

If Intersect(ActiveCell, [B7:G27]) Is Nothing Then Exit Sub
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 7)).FormatConditions.Add Type:=xlExpression, Formula1:=1
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 7)).FormatConditions(1).Interior.ColorIndex = 36
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 7)).FormatConditions(1).Font.Bold = True
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 7)).FormatConditions(1).Font.ColorIndex = 0

ActiveCell.FormatConditions.Add Type:=xlExpression, Formula1:=1
ActiveCell.FormatConditions(1).Interior.ColorIndex = 14
ActiveCell.FormatConditions(1).Font.ColorIndex = 3
End Sub

 

[ETarkan]

Sn Ripek

Yukardaki kodları kullandım fakat hala sorunum çözülmüş değil yani satır renklendirme ok fakat seçili satır içinde bulunduğum hücrenin farklı renklendirilmesi olmadı malesef

İlginiz için teşekkürler

 

[Recep İpek]

Örnek bir dosya ile nasıl olmasını istediğinizi göstererek ekleyebilirmisiniz?