combobox tekrar ediyor

[gelen gecer mdmx]

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox2_Change()
Sheets(ComboBox2.Text).Select
End Sub
Private Sub Worksheet_Activate()
Dim I As Integer
For I = 1 To Sheets.Count
If Sheets(I).Name = Sheets("NPU 3 Kirişli").Name Or Sheets(I).Name = Sheets("NPU 4 Kirişli").Name Or Sheets(I).Name = Sheets("NPU 5 Kirişli").Name Or Sheets(I).Name = Sheets("NPI 3 Kirişli").Name Or Sheets(I).Name = Sheets("NPI 4 Kirişli").Name Or Sheets(I).Name = Sheets("NPI 5 Kirişli").Name Or Sheets(I).Name = Sheets("NPI 6 Kirişli").Name Or Sheets(I).Name = Sheets("NPI 7 Kirişli").Name Or Sheets(I).Name = Sheets("NPI 8 Kirişli").Name Then
ComboBox1.AddItem Sheets(I).Name
Else
ComboBox2.AddItem Sheets(I).Name
End If
Next
End Sub

comboboxlarım ilk sayfada ama exceli ilk açtığımda comboboxlarda veri yok başka bir sayfaya geçip ilk sayfayı açınca sayfa isimlerim combo boxta gözüküyor.Ve bu işlemi tekrarladıkça comboboxtaki veriler tekrar ediyor mesela 3 defa activate edersem worksheeti 3 tane aynı isim çıkıyor.Bu sanırım activate et dememden dolayı ama başka komut bilmiyorum.Bir de bu bendeki komutta if-else den dolayı ana sayfamda comboxta çıkıyor istediğim bir sayfayı nasıl comboboxtan çıkartırım?şimdiden teşekkürler

 

[Orion1]

Bu satırların altına aşaığıdaki kodları koyun

Private Sub Worksheet_Activate()
Dim I As Integer

Combobox1.clear
combobox2.clear

 

[gelen gecer mdmx]

teşekkürler ama program ilk açıldığında kutular niye boş?kutuların olduğu sayfaya ikinci kez girişimde listeler çıkıyor.

 

[Orion1]

teşekkürler ama program ilk açıldığında kutular niye boş?kutuların olduğu sayfaya ikinci kez girişimde listeler çıkıyor.

Bir tane Boş bir modül oluşturun ve aşağıdaki kodları boş modüle yapıştırın.

Sub Auto_Open()
Dim I As Integer
sheets(1).combobox1.clear
sheets(1).combobox2.clear
For I = 1 To Sheets.Count
If Sheets(I).Name = "NPU 3 Kirişli" Or Sheets(I).Name = "NPU 4 Kirişli" Or Sheets(I).Name = "NPU 5 Kirişli" Or Sheets(I).Name = "NPI 3 Kirişli" Or Sheets(I).Name = "NPI 4 Kirişli" Or Sheets(I).Name = "NPI 5 Kirişli" Or Sheets(I).Name = "NPI 6 Kirişli" Or Sheets(I).Name = "NPI 7 Kirişli" Or Sheets(I).Name = "NPI 8 Kirişli" Then
Sheets(1).ComboBox1.AddItem Sheets(I).Name
Else
Sheets(1).ComboBox2.AddItem Sheets(I).Name
End If
Next
End Sub

 

[gelen gecer mdmx]

vba da yeni inster module diyerek bunu kopyaladım ama yok bi değişiklik

 

[Orion1]

vba da yeni inster module diyerek bunu kopyaladım ama yok bi değişiklik

Şimdi düzelttim.
Bunu yapıştırınız.
Dosyayı açıp kapatmanız gerekecek.

 

[gelen gecer mdmx]

çok teşekkürler evet şimdi çalışıyor.peki bende if-else statement olduğu için tüm sayfalar bu comboxlarda çıkıyor. istediğim bir sayfayı sizce nasıl bu boxlarda göstermeyebilirim.

 

[Orion1]

İstemediğiniz sayfayı or opereteründen sonra yazmayın.

 

[gelen gecer mdmx]

istemediğim sayfa "else" lerin kapsadığı parametrede ki or da bile olsa else yazan statement da çıkmaz mı?