Otomatik Satır Kaydırma

[hakki83]

Merhaba Hocalarımız,

Sürekli açıp veri girdiğim bu dosyamda,

aşağı satırlara kayabilmek için farenin tekerleğiyle ya da alt ok ile aşağı inmek durumunda kalıyorum.

Örnek veriyorum, yukarıda hep üç satır görünsün,

ben veri yazıp entere basınca, otomatik bir satır kaysın ve yine yukarıda veri girilmiş olan üç satır kalsın.

Makro kodu ile böyle bir kod yapabilir miyiz?

 

[ÖmerFaruk]

Sayfanızı kod sayfasında kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:B]) Is Nothing Then Exit Sub
    LastA = Range("A" & Rows.Count).End(xlUp).Row
    LastB = Range("B" & Rows.Count).End(xlUp).Row
    ActiveWindow.ScrollRow = WorksheetFunction.Min(LastA, LastB) - 2
End Sub

 

[hakki83]

Ömer Faruk hocam emeğinize sağlık çok güzel olmuş,
şu minik değişikliği yapabilir miyiz?

A sütunu veya B sütunu bağımsız çalışsın.

Yani sadece A'ya da veri girsem,
Veya sadece B'ye de veri girsem,

kod bu şekilde çalışsın.

 

[ÖmerFaruk]

ActiveWindow.ScrollRow = WorksheetFunction.Max(LastA, LastB) - 2

 

[hakki83]

Tam olarak oldu Ömer Faruk hocam. Fikrinize sağlık.