Kopyala-Yapıştır-Print et Makrosu

[saadetbasak]

Arkadaşlar

Bir Excel Çalışma kitabım var
Bu kitabın iki adet sayfası var
Sheet1'de A2:A1300 aralığında 1299 adet numara var
Sheet2'de ise bir tablo var
Şimdi makronun şunu yapmasını istiyorum:

Shett1 A2'deki hücreyi kopyala,
Sheet2 C4'e yapıştır enterla,
Sonra Sheet2'yi priter'a gönder,
Sonra aynı işlemi Sheet1 A3 hücresi için yap
Sheet2'deki C4 hücresi hiç değişmiyor

Yardımcı olursanız sevinirim

 

[uzmanamele]

merhaba

sorunuzu örnek dosya ile destekleyiniz.

 

[saadetbasak]

Kopyala-Yapıştır-Prnt et için örnek

Örnek dosyayı ekte gönderiyorum
yardımcı olursan sevinirim




Arkadaşlar

Bir Excel Çalışma kitabım var
Bu kitabın iki adet sayfası var
Sheet1'de A2:A1300 aralığında 1299 adet numara var
Sheet2'de ise bir tablo var
Şimdi makronun şunu yapmasını istiyorum:

Shett1 A2'deki hücreyi kopyala,
Sheet2 C4'e yapıştır enterla,
Sonra Sheet2'yi priter'a gönder,
Sonra aynı işlemi Sheet1 A3 hücresi için yap
Sheet2'deki C4 hücresi hiç değişmiyor

Yardımcı olursanız sevinirim

 

[uzmanamele]

merhaba

aşağıdaki kodu dener misiniz

Sub kopyala_yaz()
Application.ScreenUpdating = False
ss = Sheets(1).Range("a65536").End(3).Row
For i = 1 To ss
Sheets(2).Range("c4") = Sheets(1).Range("a" & i)
Sheets(2).PrintOut
Next
Application.ScreenUpdating = True
End Sub

 

[saadetbasak]

Teşekkürler
Benim evdeki bilgisayarda tanımlı yazıcı olmadığından makronun tam çalışıp çalışmadığını anlayamıyorum
Birazdan işyerinde deneyeceğim

Sanırım bu makro Sheet1 de sadece ilk 3 hücre için geçerli
Ben onu A Sutunundaki 1299 adt hücre için etkin hale getiririm

 

[uzmanamele]

Teşekkürler
Benim evdeki bilgisayarda tanımlı yazıcı olmadığından makronun tam çalışıp çalışmadığını anlayamıyorum
Birazdan işyerinde deneyeceğim

Sanırım bu makro Sheet1 de sadece ilk 3 hücre için geçerli
Ben onu A Sutunundaki 1299 adt hücre için etkin hale getiririm

merhaba
sanırım Sheets(1).Range("a65536").End(3).Row satırındaki End(3) ifadesini ilk 3 satır olarak anladınız.
ilk üç satır değil son satır numarasını verir.

kodları denemeden önce yazıcınızda 3-5 sayfa bulundurun, daha fazla değil.
yoksa yüzlerce sayfa çıktı almak zorunda kalırsınız.

bu kod yerine veri doğrulama ile liste oluşturup, listeden seçeceğiniz kod no ya göre çıktı almanız daha doğru olur. her seferde yüzlerce sayfa çıktı almak pek mantıklı görünmüyor.

 

[saadetbasak]

Evet haklısınız
Yazdığınız kod A sutununun tamamını kapsıyor

Yardımınız için teşekkürler