[Yardım]  Userformda Progresbar ekletip makro ile ilişkilendirmek

İlerleme çubuğu

Userformda Progresbar ekletip makro ile ilişkilendirmek

İleti#1)  slckflz36 » 07 Oca 2019 11:38

Merhaba,
Forumda araştırdım ama tam istediğim konuyu bulamadım veya uyarlayamadım. Sorum şu aşağıdaki kod ile makromu çalıştırıp işlem yapıyorum ben buna userform üzerine bir progresbar ekleyerek makro bitene kadar işlem yaptırmak istiyorum. Fakat ilişkilendirmeyi yapamadım makro bittiğinde progresbarda bitip işlemi sonlandıracak böyle bir şeyi nasıl yapabilirim
Kod: Tümünü seç
Private Sub CommandButton3_Click()



On Error Resume Next 'herhangi bir hatada sonraki adıma geç
satir = 3
Sayfa1.Shapes.Range("bilgi").TextFrame2.TextRange.text = "İşlem başladı (saat " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & " )"

Sayfa1.Columns("D3:G95000").ClearContents
For a = 3 To Sayfa4.Range("B10000").End(xlUp).Row
    Set ie = CreateObject("internetexplorer.application")
    ie.Navigate Sayfa4.Cells(a, "B") 'linkleri alır..
    Do
        DoEvents
    Loop Until ie.readyState = READYSTATE_COMPLETE
   
    'Dim doc As HTMLDocument
    Set doc = ie.document
    Dim sDD As String

    For i = 0 To 30
         Sayfa1.Range("e" & satir).Value = doc.getElementsByTagName("h3")(i + 2).innerText
         Sayfa1.Range("f" & satir).Value = doc.getElementsByClassName("newPrice")(i).innerText
         Sayfa1.Range("g" & satir).Value = doc.getElementsByClassName("sallerName")(i).innerText
         Sayfa1.Range("d" & satir).Value = doc.getElementsByTagName("h1")(0).innerText
        satir = satir + 1
    Next i
   
Next a
   ie.Quit
   Set ie = Nothing
   Sayfa1.Columns("D3:G95000").AutoFit
   Sayfa1.Shapes.Range("bilgi").TextFrame2.TextRange.text = Sayfa1.Shapes.Range("bilgi").TextFrame2.TextRange.text & Chr(13) & "İşlem BİTTİ.. (saat " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & " )"
   
   
    Range("C2:G2").Select
    Selection.AutoFilter
    Selection.AutoFilter
    Range("E4").Select
    Cells.Replace What:=" Samsung", Replacement:="Samsung", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
        Cells.Replace What:="TL", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Columns("F:F").Select
    Selection.NumberFormat = "0.00"
    Range("D2").Select
   
    Cells.Replace What:=" Xerox", Replacement:="Xerox", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
        Cells.Replace What:=" Canon", Replacement:="CANON", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
         Cells.Replace What:=" HP", Replacement:="HP", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
         Cells.Replace What:=" Ricoh", Replacement:="Ricoh", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
          Cells.Replace What:=" Brother", Replacement:="Brother", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
         Cells.Replace What:=" BROTHER", Replacement:="Brother", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
MsgBox "N11 GÜNCELLEMELERİ BAŞARILI"
   
   Unload Me
   UserForm2.Show
   
End Sub
Kullanıcı avatarı
slckflz36
Yeni Başlamış
 
Kayıt: 26 Arl 2018 12:07
Meslek: Yönetici
Yaş: 36
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Userformda Progresbar ekletip makro ile ilişkilendirm

İleti#2)  Tarkan VURAL » 07 Oca 2019 13:10

Merhaba,
Progressbar visible değerini false yapın ve minimum değerini 1, maksimum değerini 100 olarak ayarlayın.
For a = 3 To Sayfa4.Range("B10000").End(xlUp).Row satırından önceye son = Sayfa4.Range("B10000").End(xlUp).Row ekleyin. For döngünüzü buna göre değiştiripFor a = 3 To son yapın. Hemen alt satırına sayac = 100/son yazın. Onun da altına progressbar1.value = round(progressbar1.value + sayac,0) ekleyin. Next satırından sonra progresbar1.visible=false ile gizleyebilirsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27089
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Userformda Progresbar ekletip makro ile ilişkilendirm

İleti#3)  slckflz36 » 07 Oca 2019 15:41

Sayın Tarkan ilginize teşekkür ederim. Dediklerinizi uyarladım fakat progresbar userform üzerinde görünüyor ama buton ile makroyu çalıştırdığımda progresbar gözükmüyor dolmuyor. Normal makro çalışıyor onda sorun yok sıkıntı ne olabilir dosya boyutum büyük olduğundan gönderemiyorum
Kullanıcı avatarı
slckflz36
Yeni Başlamış
 
Kayıt: 26 Arl 2018 12:07
Meslek: Yönetici
Yaş: 36
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Userformda Progresbar ekletip makro ile ilişkilendirm

İleti#4)  Tarkan VURAL » 07 Oca 2019 16:56

For satırından sonra Doevents yazarak olayları devam ettirebilir misiniz ? Ya da dosyanın son durumunu paylaşın, bakalım. ;)
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27089
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum ProgressBar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe