Son değişen hücre

[acar6783]

arkadaşlar kusura bakmayın konu üzerinde cok durdum fakat cözmem gerek . yaptığım çalışmada aşama aşama giderek kodlar yazmaya çalıştım sorular sorarak fakat yaptığım kod bazen hata veriiyor ve istediğimi alamyorum kod ve dosyam ekteki gibidir..

istediğim temel olarak hangi hücrenin içeriği değişmiş ise bana o hücreyi göstermesi idi..

aşama aşama yaptığım çalışmada ise şu şekilde yaptım .
1. son değişen hücreyi buldum
2. onu sarıya boyadım
3.ctrl+f yi makro kaydı yaparak o değişen hücrnin solunda kalan hücreyi aratıp bulduğu hücrenin üzerine gitmeini sağladım ...

fakat tam olarak başarılı olamadım..
inceleyeip yardımcı olabilrmisiniz arkadaşlar

 

[Huseyinkis]

Dosya nerde?

 

[acar6783]

http://www.excel.web.tr/f14/son-deoi-en-hucre-t126130.html

nasıl oldu anlamadım ama iki kere konu acmısım diğer mesajımda ekler mevcuttur..

 

[acar6783]

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

With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Target.offset(0,-1).Select
Columns("b").Find(What:=Selection, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

Columns("b").FindNext(After:=ActiveCell).Activate
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Application.EnableEvents = True
End Sub