ara-bul sorunu

[orkuncan5]

Ekteki proğramda hepsini seç kutusunu işaretleyince sadece sayfa 2 nin seçilmemesini nasıl sağlarım ?

 

[Ömer]

Merhaba,

Daha önce bunun cevabını size vermiştim.

Ara - bul - git

.

 

[orkuncan5]

ara bul sorusu

sorum ektedir , tam anlatamadığımı düşündüm.

 

[Ömer]

Eski "UserForm_Initialize" kodunu silip yerine aşağıdaki kodu yazınız. Yada sadece mavi ilaveyi aşağıdaki gibi ekleyiniz.

Private Sub UserForm_Initialize()
 
    Dim syf As Worksheet
    
    For Each syf In Worksheets
        [COLOR=blue]If syf.Name <> "Sayfa2" Then
[/COLOR]            ListBox2.AddItem syf.Name
        [COLOR=blue]End If
[/COLOR]    Next syf
    
    ListBox1.ColumnCount = 3
    ListBox1.ColumnWidths = "100;30;200"
 
End Sub

 

[orkuncan5]

ara - bul

Ömer Bey bıkıp usanmadan sorularımı okuyup cevap verdiğiniz için teşekkür ederim.Vermiş olduğunuz kod işime yaradı.Sağolun

 

[orkuncan5]

Ömer Bey aynı şekilde sayfa 3 ve sayfa 4 ünde seçilmemesi için uğraştım ama yapamadım.Yardımcı olurmusunuz.Daha çok sayfanın gözükmemesi için ne yapmam lazım.

 

[Ömer]

Ömer Bey aynı şekilde sayfa 3 ve sayfa 4 ünde seçilmemesi için uğraştım ama yapamadım.Yardımcı olurmusunuz.Daha çok sayfanın gözükmemesi için ne yapmam lazım.

If syf.Name <> "Sayfa2" Then

Bu satıra ilave yapmanız gerekir.

If syf.Name <> "Sayfa2" and syf.Name <>"Sayfa3" and syf.Name <> "Sayfa4" Then

Gibi..

.

 

[orkuncan5]

Tamam sağolun , and koymak aklıma gelmedi.