Öncelikle herkese Merhaba.
Kullandığım kodu aşağıda belirttim.
Yaptığım şu; Listbox 1 sütunda yer alan veriyi listbox satırı seçili iken yazdır düğmesine basıyorum ve seçili olan listbox satırındaki bilgiyi başka sayfaya kopyalıyor. Kopyalanan sayfada formülle başka sayfadan veri çekiyor ve neticede yazdırıyorum.
Yapmak istediğim ise;
Listboxta var olan tüm satırları sırasıyla söz konusu sayfaya kopyalayıp tek tek yazdırmak. Listboxta yer alan her satır için sırayla aynı işlemi mi yaparız yoksa bir kerede yapmak mümkün mü bilemedim.
Yardımlarınızı rica ediyorum.
Kullandığım kodu aşağıda belirttim.
Yaptığım şu; Listbox 1 sütunda yer alan veriyi listbox satırı seçili iken yazdır düğmesine basıyorum ve seçili olan listbox satırındaki bilgiyi başka sayfaya kopyalıyor. Kopyalanan sayfada formülle başka sayfadan veri çekiyor ve neticede yazdırıyorum.
Yapmak istediğim ise;
Listboxta var olan tüm satırları sırasıyla söz konusu sayfaya kopyalayıp tek tek yazdırmak. Listboxta yer alan her satır için sırayla aynı işlemi mi yaparız yoksa bir kerede yapmak mümkün mü bilemedim.
Yardımlarınızı rica ediyorum.
Kod:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If TextBox2.Value = "" Then
MsgBox ("Listeden iş emri seçiniz.")
GoTo son:
Else
Sheets("DEN").Visible = True
Sheets("DEN").Select
Call goster1
[cd8] = TextBox2.Value
Call Gizle
'UserForm2.Hide
ActiveWindow.SelectedSheets.PrintOut
Sheets("DEN").Visible = False
Sheets("Üretim").Select
UserForm4.Show
son:
Application.ScreenUpdating = True
End If
End Sub