Userform "Exception occurred" Hatası

[matrix81]

Microsoft Forms

Exception occurred.


Merhaba,

Userform sorunsuz çalışırken bazen yukarıdaki hatayı alıyorum ve sebebini bir türlü çözemedim.

Bazende ağda dosyayı açtığımda direk bu hatayı veriyor.

Acil yardımlarınızı rica ederim.

Teşekkürler,

 

[askm]

Dosya olmadan cevap vermek zor olacaktır.

 

[matrix81]

Merhaba,

Exception occurred hatası devam ediyor

Userform da bir problem var ama nedir?

Başka bir Excel dosyası açıksa açılır açılmaz hata veriyor,
tek başına açıldığında çalışıyor fakat belirlemeyen bir süre sonra yine hatayı veriyor.

Şüphelendiğim kod listesini aşağıya yazıyorum, bu kodların yerine farklı kod yazabilir miyim,
yada bu kodlarda bir hata var mı sizce?

 

[matrix81]

"Exception occurred"

Private Sub ComboBox1_Change()
Dim HCR As Range, RNG As Range
Set RNG = Worksheets("Veri3").Range("A2", Worksheets("Veri3").Range("A2").End(xlDown))
'ComboBox2.RowSource = ""
'ComboBox2.Clear
For Each HCR In RNG
hucredeg = HCR.Value
If hucredeg = ComboBox1.Value Then
ComboBox2.AddItem HCR.Offset(, 1).Value
End If
Next
ComboBox2.ListIndex = -1
End Sub

Private Sub UserForm_Initialize()
Dim GCR As Range, RNG As Range
Set RNG = Worksheets("Veri3").Range("A2", Worksheets("Veri3").Range("A2").End(xlDown))
'ComboBox1.RowSource = ""
'ComboBox1.Clear
For Each HCR In RNG
If hucredeg <> HCR.Value Then ComboBox1.AddItem HCR.Value
hucredeg = HCR.Value
Next
End Sub


Kımızı ile yazdığım kodları lütfen bir kontrol edin, günlerdir tüm kodları inceledim, bu kodların içinde bir hata var ama hangisi hatalı?

 

[Saban Sertkaya]

- Initialize kodlarında "hucredeg" değerini nereden alıyor ? Yani değeri nedir ki <> HCR diyorsunuz ?
- Veri3 sayfasında A2'den sonrası boş olabilir mi ?
- Bir de Set RNG ifadelerini, End Sub öncesi, RNG = Nothing diye boşaltmanızı tavsiye ederim.

 

[matrix81]

- Initialize kodlarında "hucredeg" değerini nereden alıyor ? Yani değeri nedir ki <> HCR diyorsunuz ?
- Veri3 sayfasında A2'den sonrası boş olabilir mi ?
- Bir de Set RNG ifadelerini, End Sub öncesi, RNG = Nothing diye boşaltmanızı tavsiye ederim.

Aldığım hata tam olarak ekte.

Maalesef Hata devam ediyor...

Bu hatayı 2 türlü alıyorum.
1- Eğer başka bir excel dosyası açıksa bunu açıp userform kullanılmaya başladığında combobox1 veriyi çekiyor, combobox2 ye tıkladığımda verileri listelemesi gerekirken bu hatayı veriyor.
2- Eğer dosyayı tek başına açılıp kullanıldığında sorunsuz çalışıyor fakat belirsiz bir süre sonra yine aynı hatayı veriyor.

Not: Bu tablo bir hesap tablosu ve şirketin ortak klasöründe 20 üstü bilgisayar tarafından kullanılıyor ve herkes dosyayı saltokunur açıyor.

 

[Saban Sertkaya]

Altın üye değilim.

 

[Zeki Gürsoy]

1- Eğer başka bir excel dosyası açıksa bunu açıp userform kullanılmaya başladığında combobox1 veriyi çekiyor, combobox2 ye tıkladığımda verileri listelemesi gerekirken bu hatayı veriyor...

Kodlama başlarına "ThisWorkBook.WorkSheets("...") şeklinde veri yüklemeyi deneyin bir de...

 

[Ömer BARAN]

