İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
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...
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...