Makronun çalışmasına engel olamiyorum.. Çıldırdım :(

[stirra_ej]

Kurum Sayfasında b3 b 100 arası bulunan veri Ana Sayfada ki Combobox ta listeleniyor..
Ben kurum sayfasına girip b hücrelerine elle veri girdiğimde Ana Sayfadaki combobox içinde bulunan bu makro çalışıyor neden çalıştığını bir türlü anlayamadım
b hücresine veri girer girmez ana sayfaya geçiyor... Çıldırmak üzereyim lütfen yardımcı olurmusunuz..



Private Sub ComboBox23_Change()

Dim Kur1 As Range

For Each Kur1 In Sheets("Kurum").Range("b3:b100")
If ComboBox23.Value = Kur1.Value Then
Label27.Caption = ComboBox23.Value

Label28.Caption = Kur1.Offset(0, 1).Value
Label30.Caption = Kur1.Offset(0, 2).Value

Set Kur1 = Nothing

Exit Sub
End If

If CheckBox23.Value = True Then
CheckBox23.Value = False
CheckBox23.Value = True
End If

If CheckBox22.Value = True Then
CheckBox22.Value = False
CheckBox22.Value = True
End If

Next Kur1


End Sub

 

[Erdem Akdemir]

Kodu F8 ile adım adım çalıştırarak kontrol edebilirsiniz yada kodun çalışmasını belli bir yere kadar gitmesini sağlayacak duraklatma ile kontrol edebilirsiniz. Benim tahminim değişkenlerden birinde hata alıyor ve kod çalışmak için buraya geliyor. Benimde başıma birkaç kere gelmiştir.

 

[stirra_ej]

Hayır sorun ListFillRange liste alması gereken hücre aralığı yüzünden kaynaklanıyor ben o aralığa elle değer girdiğimde listfill range otomatik kendinimi dolduruyor ne oluyor anlamadım..

 

[Erdem Akdemir]

Dosyanızı görmeden kesin hüküm veremiyorum.