listbox hata

[mustafasucu]

Merhaba,

Aşağıdaki formulde hata veriyor, hata mesajı ekteki resimde. Şimdi, textbox1 in değeri 239 adet, textbox2 nin değeri 321 adet, iç içe dongu kurdum ama hata alıyorum. konu hakkında yardımlarınızı bekliyorum.Teşekkürler.

ProgressBar1.Max = TextBox2

For t = 1 To TextBox2
For f = 1 To TextBox1
If ListBox2.List(t) = ListBox1.List(f) Then
ProgressBar1.Value = t
TextBox3 = t
End If
Next f
Next t

 

[vardar07]

Merhaba,

Aşağıdaki formulde hata veriyor, hata mesajı ekteki resimde. Şimdi, textbox1 in değeri 239 adet, textbox2 nin değeri 321 adet, iç içe dongu kurdum ama hata alıyorum. konu hakkında yardımlarınızı bekliyorum.Teşekkürler.

ProgressBar1.Max = TextBox2

For t = 1 To TextBox2
For f = 1 To TextBox1
If ListBox2.List(t) = ListBox1.List(f) Then
ProgressBar1.Value = t
TextBox3 = t
End If
Next f
Next t

Merhaba, Aşağıdaki form Kurallarına uygun yol seçerseniz cevap alma şansınız artar.

Forumdan daha iyi faydalanabilmeniz için bazı öneriler;
2- Birisi sorunuzu anlamazsa hoşgörülü olun ve gerekirse soruş şeklinizi gözden geçirin.

11-"Bir userformda 3 listbox'ım var, Veriler sayfasından S,D sütunlarını listbox1'e aldıktan sonra userform üstündeki bir command button vasıtası ile bir başka userform'u açarak burda bulunan combobox'ta..." Böyle bir soru ile karşılaştığınızda nasıl çözebilirsiniz bu soruyu. Tüm bu anlatılanları, yani excel dosyasın açıp, ilgili sheet isimlerini verip, userformlar, bu formlarda listbox'lar yapacaksınız. Sonra düğmelere kodlar yazacaksınız ve sonra hatayı bulup çözeceksiniz. Bu biraz haksızlık değillmi sizcede. Siz sorunuzu 3 cümlede soracaksınız ama size cevap vermek isteyen kişi vaktini soruyu çözebilmek için dosyayı oluşturarak harcayacak. Bu tip sorularınızda örnek dosya eklemeniz cevap alma şansınzı ve hızınızı her zaman artırır.

12 - Örnek dosya eklediğinizde ise sorunuzu dosya içine değil (isterseniz oraya da yazın) ama foruma yazmanızda fayda var. Hiçbir ipucu olmayan bir dosyayı indirmektense hiç indirmemeyi tercih edebilirsiniz sizde.
olursunuz.
http://www.excel.web.tr/f59/forum-kurallary-t1323.html