excelde de üzerine geldiğimiz satırın renkli olması

[rad.white]

Değerli forumdaşlar,

Sitemizin son mesajlar kısmında olduğu gibi excelde de üzerine geldiğimiz satırın renkli olması , veya imlecin olduğu satırın renkli olması ile ilgili sorum olacaktı

üstadlar ne dersiniz, nasıl yapılıyor?

 

[halit3]

bu kodmuydu aradığın


Const iInternational As Integer = Not (0)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
On Error Resume Next
iColor = Target.Interior.ColorIndex
If iColor < 0 Then
iColor = 28
Else
iColor = iColor + 1
End If
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1
Cells.FormatConditions.Delete
With Cells(Target.Row, Target.Column)
.FormatConditions.Add Type:=2, Formula1:=iInternational
.FormatConditions(1).Interior.ColorIndex = iColor
End With
With Range(Target.Offset(1 - Target.Row, 0).Address & ":" & Target.Offset(-1, 0).Address)
.FormatConditions.Add Type:=2, Formula1:=iInternational

End With
End Sub

 

[rad.white]

hocam

çok güzel .

bunu boy dan boya uyarlamamız mümükün mü

yani tüm satır renkli olsun bide mause üzerine gelince

 

[halit3]

kod
Const iInternational As Integer = Not (0)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
On Error Resume Next
iColor = Target.Interior.ColorIndex
If iColor < 0 Then
iColor = 6
Else
iColor = iColor + 1
End If
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1
Cells.FormatConditions.Delete
With Rows(Target.Row)
.FormatConditions.Add Type:=2, Formula1:=iInternational
.FormatConditions(1).Interior.ColorIndex = iColor
End With
End Sub

 

[rad.white]

sayın halit3

bu kodu yazdım ama bi işe yaramadı

yani sayfada hiçbir değişiklik olmuyor

 

[dEdE]

Merhaba,
Kodu sayfanın kod bölümüne yazmanız gerekiyor.
En baş kısmına da aşağıdaki satırı ekleyiniz.

Const iInternational As Integer = Not (0)

 

[rad.white]

Pardon ben hata yapmışım. Oldu şimdi...

Acaba bunu oluşan çizgiyi iki sütun arasında çalıştırmamız mümkünmü;

yani bir tablo içerisinde, çalışsın



(insan karşılığını vermeden ha bire bişeyler isteyince alışmamış insanlar için hakikaten zor oluyormuş sayın üstad lar)

yorum sizin...

 

[dEdE]

Acaba bunu oluşan çizgiyi iki sütun arasında çalıştırmamız mümkünmü;yani bir tablo içerisinde, çalışsın...

Anlaşılmadı !

 

[scarlmd]

teşekkür...

faydalandım.. çok güzel teşekkür ederim.

 

[uzmanamele]

merhaba
bunlardan birini deneyin

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
        Target.Interior.ColorIndex = 3
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
        Rows(Target.Row).Interior.ColorIndex = 5
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
        Columns(Target.Column).Interior.ColorIndex = 3
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone                      'hüm hücreler renksiz
        Rows(Target.Row).Interior.ColorIndex = 5        'tek satır
        Columns(Target.Column).Interior.ColorIndex = 3  'tek sütun
End Sub

 

[Kemal Demir]

Süleyman Bey'in kodlarına ek olarak ta(kesişen noktalar için)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone                      'hüm hücreler renksiz
        Rows(Target.Row).Interior.ColorIndex = 6        'tek satır
        Columns(Target.Column).Interior.ColorIndex = 3  'tek sütun
'Kesişen Noktanın rengi   
     Target.Cells.Interior.ColorIndex = 8
End Sub

 

[rad.white]

dEdE Alıntı:
rad.white tarafından gönderildi
Acaba bunu oluşan çizgiyi iki sütun arasında çalıştırmamız mümkünmü;yani bir tablo içerisinde, çalışsın...

Anlaşılmadı !


evet arkadaşlar verdiğiniz kodlar çok güze her biri ayrı ayrı işe yarıyor.

Biraz anlatma özürüm olduğunu farkettim,

Demek istediğimi ekli bir dosya da göstreceğim.

 

[rad.white]

galiba dosya ekleyemiyorum.


Buradan yazıyorum; diyelim A Sütunu ......... ve ......... G Sütunu var

imleç bu iki sütun arasında kontrol çubuğu görüntülensin sadece


olabilirmi?

 

[rad.white]

_____________________________

 

[dEdE]

galiba dosya ekleyemiyorum.
Buradan yazıyorum; diyelim A Sütunu ......... ve ......... G Sütunu var
imleç bu iki sütun arasında kontrol çubuğu görüntülensin sadece olabilirmi?

Merhaba,
2007 versiyonu dosyayı ekleyemezsiniz. Dosyanızı 2003 versiyon olarak kaydedip ekler misiniz?

 

[leumruk]

Merhaba,
Aşağıdaki örneği deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1:G30].Interior.ColorIndex = xlNone
If Intersect(Target, [A1:G30]) Is Nothing Then Exit Sub
Range(Cells(Target.Row, "a"), Cells(Target.Row, "g")).Interior.ColorIndex = 6
ActiveCell.Interior.ColorIndex = 40
End Sub

 

[zırzır]

Sayın leumruk,çok güzel olmuş,bende faydalandım.

 

[leumruk]

Sayın leumruk,çok güzel olmuş,bende faydalandım.

Teşekkür ederim. İşinize yaradığına sevindim.

 

[rad.white]

sn; leumruk

örnek dosya ekleme me gerek bırak mamışsınız

olayı bitirmişiniz yani ....

ilgilenen ve emeği geçen tüm arkadaşlara teşekkürler