Userform' da yazdır butonu

[Ahmet ÖZGÜR]

Eklemiş oldugum örnekte ComboBox1 den sayfayı seçip yazdır dediğimde sayfaları yazdırıyor konu içerisinde askm nin eklemiş olduğu bir kod var ama bu sayfaya uyarlayamadım.

Konu: Userformdan yazdır denildiğinde Koli-Üstü sayfasında c19 hücresi (1 dir) yazdıracak taki f19 hücresindeki sayı ile eşleşince eşleşenide yazdırıp yazdırma işlemini bitmeli.

(Kağıt A5 olarak kullanılıyor) Alt tarafta ise c46 hücresindeki sayı c19 hücresindeki sayıdan 1 fazla olarak ilerleyecek..

Yukarıdaki askm nin makrosunu uyarlamayı başaramadım.

 

[Ahmet ÖZGÜR]

Oluru yokmudur?

 

[askm]

C46 F19 a eşit olunca mı durmalı. Yoksa C19 F19 a eşit olunca mı durmalı. a5 olunca C46 bir fazla gidiyor. Yapmak istediğiniz sanırım. C19=1 C46=2 daha sonra C19=3 C46=4 daha sonra C19=5 C46=6 deyip bitirmeli. Tam açıklarsanız bakalım.

 

[Ahmet ÖZGÜR]

C46 F19 a eşit olunca mı durmalı. Yoksa C19 F19 a eşit olunca mı durmalı. a5 olunca C46 bir fazla gidiyor. Yapmak istediğiniz sanırım. C19=1 C46=2 daha sonra C19=3 C46=4 daha sonra C19=5 C46=6 deyip bitirmeli. Tam açıklarsanız bakalım.

askm merhaba,

c19 "1" c46 "2" bundan sonra c19 "3" olmalı c46 "4"olmalı
c19 "5" olmalı c46 "6" olunca yazdırıp durmalı

buradaki mantık (örnek: 5 bu bazen 20 de olabilir 7 de olabilir) F19 ve F46 toplam koli sayısı c19 ve c46 ise değişen koli sayıları buna paralel olarakta f19 a bakarak formüllenmiş olan benden ve adetler değişmekte

"c19" "f19" a eşit olunca yazdırıp bitirmeli

c19=5 f19=5
c46=6 f46=5

umarım anlatabilmişimdir.

 

[askm]

Private Sub CommandButton8_Click()
On Error Resume Next
Sheets(ComboBox1.Text).Select
For i = Sheets(ComboBox1.Text).Range("c19") To Sheets(ComboBox1.Text).Range("F19") + 1 Step 2
' bu ise koli yazdır komutu ile hangi satırları hareket ettireceğini belirliyor
   Sheets(ComboBox1.Text).Range("C19") = i
   Sheets(ComboBox1.Text).Range("C46") = i + 1
   Sheets(ComboBox1.Text).PrintOut
   
Next i
End Sub

 

[Ahmet ÖZGÜR]

Private Sub CommandButton8_Click()
On Error Resume Next
Sheets(ComboBox1.Text).Select
For i = Sheets(ComboBox1.Text).Range("c19") To Sheets(ComboBox1.Text).Range("F19") + 1 Step 2
' bu ise koli yazdır komutu ile hangi satırları hareket ettireceğini belirliyor
   Sheets(ComboBox1.Text).Range("C19") = i
   Sheets(ComboBox1.Text).Range("C46") = i + 1
   Sheets(ComboBox1.Text).PrintOut
   
Next i
End Sub

askm budur. Teşekkür ederim.

Eklemiş olduğum dosyanın sizce ilerleyişi nasıl vaktiniz olunca bakabilirseniz eksik gördüğünüz birşeyler var ise yazarsanız eksik olanları görmüş olurum.