Makroya İlave (Tıklandığında, Gizli Bir Butonu/Şekli Görünür Yapsın)

[1Al2Ver]

Merhaba,

CommanButton1 tıklandığında,

Aynı zamanda bir 2 nci CommandButon (Örn;CommandButton15) veya Oval6 isimli şekil, görünür olsun,

"ANASAYFA" tıklandığında ise görünür olan buton/şekil, (CommandButton15 veya Oval6) gizlensin, istemekteyim,

Aşağıdaki koda bu ilavelerin yapılmasını rica ediyorum,

Teşekkür ederim.

Private Sub CommandButton1_Click()   

For Each Sayfa In Worksheets   

        If Sayfa.Name <> "ANASAYFA" Then   

            Sayfa.Visible = xlVeryHidden   

        End If   

        If Sayfa.Name = "ANASAYFA" Then   

           Sayfa.Visible = True   

        End If   

        If Sayfa.Name = "Sayfa_Boyut_Analizi" Then   

           Sayfa.Visible = True   

        End If   

        Call Emrin_Olur   

        CommandButton1.BackColor = &HFF&   

Next   

Sheets("ANASAYFA").Select   

End Sub

 

[Ömer]

"ANASAYFA" tıklandığında ise görünür olan buton/şekil, (CommandButton15 veya Oval6) gizlensin, istemekteyim,

Bu cümlenizi anlamadım.

Görünür yada gizleme için, sayfaya bir CommandButton ekleyin, adını koda tanımlayıp False ile gizleyebilir, True ile gösterebilirsiniz.

ActiveSheet.Shapes.Range(Array("CommandButton15")).Visible = False

 

[1Al2Ver]

Ömer bey merhaba,

Duyarlığınız ve öneriniz için teşekkür ederim,

UserForm'da "ANASAYFA" isimli bir CommandButton var,

Bu butona (CommandButton1) tıklayınca "ANASAYFA" ve "Sayfa_Boyut_Analizi" isimlerindeki sayfalar açılıyor (eklediğim kod ile),

"ANASAYFA" açıldığında, sayfada konuşlu CommandButton15 isimli bir buton var,

Olabiliyor ise ,

Örneğin, "Sayfa_Boyut_Analizi" sayfasındayken "ANASAYFA" sekmesini tıkladığımda, açılan "ANASAYFA" sayfasındaki CommandButton15 gizlensin, istiyorum.

Tekrar teşekkür ederim.

 

[Ömer]

"ANASAYFA" sayfasınınkod bölümüne ekleyip deneyiniz.

Private Sub Worksheet_Activate()
    CommandButton15.Visible = False
End Sub

 

[1Al2Ver]

Ömer bey, tekrar merhaba,

2 ve 4 nolu mesajlarınızda önerdiğiniz kodları dosyama uyguladım ve sorun çözüldü,

İlginiz için tekrar teşekkür ederim,

Saygılarımla.