-
- Destek
-
Özel Arama
![]() |
Sub ShowUserForm()
UserForm1.Show
End Sub
Sub Main()
MsgBox "A Dosyasında (B) Olmadığından emin olunuz. ", vbInformation, "Uyarı"
Dim PctDone As Single
Application.Run "C"
PctDone = (1 / 8) * 100
UpdateProgressBar PctDone
Application.Run "D"
PctDone = (2 / 8) * 100
UpdateProgressBar PctDone
Application.Run "E"
PctDone = (3 / 8) * 100
UpdateProgressBar PctDone
Application.Run "F"
PctDone = (4 / 8) * 100
UpdateProgressBar PctDone
Application.Run "G"
PctDone = (5 / 8) * 100
UpdateProgressBar PctDone
Application.Run "H"
PctDone = (6 / 8) * 100
UpdateProgressBar PctDone
Application.Run "I"
PctDone = (7 / 8) * 100
UpdateProgressBar PctDone
Application.Run "J"
PctDone = (8 / 8) * 100
UpdateProgressBar PctDone
Unload UserForm1
MsgBox "merhabe", vbInformation, "Uyarı"
Application.Run "K"
Sheets("Hepsi").Select
Sheets("Hepsi").Name = "kitaplık"
ChDir "C:\Duvar\Kitaplık\Kitap"
ActiveWorkbook.SaveAs Filename:= _
"C:\Duvar\Kitaplık\Kitap\A.xls" _
, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Sub UpdateProgressBar(PctDone As Single)
With UserForm1
.FrameProgress.Caption = Format(PctDone, "0%")
.LabelProgress.Width = PctDone * _
(.FrameProgress.Width - 10)
End With
DoEvents
End Sub
Application.Run "H"
Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir