takip eden kaydet düğmesi(paylaşım)

[AHMETMANAV]

merhaba
üzerinde çalıştığım excel dosyasında sık sık kaydet düğmesi kullanıyorum. Yukarıdaki araç çubuğundaki kaydet düğmesine ikide bir mousela gitmek yerine üzerinde çalıştığım hücreyi takip eden kaydet düğmesi oluşturdum.
1. kod:
Private Sub CommandButton1_Click()
ActiveWorkbook.Save

MsgBox "Kaydetme İşlemi Tamamlandı."

End Sub
düğme oluşturun ve yukarıdaki makroyu düğmeye atayın

2. kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("button 1").Top = ActiveCell.Offset(2, 2).Rows.Top
End Sub

bu paylaşımı excel.web.tr den ve konularıma yardımcı olan üyelerden öğrendiğim bilgillerden oluşturabildim.Hepsine teşekkür ederim.
Saygılarımla

 

[sametozyavuz]

merhaba
üzerinde çalıştığım excel dosyasında sık sık kaydet düğmesi kullanıyorum. Yukarıdaki araç çubuğundaki kaydet düğmesine ikide bir mousela gitmek yerine üzerinde çalıştığım hücreyi takip eden kaydet düğmesi oluşturdum.
1. kod:
Private Sub CommandButton1_Click()
ActiveWorkbook.Save

MsgBox "Kaydetme İşlemi Tamamlandı."

End Sub
düğme oluşturun ve yukarıdaki makroyu düğmeye atayın

2. kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("button 1").Top = ActiveCell.Offset(2, 2).Rows.Top
End Sub

bu paylaşımı excel.web.tr den ve konularıma yardımcı olan üyelerden öğrendiğim bilgillerden oluşturabildim.Hepsine teşekkür ederim.
Saygılarımla

sizin kodlardan ve forumdaki diğer kodlardan yola çıkarak beğenebileceğiniz bir kaydet düğmesi yaptım.

 

[Seyit Tiken]

Bazen hareketli butonlar ayakbağı olabiliyor, bu kod gayet pratiktir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ThisWorkbook.Save
End Sub

 

[AHMETMANAV]

Merhaba
sametozyavuz bey uygulamınız çok güzel olmuş elinize sağlık. kaydet bilgi mesajının süreli gözükmesi işleri hızlandırır.

Sayın Seyit Tiken bey kodunuzu çalıştırmadım. Fark nedir?

 

[Seyit Tiken]

Aktif hücreye çitf tıklayınız.

 

[AHMETMANAV]

Private Sub Worksheet_BeforeDoubleClick
şimdi anladım.bu da güzel uygulama