Kaydet ve Yazdır Butonu

[maddas]

Merhaba Arkadaşlar,
Makroyu hiç bilmiyorum ama makroyla yapılabilecek bir tabloya ihtiyacım var.

Ekte gönderdiğim tabloya bakarsanız açıklama olarak yazdım. Çok basit bir kayıt işlemine ihtiyacım var ama bi türlü hallademedim.

Yardımlarınız için şimdiden teşekkiürler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. H70 hücresine çift tıkladığınızda kod çalışacaktır.

"Yeni Giriş" isimli sayfanın kod bölümüne;

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("H70")) Is Nothing Then
        Cancel = True
        YAZDIR_KAYDET
    End If
End Sub

Boş bir modüle;

Option Explicit
 
Sub YAZDIR_KAYDET()
    Dim Satır As Long, X As Byte
 
    Sheets("Yeni Giriş").PrintOut
 
    Satır = Sheets("APA ").Range("B65536").End(3).Row + 1
 
    For X = 2 To 5
        Sheets("APA ").Cells(Satır, X) = Sheets("APA ").Cells(1, X)
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub