Combobox ta seçiyaptıktan sonra meydana gelen titremeyi nasıl engelleyebilirim.

[sdegirmenci]

Değerli Hocalarım merhaba;
Combobox tan seçim yaptıktan sonra meydana gelen Combobox taki titremenin olmaması için ne yapabilirim. Application.ScreenUpdating = False yazmama rağmen ekteki dosyamda göreceğiniz gibi titremeyi kesemedim , sebebini anlayamadım. Yardımcı olursanız sevinirim. Şimdiden çok teşekkür ederim.

 

[Ferhat Pazarçevirdi]

Combobox'lar her değiştiğinde, sayfaya bir değer yazıyor. Sayfaya yazılan değer de, Worksheet Change olayını tetikliyor. Titremenin sebebi bu ..

Benim gördüğüm kadarıyla; Combo seçimleri ile değişen hücre değerleri, Worksheet Change için önemli değil ... O halde, aşağıdaki gibi kodlarınızı revize edebilirsiniz.

NOT : Application.ScreenUpdating kodlarını siliniz. Bir faydası olmaz.

NOT : Arada çalışan fazla satırlar var ama projenizi yavaşlatacak düzeyde değil ...

Private Sub ComboBox1_Change()
    ActiveSheet.Unprotect
    
    With Application
        .EnableEvents = False
        [AD12] = ComboBox1.Value
        .EnableEvents = True
    End With
    
    ComboBox2.Value = ComboBox1.Value
    ComboBox3.Value = ComboBox1.Value
End Sub
[COLOR=darkgreen]'-----------------------------------[/COLOR]
Private Sub ComboBox2_Change()
    ActiveSheet.Unprotect
    
    With Application
        .EnableEvents = False
        [AD12] = ComboBox2.Value
        .EnableEvents = True
    End With
    
    ComboBox1.Value = ComboBox2.Value
End Sub
[COLOR=darkgreen]'-------------------------------------[/COLOR]
Private Sub ComboBox3_Change()
    ActiveSheet.Unprotect
    
    With Application
        .EnableEvents = False
        [AD12] = ComboBox3.Value
        .EnableEvents = True
    End With
    
    ComboBox1.Value = ComboBox3.Value
End Sub

 

[sdegirmenci]

Sayın Ferhat PAZARÇEVİRDİ Hocam;
İllginize teşekkür ederim, süpersiniz, kodları sizinkilerle değiştirdim titreme kesildi, bilginize sağlık.Tüm işleriniz kolay gelsin.