excel de herhangi bir hücreyi işaretleyince renklendirmek

[selcukkahya]

Arkadaşlar Merhaba

Excel de herhangi bir hücreyi tıklayınca hücre içeriğini farklı bir renkte görünmesini nasıl sağlarım.

Örneğin;

A1 hücresini tıkladığımda hücre içeriğinin kırmızı (örneğin) olmasını

sonra

b5 hücresini tıkladığımda hücre içeriğinin kırmızı (örneğin) olmasını, vs.vs.

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

 

[sadikturan]

slm
bununla ılgılı olarak bu kodu kullanabılırsınız

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 = 6
Set EskiHucre = Target
End Sub

 

[uzmanamele]

merhaba
her dokundu&#287;unuz yer de&#287;ilde &#231;ift t&#305;klad&#305;&#287;&#305;n&#305;z yerdeki veriler k&#305;rm&#305;z&#305; olsun

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Selection.Font.ColorIndex = 3
End Sub

 

[sadikturan]

ek bilgi i&#231;in tskler...

 

[selcukkahya]

Sayın Sadikturan

Çok hızlı bir şekilde cevap verdiğiniz için teş. ederim. Bu kodlar çok işime yaradı.hemen denemeyi yaptım.

birde bunu içinde veri olan hücre için nasıl yapabilirim.

Sayın uzmanamele

sizede çok teşekkürler.

sizin örneğinizi de denedim çok teşekkürler

 

[mekist]

bu kodlar&#305; nereye yaz&#305;yoruzda bu istenilen olay ger&#231;ekle&#351;iyor.

 

[selcukkahya]

Sayın mekist

dosyayı ekte bulabilirsiniz

Kolay gelsin.

 

[mekist]

&#231;ok te&#351;ekk&#252;r ederim.Anlad&#305;&#287;&#305;m kadar&#305;yla kod i&#231;inde bulunan rakam
Target.Interior.ColorIndex = 6
renkleri ifade ediyor hangi rakam hangi rengi temsil ediyor.Acaba b&#246;yle bi bilgi alabilirmiyiz.

 

[Orion1]

&#231;ok te&#351;ekk&#252;r ederim.Anlad&#305;&#287;&#305;m kadar&#305;yla kod i&#231;inde bulunan rakam
Target.Interior.ColorIndex = 6
renkleri ifade ediyor hangi rakam hangi rengi temsil ediyor.Acaba b&#246;yle bi bilgi alabilirmiyiz.

A&#351;a&#287;&#305;daki kodu &#231;al&#305;&#351;t&#305;r&#305;n&#305;z.
A s&#252;tununa rekleri b s&#252;t&#252;nuna kodlar&#305;n&#305; yazar.

Sub renk()
Dim i As Integer
Range("A1:B256").Clear
For i = 0 To 56
    Cells(i + 1, "B").Value = i
    Range("A" & i + 1).Interior.ColorIndex = i
Next
End Sub

 

[selcukkahya]

Sayın Evren Gizlen


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

Sizden bir konuda daha yardımınız istesem.

İstediğim hücreye tıkladığımda hücre renkleniyor.Buraya kadar herşey güzel fakat hücrenin içindeki veriyi copy yapınca başka bir hücreye paste yapamıyorum.

paste ve paste special çıkmıyor.Yani özetle kopyaladığım veriyi yapıştır yapamıyorum.

Bu konuda da yardımcı olursanız çok sevinirim.

teşekkürler.

Kolay gelsin.