abdullahss
Altın Üye
- Katılım
- 6 Kasım 2006
- Mesajlar
- 176
- Excel Vers. ve Dili
- türkçe
- Altın Üyelik Bitiş Tarihi
- 05-04-2026
arkadaşlar iki makroyu birleştiremiyorum yardımcı olursanız çok sevinirim
yapmak istedigim 3 sayfanın h11 i 1 artırarak yazdırmak ,yazdırma toplam kopya adetini ben belirlemek istiyorum kopya adeti kaç olursa olsun sayfa 1,2.3 ün h11 i artarak devam edecek
Sub YAZDIR()
Dim X As Long
For X = 1 To Sheets.Count
Sheets(X).PrintOut Copies:=1
Sheets(X).[J11] = Sheets(X).[J11] + 1
Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub
Sub yazdır()
adet = InputBox("Kaç defa yazdırılsın?", "", 1)
Worksheets.PrintOut , , adet
End Sub
yapmak istedigim 3 sayfanın h11 i 1 artırarak yazdırmak ,yazdırma toplam kopya adetini ben belirlemek istiyorum kopya adeti kaç olursa olsun sayfa 1,2.3 ün h11 i artarak devam edecek
Sub YAZDIR()
Dim X As Long
For X = 1 To Sheets.Count
Sheets(X).PrintOut Copies:=1
Sheets(X).[J11] = Sheets(X).[J11] + 1
Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub
Sub yazdır()
adet = InputBox("Kaç defa yazdırılsın?", "", 1)
Worksheets.PrintOut , , adet
End Sub