Son değişen hücreyi gösterme

[acar6783]

Merhabalar ..

excel sayfamda son değiştirdiğim hücreyi bir renge boyayıp işaretlemek istiyorum
misal ben e500 hücresine veri girsem bile o hücre en üstte ve renkli bir şekillde görünsün istiyorum aradım taradım ama bu başlık altında bir konu bulamadım.
saygılar..
hayırlı cumalar..

 

[Necdet]

Merhaba,

Küçük basit ve orijinal dosyanıza benzeyen örnek dosya hazırlayınız. Kod yazacak arkadaşlara deneme yapmak için ayrıca dosya hazırlamalarını engeller.

 

[sky_sky]

freeze panes yapmalısınız yani şu şekilde;

ama yapmak istediğiniz daha farklı birşey sanırım?

 

[acar6783]

ek sayfa

deneme olarak bir sayfa ekledim ve belirtme yaptım inşallah sonuca ulaşırız..

 

[acar6783]

freeze panes yapmalısınız yani şu şekilde;

ama yapmak istediğiniz daha farklı birşey sanırım?

evet farklı zaten dosyamda hücreleri dondur yaptım fakat benim istediğim ben her bir şeyyazdığımda o hücreyi en üstte ve renlkli bir şekilde göstermek ..

 

[sky_sky]

oldu mu bu?

 

[acar6783]

bu şekilde sadece enson satırdaki veriyi gösteriyor ..
mesela ben e2 yi değiştirdim o zaman bir şey olmuyor...

 

[Necdet]

Merhaba,

Soru pek anlaşılmıyor, hadi kod yazalım yazmasına da insanın aklına bin bir türlü soru geliyor.

1. Sizin istediğiniz sadece E sütunu için mi geçerli olacak?
2. En üstte görünsün diyorsunuz en üst neresidir? 1. satır mıdır?
3. En üstte görünecekse (diyelim 1. satırda) değişen hücre yerinde kalacak mı?

vs vs vs .

 

[acar6783]

hocam şöyle izah edeyim..
e sütununda herhangi bir hücrenin değerini değiştirdiğimde o hücreye bağlı satır sayfanın en üstünde görünecek yani sayfayı mousun tekeri ile o satırı en üste getirmiş gibi ..

 

[Necdet]

sayfanın en üstü neresidir diye sormuşum? halaa yanıt vermiyorsunuz.

1. satır mı yoksa 2. satır mı. Dosyanızda başlık var mı?

Neyse.... bi anlayan yapar sanırım.

 

[acar6783]

2.satır olacak şekilde yardımcı olabilrimsiniz..

 

[acar6783]

aşağıdaki gibi bir kod buldum fakat kod bir hata verdiğinde bir daha çalışmıyor..
yardımcı olabilirmisiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a2:k65536]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Rows(Target.Row).Cut
[a2].Insert Shift:=xlDown
Application.EnableEvents = True
End Sub

 

[acar6783]

kimsenin konu ile ilgili cevabıyok sanırım ...?