Merhaba.
Aldığınız hatanın ekran görüntüsü yerine, hatanın yaşandığı örnek belge eklememekte kararlısınız sanırım.
Gerçek belgenin, özel bilgiler içermeyen, küçük boyutlu ve kullanılan userform ve kodların içerisinde olduğu bir kopyası şeklinde hazırlayacağınız bir örnek belge yüklemenizde yarar var.
.

 

[halit3]

Buraya eklediğiniz kodda kırmızı bölüm değişkeni nereden almakta

Private Sub UserForm_Initialize()
Dim GCR As Range, RNG As Range
Set RNG = Worksheets("Veri3").Range("A2", Worksheets("Veri3").Range("A2").End(xlDown))
'ComboBox1.RowSource = ""
'ComboBox1.Clear
For Each HCR In RNG
If [COLOR="Red"]hucredeg[/COLOR] <> HCR.Value Then ComboBox1.AddItem HCR.Value
hucredeg = HCR.Value
Next
End Sub

diğer kodunuz value değerini text yaptım kodlar çalışıyor

Private Sub ComboBox1_Click()
Dim HCR As Range, RNG As Range
Set RNG = Worksheets("Veri3").Range("A2", Worksheets("Veri3").Range("A2").End(xlDown))
'ComboBox2.RowSource = ""
'ComboBox2.Clear
For Each HCR In RNG
hucredeg = HCR.Value


If hucredeg = ComboBox1.[COLOR="Red"]Text[/COLOR] Then
MsgBox hucredeg
ComboBox2.AddItem HCR.Offset(, 1).Value
End If
Next
ComboBox2.ListIndex = -1
End Sub

 

[matrix81]

Buraya eklediğiniz kodda kırmızı bölüm değişkeni nereden almakta

Private Sub UserForm_Initialize()
Dim GCR As Range, RNG As Range
Set RNG = Worksheets("Veri3").Range("A2", Worksheets("Veri3").Range("A2").End(xlDown))
'ComboBox1.RowSource = ""
'ComboBox1.Clear
For Each HCR In RNG
If [COLOR="Red"]hucredeg[/COLOR] <> HCR.Value Then ComboBox1.AddItem HCR.Value
hucredeg = HCR.Value
Next
End Sub

diğer kodunuz value değerini text yaptım kodlar çalışıyor

Private Sub ComboBox1_Click()
Dim HCR As Range, RNG As Range
Set RNG = Worksheets("Veri3").Range("A2", Worksheets("Veri3").Range("A2").End(xlDown))
'ComboBox2.RowSource = ""
'ComboBox2.Clear
For Each HCR In RNG
hucredeg = HCR.Value


If hucredeg = ComboBox1.[COLOR="Red"]Text[/COLOR] Then
MsgBox hucredeg
ComboBox2.AddItem HCR.Offset(, 1).Value
End If
Next
ComboBox2.ListIndex = -1
End Sub

If hucredeg = ComboBox1.Text Then

Bu satır sorunu çözdü sanırım. Umarım hatasız devam eder.
Çok teşekkür ederim.

 

[matrix81]

Kodlama başlarına "ThisWorkBook.WorkSheets("...") şeklinde veri yüklemeyi deneyin bir de...

Merhaba,

Bahsettiğiniz kod aklıma geldi denemeyi düşünüyordum bende, hatırlattığınız için teşekkür ederim.

Konu ile ilgili bir sorum olacak.
Birçok modülde bir sürü "worksheets" var hespini tek seferde bir dim değeri ile değiştirebilir miyiz veya Sub Autpen() modülü içine

Dim Bu_Kitap As String
Bu_Kitap = ThisWorkBook.WorkSheets("Veri3")

yazsam istediğim gibi çalışır mı sizce?

 

[Zeki Gürsoy]

Merhaba. Ctrl + H ile yapabilirsiniz sanıyorum. Kırmızı font ile yazdığınız kod yanlış bu arada. (String değişkene Object veriyorsunuz)

.

 

[matrix81]

Merhaba,

Tüm kodları ThisWorkBook.WorkSheets("...") şeklinde değiştirdim çözüm olmadı,
If hucredeg = ComboBox1.Value Then satınırı If hucredeg = ComboBox1.Text Then olarak düzenledim yine çözüm olmadı.

dosyada çalışırken bir süre sonra "Exception occurred" hatasını vermektedir hala...