Metin Kutusu Gizle/Göster Makrosu

[Akinkaya35]

Merhabalar Resimde gözüktüğü gibi bir menü yaptım fakat menüde araç plakalarının makro ile gizlemek ve gizlendiğinde düğmenin göster olarak değişmesi ve tıkladığımda da metin kutularının gözükmesini istiyorum.
En arkaya gönder ile yaptım ama istediğim verimi alamadım hata alıyorum.
Yardım ederseniz sevinirim iyi çalışmalar.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz. Tüm Metin Kutularında işlem yapar. Gizle/Göster yapmak istemediğiniz metin kutularını kontrol etmelisiniz.

Sub TextBoxGizle()

    'Sayfadaki Tüm Metin Kutularını Gizler
    Dim shp As Shape

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoTextBox Then shp.Visible = msoFalse
    Next shp
   
End Sub

Sub TextBoxGoster()

    'Sayfadaki Tüm Metin Kutularını Gösterir
    Dim shp As Shape

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoTextBox Then shp.Visible = msoTrue
    Next shp
   
End Sub

 

[Akinkaya35]

Merhaba,

Aşağıdaki kodları deneyiniz. Tüm Metin Kutularında işlem yapar. Gizle/Göster yapmak istemediğiniz metin kutularını kontrol etmelisiniz.

Sub TextBoxGizle()

    'Sayfadaki Tüm Metin Kutularını Gizler
    Dim shp As Shape

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoTextBox Then shp.Visible = msoFalse
    Next shp
  
End Sub

Sub TextBoxGoster()

    'Sayfadaki Tüm Metin Kutularını Gösterir
    Dim shp As Shape

    For Each shp In ActiveSheet.Shapes
        If shp.Type = msoTextBox Then shp.Visible = msoTrue


    Next shp
  
End Sub

Malesef belirli metin kutularını gizlemem gerekiyor.

 

[Akinkaya35]

Sorunu halettim. Konu kapatılabilir teşekkürler.

 

[Necdet]

Malesef belirli metin kutularını gizlemem gerekiyor.

Nasıl hallettiğinizi açıklarsanız benzer sorunu olan arkadaşlara da yardımcı olacaktır.

 

[Akinkaya35]

Nasıl hallettiğinizi açıklarsanız benzer sorunu olan arkadaşlara da yardımcı olacaktır.

İki adet kod yazdım açık ve kapalı olacak şekilde bunları bi ok şekline atadım
Sub On_button()
Worksheets(1).Shapes("button").Select

With Selection
.ShapeRange.IncrementRotation 90
ActiveSheet.Shapes.Range(Array("Araclar")).Visible = msoTrue
End With

Worksheets(1).Shapes("button").OnAction = "off_button"
Range("A14").Select


End Sub

Sub Off_button()
Worksheets(1).Shapes("button").Select

With Selection
.ShapeRange.IncrementRotation -90
ActiveSheet.Shapes.Range(Array("Araclar")).Visible = msoFalse
End With

Worksheets(1).Shapes("button").OnAction = "on_button"
Range("A14").Select