- Katılım
- 6 Eylül 2004
- Mesajlar
- 239
- Excel Vers. ve Dili
- Excel 2013 Türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Activate()
If Cells(1, 1) = "" Then ActiveSheet.Shapes("Button 1").Visible = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Shapes("Button 1").Visible = True
If Target = Cells(1, 1) Then
If Target = "" Then ActiveSheet.Shapes("Button 1").Visible = False
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = "" Then
Shapes("Button 1").Visible = 0
Else
Shapes("Button 1").Visible = 1
End If
End Sub