Veri Varsa Yazdırsın

[İsmail Küçükşengün]

Merhabalar;

Aşağıdaki kod ile belli bir sayfanın belirli kısmını yazdırıyorum.

Private Sub CommandButton1_Click()
ProgressBar1.Visible = True
Dim i As Integer
For i = 1 To 100
ProgressBar1.Value = (i / 100) * 100
Label1.Caption = Format(Int((i / 100) * 100), "%0")
DoEvents
Next i
Sheets("veri").Select
Sheets("veri").PageSetup.PrintArea = "$A$1:$H$55"
ActiveWindow.SelectedSheets.PrintOut From:=ilk, To:=son, Copies:=ComboBox1, Collate _
:=True
Sheets("kambiyo").Select
MsgBox "*** Y A Z D I R M A İ Ş L E M İ B İ T T İ ****"
ProgressBar1.Visible = True
Unload Me
UserForm8.Show

End Sub

Sorunum:

Userform üzerideki bir butonla:

"ali" sayfasında L10 hücresinde veri varsa;
L10.daki veri "veli" sayfasının J184'e L11.deki J187.ye,

L12.de veri varsa;
L12.daki veri yine "veli" sayfasının J184'e, L13.deki J187.ye,

L14.te veri varsa;
L.14 teki veri yine "veli" sayfasının J184'e, L15.teki J187'ye aktarılıp
yazdırılması konusunda yardımlarınız için şimdiden Teşekkürler...

 

[İsmail Küçükşengün]

Sorunumu Çözdüm.

İlgilenip henüz cevap veremeyenlere teşekkürler.....