[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ş: 37
İ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 ?
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ş: 47
İleti: 27385
 
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ş: 37
İ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 ?
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ş: 47
İleti: 27385
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

Cevap: Userformda Progresbar ekletip makro ile ilişkilendirm

İleti#5)  ergulhoca » 02 Ekm 2020 20:22

İyi günler sayın üstadlar.

Sql uzun bir sorgumu excel vba üzerinden tablolar halinde alıyorum. Bu sorgum bitene kadar çalışan bir progressbar nasıl yapılır.

Genel olarak sorgu bitene kadar çalışacak stabil bir vba sorgusu varmıdır? Varsa paylaşırmısınız ?

İlginize şimdiden teşekkür ederim.
Kullanıcı avatarı
ergulhoca
 
Kayıt: 17 Arl 2019 21:10
Meslek: serbest meslek
Yaş: 50
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bolu

Cevap: Userformda Progresbar ekletip makro ile ilişkilendirm

İleti#6)  erseldemirel2 » 03 Ekm 2020 13:23

Örnek userform da progress bar uygulaması ekledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 940
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Userformda Progresbar ekletip makro ile ilişki

İleti#7)  ergulhoca » 03 Ekm 2020 22:04

erseldemirel2 yazdı:Örnek userform da progress bar uygulaması ekledim.


Üstadım öncelikle ellerine sağlık. Teşekkür ederim.
Ancak şöyle bir sıkıntı oldu. Userformu direk sürükle bırak metoduyla kendi excelime aldım. ve SQL sorgumun 5 satırına userfrom1.show 0 diye yazdım. Userform ekranı geliyor.
SQL sorgunun sonuna Unload userform1 diye de yazdım. Sorgu bitince Userformda kapanıyor.

Ancak progress barın ne ilerlediği ne rengi hiçbişi gözükmüyor. Sorgunun uzunluğundanmıdır anlamadım. Donuk beyaz bir ekran. Ekran görüntüsünüde buraya eklemeyedim üzgünüm.Sorgu başladıgında progresbarın çalıştığı filan hiç gözükmüyor. Ama Userform ekrana geliyor.
Biraz karısık anlatmıs olabilirim bu anlamda özür dilerim. Bu progresbarın sağlıklı işlemesi için ne yapmalıyım.
Nasıl çözebiliriz acaba. Nasıl yardımcı olursunuz. Simdiden teşekkür ederim.
Kullanıcı avatarı
ergulhoca
 
Kayıt: 17 Arl 2019 21:10
Meslek: serbest meslek
Yaş: 50
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bolu

Cevap: Userformda Progresbar ekletip makro ile ilişkilendirm

İleti#8)  Miraç CAN » 05 Ekm 2020 10:31

2016 64 Bit için,
C:\WINDOWS\system32\MSCOMCTL.OCX veya C:\WINDOWS\SysWOW64\MSCOMCTL.OCXdosyasının varlığını kontrol edin.
MSCOMCTL.OCX dosyası bilgisayarınızda mevcut değilse https://www.microsoft.com/en-us/download/details.aspx?id=50722 bu linkten indirip kurun.

VBA penceresi Tools/References penceresinde Microsoft Windows Common Controls 6.0 işaretli değil ise listeden bulup işaretleyin, listede yoksa Browse... butonunu kullanarak Add Reference penceresinden
ActiveX Controls(*.ocx) uzantısını seçerek C:\Windows\SysWOW64 (Systm32'de de olabilir) konumundan MSCOMCTL.OCX dosyasını yükleyip, seçili yapın.

Daha sonra Tools/Additional Controls penceresinde "Selected Items Only" kutucuğu işaretliyse onu kaldırıp listeden Microsoft ProgressBar Control, version 6.0 bulup, işaretleyin.

Bildiklerim bu kadar :roll:
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 803
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Userformda Progresbar ekletip makro ile ilişkilendirm

İleti#9)  ergulhoca » 13 Ekm 2020 20:30

üstad çok teşekkür ederim. ellerine sağlık .
Kullanıcı avatarı
ergulhoca
 
Kayıt: 17 Arl 2019 21:10
Meslek: serbest meslek
Yaş: 50
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bolu


Forum ProgressBar

Online Kullanıcılar

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

Bumerang - Yazarkafe