• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kaydet ve Yazdır Butonu

Katılım
16 Ağustos 2008
Mesajlar
8
Excel Vers. ve Dili
microsoft excel 2003
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.
 

Ekli dosyalar

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;
Kod:
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;
Kod:
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
 

Ekli dosyalar

Geri
Üst