CommandButton, Transparent

[1Al2Ver]

Merhaba,

Aşağıda, sayfanın kodundaki CommandButton2,

Eğer, Application.StatusBar = "Admin" ise ;

4 ve 5 nolu UserForm'ları kapatıp, 1 nolu UserForm'u açıyor,

İsteğim,

Bunları yaparken, aynı sayfada mevcut, CommandButton1 ve CommandButton3' ü, şeffaf yani transparent yapması.

Private Sub CommandButton2_Click()
If Application.StatusBar = "Admin" Then
Unload UserForm4
Unload UserForm5
UserForm1.Show
Sheets("ANASAYFA").[B10] = Application.StatusBar
End If
End Sub

Teşekkür ederim.

 

[Korhan Ayhan]

Kendinize uyarlayınız.

Private Sub CommandButton2_Click()
    With Sheets("Sheet1")
        .CommandButton1.BackStyle = fmBackStyleTransparent
        .CommandButton3.BackStyle = fmBackStyleTransparent
    End With
End Sub

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba,

İlginiz ve çözüm için teşekkür ederim.

Saygılarımla.