listbox a veri alma ve değiştirme & sayfa sayısına göre yazdırma

[olymposss]

üstadlarım iyi günler iyi çalışmalar
2 küçük sorum olacak sizlere,

1. aşağıda verdiğim kitap1 dosyasında çizilmiş verileri listbox a aktarmak istiyorum. aynı zamanda listbox üzerindeki herhangi bir hücrede değişiklik yaparsam kaydet butonu ile kaydetmek istiyorum.

2. bir çalışma sayfasında yaklaşık 10 sayfa basılacak. ben bunları sayfa sayısı vererek bastırabilirmiyim. örn; a1 hücresine 5 girince 5. sayfayı bassın.

şimdiden çok teşekkür ederim. saygılar elinize ve emeğinize sağlık.:yardim:
----------------------------------------------------------------------------
bana bir harf öğretenin KIRK yıl kölesi olurum.

 

[mehmett]

2. Sorunuz için aşağıdaki kodları kullanabilirsiniz.

Sub Makro1()
On Error Resume Next
kaç = InputBox("Bu sayfadan kaç adet yazdırmak istiyorsunuz?")
ActiveWindow.SelectedSheets.PrintOut Copies:=kaç, Collate:=True
End Sub

 

[olymposss]

galiba yanlış anlattım

ben kaç sayfa basılmasını sormadım, 4. sayfayı veya 5. sayfayı veri girerek nasıl bastırabiliriz.

teşekkürler saygılar:???:

 

[Kemal Demir]

Sub yazdir()
ilk=inputbox("Yazdırmaya başlanacak Sayfa Numarası")
son=inputbox("sonlandırılacak Sayfa Numarası")
Kopyasayisi=inputbox("Kopya Sayısını Giriniz")
ActiveWindow.SelectedSheets.PrintOut From:=ilk, To:=son, Copies:=Kopyasayisi, Collate:=True
End Sub

Yukarıdaki Gibi Olabilir Dİye Dusunuyorum.

 

[olymposss]

evet gayet mümkün ben geliştirmeye çalışacam

yardımlarınız için çok teşekkür ederim.

üstadlarım bana 1. olarak yazdığım soruda yardımcı olacak var mı?:yardim:

 

[Kemal Demir]

Ek'teki Örneği İnceleyiniz.

Umarım Size Yol Gösterebilir.

 

[hamitcan]

Birinci sorunuz için basit bir örnek hazırladım. Eki inceleyin.

 

[iso3820]

evet gayet mümkün ben geliştirmeye çalışacam

yardımlarınız için çok teşekkür ederim.

üstadlarım bana 1. olarak yazdığım soruda yardımcı olacak var mı?:yardim:

Kardeş bunu ne zaman yazdın bilmiyorum ama yardımcı olayım;


sen sayfa (sheet) yazdıracaksın ama belli aralık (range) doğru mu.?
tek tek yazdırmak istiyorsan 2 buton yerleştir,

sub commanButon_click() 'butonun olduğu sayfada

Sheets("4").Select
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True
Sheets("sayfa1").Select 'Bu yazdığım seni aynı sayfaya getirir. butonun olduğu yere ok.

Sheets("5").Select
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True
Sheets("sayfa1").Select

bak eğer activeWindow diyorsa aktif sayfada olman gerekir bu yüzden 4. sayfayı yazdıktan sonra 5. sayfayı da yazdırmak istiyorsan tek butonla bunu yapacaksın.