excel kilitlenme sorunu

[metinozlu]

merhaba
aşağıdaki kodu çalıştıran OptionButton28 cliclediğimde bazen excel kilitleniyor.Kodda mantıksal bir hata var mı?
iyi günler

Private Sub OptionButton28_Click()
UserForm3.ComboBox1.Clear
Dim i As Integer
For i = 2 To 32000 Step 4
If Sheets("data").Cells(i, "ga") = "" Then
Exit Sub
Else
UserForm3.ComboBox1.AddItem Sheets("data").Cells(i, "ga").Value


End If
Next i

End Sub

 

[danersin]

ga değişkenini nerde ve nasıl bir değişken olarak tanımladınız bilmiyorum- gerçi problem onla ilgili olsa hata verirdi sanırım..
Muhtemelen i,"ga" hücrelerini hiç boş bulamadığı için döngü 8000 defa çalışıyor ve bu uzun sürebilir, o sırada memory'nizde başka şeylerde varsa excel kilitleniyo..

Kısacası kodda ters birşey görünmedi bana.

 

[metinozlu]

multipage sayfalarında yaklaşık 500 adet Textbox var bu sorun olabilir mi?

 

[Levent Menteşoğlu]

Birde aşağıdaki gibi denermisiniz. İşlem süresi döngüsüz çok daha kısa olacaktır.

[vb:1:87d3c9ee7c]Private Sub OptionButton28_Click()
UserForm3.ComboBox1=""
sonsat=sheets("data").[ga65536].end(3).row
UserForm3.ComboBox1.rowsource="data!ga2:ga" & sonsat
End Sub
[/vb:1:87d3c9ee7c]

 

[danersin]

:hiho: :hiho:

ga'yı değişken sandım ben.. yorgunum yine galiba .. bozmayın..

 

[danersin]

hadi tırnakları görmedin, ga'nın değişken olarak kullanılamayacağınıda mı bilmiyorsun. :kafa:


Levent bey bu çözümde step 4'ü nasıl yapabiliriz?

 

[metinozlu]

kodu denedim yine kilitleniyor.
değişken tanımlamamıştım.bu problem yapabilir mi?

 

[Levent Menteşoğlu]

Levent bey bu çözümde step 4'ü nasıl yapabiliriz?

Yapamayız.

 

[danersin]

sn.metinozlu, açıkcası ya dosyayı tümden görüp aynı amaca ulaşan daha hızlı çalışan bir kod bulmayı deneyeceğiz yada sizin ram yetersizse biraz ram takviyesi ile çalıştırmayı deneyeceksiniz..

Muhtemelen if else kullanmak yerine tek if/ yada do loop kullanıp diziye yazdırıp sonra bunu combobox'ı diziye eşitlemek daha hızlı olabilir ama emin değilim.

 

[metinozlu]

cevaplar için teşekkürler.
bir çözüm bulursam göndereceğim.
iyi günler

 

[metinozlu]

userform üzerindeki herhangi bir texboxa veri girdiğimde kilitlenme kalkıyor. textboxa veri girilmesiyle kilitlenmenin kalkması arasında nasıl bir ilişki olabilir?

 

[metinozlu]

:agla: