düğmeyi sayfayla birlikte kaydırmak

[GursoyC]

merhaba,
eklediğim dosyada görülebileceği üzere;

bir veri giriş formu oluşturdum. bu sayfada kaydet butonuna bastığımda bu verileri başka bir sayfaya yazıyor.
diğer sayfadaki kayıtları kontrol etmek için de bir tuş koydum.
yapmak istediğim diğer sayfaya koyduğum "kayıt sayfasına dön" düğmesi, her veri girişi ile birlikte aşağı doğru kaysın. yani daima son veri girişinin hizasında olsun.

yardımcı olursanız sevinirim.
saygılarımla,

 

[ÖmerBey]

Merhaba,
gelirkaydet_v71 isimli kodun son tarafını şu şekilde değiştiriniz.

    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    [COLOR="Red"]ActiveSheet.Shapes("Yuvarlatılmış Dikdörtgen 1").Top = Selection.Top[/COLOR]
    Sheets("Gelir").Select
    Range("L3").Select
    Application.CutCopyMode = False
End Sub

İyi çalışmalar...

 

[GursoyC]

Teşekkür etmek için biraz geç dönebildim, kusura bakmayın. Çok teşekkürler. Gayet güzel çalışıyor.