(03/02/2020, 23:48)yahyamacit yazdı: Arkadaşlar çok yardımcı oldunuz sağolun. Bir kaç sorum olacak. Progressbar tam çalışmıyor sanırım. 'adet' değişkeni kayıt 303 değerini okuyor. Sebebi ne olabilir. 

Exceldeki verilerin adedi 303 olduğu için.

---

(03/02/2020, 23:52)yahyamacit yazdı: adet=rs(0)
progressbar3.visible=true 
yapınca yarıda kalıyor.

sSqlCount = "select count(*) from [Sayfa1$B3:E] "

Yukarıdaki kod ado da kaç adet olduğunu bulmak için kullanılır count ile.

rs.Open sSqlCount, con bununlada sorgu yapılır.

adet = rs(0)  adet değişkeninede bulunan değer böyle atanır.
adet=303 olur.

Me.ProgressBar3.Value = ((say + say1) / adet) * 100 bu kod dögü içinde kullanılır.
Normalde say + say1 yerine başka bir değişken daha atanıp say3 gibi mesela say3 de yazılırdı.say3 de say3=say3+1 diye giderdi gerek yok diye kullanmadım.

Döngü ilk çalıştığında say + say1 buranın sonucu 1 olur ve 2,3,4.....diye döngü bütene kadar devam eder.

Döngü bitince say+say1 sonucu 303 olur bu durumdada
((say + say1) / adet) * 100 yani ((303) / 303) * 100 sonucu 100 olur.

Progressbarın max değeride 100 olduğu için kodda hata yok.