Gizli Buton

[vasifokur]

Ekil sayfada A6 hücresine göre aktif olan Commandbuton var. Ben bunu Düğmeye atamak istiyorum ama becerenmedim. Yardım ederseniz sevinirim.

 

[Seyit Tiken]

Dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [a6] = 1968 Then Sheets(1).Shapes("Button 1").Visible = 1
If Not [a6] = 1968 Then Shapes("Button 1").Visible = 0
End Sub

 

[vasifokur]

Seyit Bey ; size teşekkür ederim.

 

[vasifokur]

Sn Seyit Bey; ben bu kodu başka bir sayfada uygularken hata veriyor. Neden olabilir ?

 

[mesuttasar]

Sn Seyit Bey; ben bu kodu başka bir sayfada uygularken hata veriyor. Neden olabilir ?

Kod içerisindeki sayfa numarasından olabilir.Hangi sayfada kullanacaksanız o sayfanın adını yazmanız gerekir.Kırmızı renkli yazan yeri de değiştirmeniz lazım.

[LEFT]Private Sub Worksheet_Change(ByVal Target As Range)
If [a6] = 1968 Then [COLOR=red][B]Sheets(1)[/B][/COLOR].Shapes("Button 1").Visible = 1
If Not [a6] = 1968 Then Shapes("Button 1").Visible = 0
End Sub[/LEFT]