değişen hücreyi seçmek

[acar6783]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2:C65536]) Is Nothing Then Exit Sub
Application.EnableEvents = False

Rows("2:208").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Rows(Target.Row).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Application.EnableEven



kolay gelsin arkadaşlar
yukarıdaki gibi bir kodum mevcut bu kod son değişen hücreyi bulup ilgili satırı sarıya boyuyor.
kırmızı ile yazdığım-- rows (target.row)--yerine ne yazarsak sadece değişen hücreyi seçer?

 

[Orion1]

Deneyiniz.

Target.select

 

[acar6783]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2:C65536]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Rows("2:500").Select

With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Target.Select
Cells.Find(What:=Selection, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Range("C23").Select
Cells.FindNext(After:=ActiveCell).Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Application.EnableEvents = True
End Sub

 

[acar6783]

en son değişen hücreyi bulmak isteye yuarıdaki kodu kullanabilir..

biraz zor oldu ama amacıma ulaştım..
daha kolay yolu varsa tavsiyelerinizi bekliyorum..