excelde bir artırarak oto çıktı alma

[akyolist]

merhaba hocam tabloda herhangi bir hücredeki herhangi bir sayıyı bir artırarak örneğin 20 adet çıktıyı direk yacıcıya göndermek istiyorum bunu nasıl yapabilirim yardımcı olurmsunuz t. teşekkürederim

 

[hamitcan]

Sub Yazdir()
    x = InputBox("Kopya Adedini Giriniz", , 1)
    ActiveSheet.PrintOut Copies:=x
End Sub

 

[akyolist]

Sub Yazdir()
    x = InputBox("Kopya Adedini Giriniz", , 1)
    ActiveSheet.PrintOut Copies:=x
End Sub

hocam çok teşekkür ederim burda hangi hücreleri bir artırarak çıktı alacağımı nasıl gösterririm örneğin ben D10 ve E11 sabit bir sayı yazıp birer artıracağım 20 ye kadar mesala. size elimde ki bir excel sayfasınıatsam ona göre bir kod yazabilrimsiniz

 

[hamitcan]

Böyle dener misiniz ?

Sub Yazdir()
    ActiveSheet.PrintOut from:=[d10], to:=[e11]
End Sub

 

[akyolist]

hocam bu boş sayfa cıkaryor

 

[hamitcan]

Verdiğim kod aktif sayfayı yazdırır. Söylediklerinizden anladığım kadarıyla yazmaya çalıştım. En iyisi örnek bir dosya ekleyin. Yoksa çözüm uzayacak.

 

[ramazan_58]

merhaba hocam tabloda herhangi bir hücredeki herhangi bir sayıyı bir artırarak örneğin 20 adet çıktıyı direk yacıcıya göndermek istiyorum bunu nasıl yapabilirim yardımcı olurmsunuz t. teşekkürederim

Sub hepsini_yazdır()

Dim i As Integer

i = 1 'baslangıc i degeri verilmeli

Do While i < Sayfa4.[ac5] + 1 ' i ac5 hücresine bağ_değ_say dan değer buldurdum bu değerden küçük oluncaya kadar çalışacak

Sayfa4.[ac4] = i ' hücreye i değerini yazdır hesaplamayı yaptıracak hücre ac4 burdaki değer 1, sonra 1 er artacak
Sayfa4.[I7].Value = Sayfa4.[ac7].Value ' hesaplanan hücredeki değeri ı7 hücresine aktarır. çünkü asıl hesaplamayı I7 yapmaktadır.

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ' bu kod yazdırır


i = i + 1 'i yi 1 arttır ' ac4 deki 1 değerini 1 er artırır

Loop

End Sub


Sayın hocam her halde aradığınız böyle bir şey

 

[Korhan Ayhan]

Merhaba,

Sanki konu buradaki konuya benziyor.

Değer Değiştirerek Otomatik Yazdırma

Merhabalar. https://dosya.co/5k4jqu95srjl/Otomatik_Yazdırma.xlsx.html Öncelikle yardımlarınız için teşekkür ederim. Konu ile ilgili çok yazı var ama işte pek hakim olmadığım için uyarlamayamadım. Ekteli listede B sütunundaki isimleri yan tarafa otomatik aktaran bir DÜŞEYARA formülü ve DEĞER...

www.excel.web.tr