Sayfaya veri girildiğinde diğer sayfada combobox listesi revize olsun

[Furkan TARAKÇI]

Merhaba
2 farklı sekmem var. Sayfa2 de combobox ım mevcut, bu comboboxla ilgili

ComboBox1.Clear

For i = 14 To 150
If Cells(i, 51) = 1 Then ComboBox1.AddItem Cells(i, 52)
Next i

kodu yazılı, ben istiyorum ki sayfa 1 de herhangi bir hücreye veri girildiğinde veya silindiğinde bu kodun çalışmasını istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[ÖmerBey]

Merhaba,
Öncelikle foruma hoş geldiniz.
Yapılan her değişiklikte kodunuzun çalışmasına gerek yok, sayfa değişikliği yapıldığında kodunuzun çalışması daha mantıklı olacaktır.
Örnek olarak şöyle olabilir:
Boş bir modüle aşağıdaki kodu kopyalayınız.

Sub guncelle()
Sayfa2.ComboBox1.Clear

For i = 14 To 150
If Sayfa1.Cells(i, 51) = 1 Then Sayfa2.ComboBox1.AddItem Sayfa1.Cells(i, 52)
Next i
End Sub

Daha sonra Sayfa2'nin kod bölümüne aşağıdaki kodu ekleyerek sayfa aktif edildiğinde kodun çalışmasını sağlayabilirsiniz. (Aynı mantığı Sayfa1'in Deactivate tetikleyiciyle de yapabilirsiniz.)

Private Sub Worksheet_Activate()
Call guncelle
End Sub

 

[Furkan TARAKÇI]

Ömer Bey geri dönüşünüz için teşekkür ederim.
Dediğiniz gibi yaptım fakat combobox ımın içerisindeki listeleme gelmiyor. Aslında tam olarak aradığım dediğiniz gibi sekmeye tıkladığımda combobox taki listemin güncellemesi.

 

[ÖmerBey]

Yapı olarak dosyanıza benzeyen bir örnek dosya paylaşırsanız dosya üzerinden daha net çözüm sunulabilir.
Dosya paylaşım sitelerine dosyanızı yükleyip linkini paylaşabilirsiniz.

 

[Furkan TARAKÇI]

Ömer Bey,
Yüklemeye gerek kalmadan kurcalayarak hallettim. Fakat başka bir isteğim var. Bununla ilgili forumda arattım fakat bulamadım. Excel'de görünümle ilgili işlemleri tamamen engellemek istiyorum. Örneğin Kılavuz çizgilerini, başlıkları felan açamasın