Buton atama

[coşkun79]

merhaba; ekte gönderdiğim örnek dosyada, sayfa 1'de ki bilgieri bilgi formu isimli sayfanın b3 hücresine isim yazmak sureti ile form halinde yazdırabiliyorum. Yazdırma alanı da A:G şeklinde ayarlı. bilgiformu sayfasındaki A:G alanını yazdırma işini (form şeklinde) sayfa 1'de a sütununa atayacağım bir buton ile (yazdır) nasıl yapabilirim. yani sayfa 1'deki ilgili satırın a sütunundaki yazdır butonuna bastığımda o satıra ait bilgileri bilgi formu sayfasında form şeklinde yazdırmak istiyorum.

 

[vardar07]

Sayfa1'de yazdır yazısına çift tıklama ile verileri aktarabilirsiniz ve yazmaya geçer. Her satır için buton koymaya gerek yok.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A3:A" & Range("A65536").End(3).Row)) Is Nothing Then Exit Sub
With Sheets("BİLGİ FORMU")
.Range("A3:G16").ClearContents
.Cells(3, 2) = Cells(Target.Row, 2)
.Cells(4, 2) = Cells(Target.Row, 3)
.Cells(5, 2) = Cells(Target.Row, 4)
.PrintOut
End With
End Sub