• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Dosya Kaydederken Progresbar

Katılım
3 Haziran 2005
Mesajlar
371
Selam
Dosya kaydederken progresbarı nasıl çalıştırabilirim.

döngülerle olan örnekleri gördüm ama kaydederken bulamadım...
 
Malzemeler
1 adet UserForm
1 adet CommandButton
1 adet Label
1 adet Progressbar

Bu malzemeyi aşağıdaki kodlarla kısık ateşte pişirin. :mrgreen:
[vb:1:96fc9af4f1]Private Sub CommandButton1_Click()
Label1.Enabled = True
Me.ProgressBar1.Min = 1
Me.ProgressBar1.Max = 3
beklez = TimeValue("00:00:01")
For i = 1 To 3
Application.Wait (Now + beklez)
Me.ProgressBar1.Value = i
Next
Call kayıt
MsgBox "Kayıt İşlemi Tamamlanmıştır."
Me.Hide
End Sub

Sub kayıt()
Activeworkbook.save
End Sub[/vb:1:96fc9af4f1]
 
Selam Sayın bayram

Kodları okuyabildiğim kadarıyla (affınıza sığınarak) progresbar ile kaydetme eşzamanlı diil yani bağımsız çalışıyor dii mi ?

Yani olmasa da olur diyebilirmiyim...
 
heft' Alıntı:
....
Yani olmasa da olur diyebilirmiyim
...

Fazla da dert etmeyin ....

MS Windows'un kendi ProgressBar' lı uygulamalrinin %80' i de eş zamanlı değildir ... :mrgreen:
 
İlave olarak;

Eş zamanlı bir Dosya -Kaydetme uyarı mesajı için;

[vb:1:0336ff201c]
***********************************************
* *
* http://www.excel.web.tr/viewtopic.php?t=886 *
* *
***********************************************[/vb:1:0336ff201c]


Değişik bir Progressbar örneği için;

http://www.excel.web.tr/viewtopic.php?t=2545



Home - Made (Ev Yapımı) ProgressBar örneği için;
(ALPEN'in değerli kültür içerikli yorumlarıyla beraber ... :mrgreen: )

http://www.excel.web.tr/viewtopic.php?t=878
 
sn. Haluk

Progressbar öğrenmeye calışıyorum.Verdiğiniz linklerin gercekten işime yarayacagını umuyorum. Ancak; bu linkler sanırım eski foruma ait oldugundan acılmıyor.
Vermiş oldugunuz linleri güncelleyebili yada bu linklerdeki çalışmaları tekrar ekleyebilirmisiniz?

Yardımlarınız için simdiden çok teşekkür ederim
 
SN: Haluk, üsdat buradaki linklerde bozulmuş. Ulaşılmıyor.
 
Geri
Üst