PROGRESS BAR

[cocoa35]

Merhaba; Ek'li dosyada döviz değerlerini sayfaya alan kod'lar var. Ben userform'a yapma bir progressbar eklemek istiyorum, yapmaya uğraştım ama bir yerde hata yapıyorum çalıştıramadım. Bu konuda yardımcı olursanız sevinirim.

 

[ÖmerBey]

Merhaba,
Dosyanızda işlemi formüller ile yaptırıyorsunuz, buton ile sadece A2 hücresine tarih yazdırıyorsunuz. Tek bir işlem için progress bar nasıl çalışsın.
CommandButton1 kodlarını aşağıdaki şekilde güncellerseniz formülü kod içinden çalıştırmış olursunuz.

Private Sub CommandButton1_Click()
Dim x As Byte
Application.ScreenUpdating = False
If Not IsDate(TextBox1.Text) Then TextBox1.Text = Date
For a = 3 To 14
    For b = 3 To 6
        x = x + 1
        Cells(a, b) = KurSorgula(Cells(a, 1), TextBox1.Text, b - 3)
        Bar3.Width = x * 6.4
        Barlbl.Caption = "% " & Int(x / 48 * 100)
        DoEvents
    Next
Next
Application.ScreenUpdating = True
MsgBox "işlem tamam,Lütfen hesapla butonuna basınız"
Unload Me
End Sub

 

[cocoa35]

Çok teşekkürler ömer bey gayet güzel oldu.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[cocoa35]

Sn Ömer bey merhaba; Sizin göndrdiğiniz kod'lar örnek dosyada çok güzel çalıştı. Ancak ben bir hata yapmışım " Buton" Döviz değerlerinin olduğu aynı sayfaya eklemişim ve doğal olarak siz'de ona göre kod'ları ayarladınız ama benim esas dosyamda örneğin Buton "Sayfa2" de döviz değerleri "Sayfa1" de yukarıdaki kod'lar buna göre nasıl ayarlanır?

 

[cocoa35]

Sn Ömer bey örnek dosya'yı ekledim

 

[ÖmerBey]

Merhaba,
Kodun ortalarında aynı satır içinde iki tane Cells ifadesi var. Bunları Sheets("Sayfa1").Cells olarak değiştiriniz.
İyi çalışmalar...

 

[cocoa35]

Çok teşekkürler ömer bey