tıkladığım hücrenin rengi değişsin

[gbaldogan]

şÖYLE BİR MAKTO YAZDIM AMA İÇİNDEN ÇIKAMIYORUM:

Sub Makro16()
'
' Makro16 Makro
' Makro Tuzla Tersanecilik ve Turizm A.Ş. tarafından 07.09.2007 tarihinde kaydedildi.
'
Range("C6:C18").Select
Sub Düğme139_Tıklat()
Selection.Copy
Son = [D65536].End(3).Row + 1
Range("D" & Son).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D4").Select
Application.CutCopyMode = False
Selection.Copy
Range("C" & Son).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C6").Select Selection.Interior.ColorIndex = 36
Range("B6").Select
'
End Sub


Sadece C6 hücresini sarı yapıyor halbuki ben C kolonunda her tıkladığım hücre tıkladıktan sonra sarı olsun istiyorum ..Acaba yol gösteren olur mu? :???:

 

[AS3434]

Çalıştığınız sayfanın Kod Sayfasına şu kodları yazın.

Bu kodlar yapmış olduğunuz makrodan bağımsız çalışır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
ActiveCell.Interior.ColorIndex = 36
End Sub

 

[musti-ilke]

merhabalar acaba kod yazmadan da yapilabilirmi acaba?

 

[Orion1]

merhabalar acaba kod yazmadan da yapilabilirmi acaba?

:roll: :roll:

 

[Seyit Tiken]

Sadece imlecin gittiği hücre renklenir.

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

 

[musti-ilke]

cok tessekürler süper calisiyo...