excelde bir artırarak oto çıktı alma

Katılım
17 Ocak 2022
Mesajlar
3
Excel Vers. ve Dili
pyton
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,558
Excel Vers. ve Dili
Excel 2013 Türkçe
Kod:
Sub Yazdir()
    x = InputBox("Kopya Adedini Giriniz", , 1)
    ActiveSheet.PrintOut Copies:=x
End Sub
 
Katılım
17 Ocak 2022
Mesajlar
3
Excel Vers. ve Dili
pyton
Kod:
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

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,558
Excel Vers. ve Dili
Excel 2013 Türkçe
Böyle dener misiniz ?
Kod:
Sub Yazdir()
    ActiveSheet.PrintOut from:=[d10], to:=[e11]
End Sub
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,558
Excel Vers. ve Dili
Excel 2013 Türkçe
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.
 
Katılım
28 Mart 2007
Mesajlar
106
Excel Vers. ve Dili
frontpage
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

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
35,348
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Ofis 2016 Tr-En 32 Bit
Merhaba,

Sanki konu buradaki konuya benziyor.

 
Üst