sırayı yazdırılacak olana aktarma

[aytacbasturk]

saygıdeğer arkadaşlar öncelikle ildefa katılıyorum çok faydalı bir site olduğunu gördüğüm için yazıyorum..

Benim ricam şu olacak ekteki dosyadanda anlaşılacağı gibi her satırın sonunda bulunan butona bastığımızda 2. sayfaya (yazdırılacak sayfa) bilgilerin aktarılması. yarımlarınızı bekliyorum. ekteki dosyayı incelerseniz anlayacaksınızdır.

YADA FARKLI YÖNTEMLER OLABİLİR.

:???:

 

[Recep İpek]

Öncelikle aramıza hoşgeldiniz.

Aşağıdaki kodları kullanabilirsiniz.
Her buton için ayrı ayrı tanımlamanız gerekiyor.

Private Sub CommandButton1_Click()
Dim s1, s2 As Variant
Set s1 = Sheets("kayit")
Set s2 = Sheets("yazdırılacak sayfa")
s2.[b3] = s1.[a2]
s2.[b5] = s1.[b2]
s2.[b7] = s1.[c2]
End Sub

 

[aytacbasturk]

hay allah razı olsun sende arkadaşım ellerine sağlıkk... ripekbiliyordum ya buradan sonuç alacağımı..

 

[Recep İpek]

Siz forumu takip etmeye başlayın.Daha ne çözümler bulacaksınız...