Butona tıkladıktan sonra VBA penceresi açılıyor kodlar görünüyor ama herhangi bir ProgressBar göremiyorum. Çok az veri olmasına rağmen excel donuyor hocam.
İlginiz için teşekkürler korhan hocam formda 2 sayfa var 2. sayfada dediğinizi yaptım kaydet2 butonundaki call maini kaldırdım orada fazla satır sutun olmadığı için seri kaydediyor lakin ilk sayfa da aynı işlemi yaptığımda aynı yavaşlık devam ediyor.
Merhaba,
Kullandığınız sütun sayısı fazla dolayısı ile veri işlemek biraz zaman alıyor. Siz bir de buna görsellik katmak için "ProgressBar" görünümlü "Label" kullanmışsınız.
KAYDET tuşundaki aşağıdaki satırı silip denerseniz hızlandığını görebilirsiniz.
Call Main2 'Progress Bar2
Merhaba, Aşağıda ekli olan kodlara Progressbar eklemek istiyorum ancak tam olarak çalışmıyor. Kodlarda nerde hata yapıyorum acaba?
Private Sub CommandButton1_Click()
Worksheets("PID1").Unprotect "12345"
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
For i = 1 To 100
x = x + 1...
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.
...var ( %20, %50, %125, %45) gibi. Her hücrenin karşısında bir "çubuk - boru" şeklinin içinde değeri kadar renge boyalı olmasını istiyorum. ProgressBar gibi ama sabit değer gösteren :)
Örneğin %25 yazan hücrenin karşısında bir çubuk ve %25'i yeşil boyalı veya %125 yazan hücrenin karşısında bir...
Ek olarak forumda "progressbar" ifadesi ile arama yapınca ve karşıma gelen konuları inceleyince aşağıdaki linke ulaştım. Belki size de faydası olabilir.
https://www.excel.web.tr/threads/listview-date-and-time-picker-progressbar-diger-nesne-hatalarinin-coezuemleri.159385/
Merhaba,
ProgressBar nesnesi döngülü işlemler için daha uygundur.
Bu sebeple sizin bu nesne yerine bir userform üzerinde "İşleminiz sürüyor. Lütfen bekleyiniz...." şeklinde bir uyarı penceresi daha kullanışlı olacaktır.
...Savechanges:=False
dosyaaçıkmı = ""
End If
ThisWorkbook.Activate
End Sub
örnek olarak
https://excel.web.tr/threads/progressbar-ekleme.179396/
linkinden faydalanmaya çalıştım.
Userfrom1 üstüne
1 adet label
1adet fram eklenmiştir.
For i = 2 To son
DoEvents
ProgressBar1.Value =...
...eğer bilgisayarda bu referans yoksa o zaman çalışmaz... Bu iş için en sağlıklısı, VBA'nin standart TextBox ve Label kontrolleri ile kendi ProgressBar'ınızı yapmak olacaktır. Forumda örnekleri vardı diye hatırlıyorum....
Diğer yandan, Ömer Beyin dosyasındaki ProgressBar kontrolünün API ile...
Ömer bey dosya kendi pc mde çalışıyor, bunun için çok teşekkürler. Ama başka pc de açmaya çalıştığımda progressbar objesi userform da hiç gözükmüyor, neden olabilir acaba ?
Merhaba Arkadaşlar; Excel 2019 yüklü bilgisayarda hazırlanmış bir programın userform'daki progressbar nesnesi excel 2016 yüklü olan bilgisayara yüklenince progressbar nesnesi yok oluyor ve program hata veriyor! bu durumu engellemek için ne yapmalı?
Veri alma biçimi ado ile record setle alınıyor ve hemen yazılıyor.
Progressbar kullanabilmek için döngü olması lazım.Sizin kodlarınızda döngü yok.
Seçtiğiniz metod en hızlı biçimde veri alır.döngü daha yavaştır.
Sayın @Believing
Dosyanızda şifre var . Bunu geçtim , ancak ado bağlantı kurulduğu için bir veri , kaynak olmadığından çağrılamıyor ve akış duruyor.
Progressbar ekleme konusunda şuradaki açıklamaları inceleyiniz ..
https://www.excel.web.tr/threads/progress-bar-eklemek.170532/
...var, bu kodu sayfa üzerinde Metin Kutusu(TextBox) için nasıl revize edebiliriz?
Yani, Metin Kutusunun minimum olan uzunluk ölçüsünü, döngüyle aşağı doğru genişletilmesi.
ProgressBar1.Min = 0
ProgressBar1.Max = 10000
For i = 0 To 10000
DoEvents
ProgressBar1 = i
Next
ProgressBar1.Visible = False
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.