İsteğe Bağlı Olarak Görülen-Gizlenen Rakamlar

[1Al2Ver]

Öncelikle online arkadaşlarıma hayırlı akşamlar diliyorum,

Olabiliyor ise ; Ek'li dosyada, "J" kolonunda mevcut sayıları bir buton yardımı ile gizlemek ve yine bir buton yardımı ile görmek istemekteyim,

Diğer bir deyişle,

Hücreleri koyu bir renk ile boyadıktan sonra, tuşlanan butonlar yardımıyla hücrede mevcut sayıların açık renk alarak görülmesini ve bu hücrelerin yine bir buton yardımıyla eski haline ( koyu zeminde görülmemesini) dönmesini arzu etmekteyim,

Teşekkür ederim, saygılarımla.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub GIZLE()
[J12:J5000].Interior.ColorIndex = 1
[J12:J5000].Font.ColorIndex = 1
End Sub
Sub GOSTER()
[J12:J5000].Interior.ColorIndex = 1
[J12:J5000].Font.ColorIndex = 6
End Sub

 

[Seyit Tiken]

Şu şekilde de kullanabilirsiniz.

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
ToggleButton1.Caption = "Göster"
Range("J12:J52").NumberFormat = ";#,##0.00;"
Else
ToggleButton1.Caption = "Gizle"
Range("J12:J52").NumberFormat = "#,##0.00;"
End If
End Sub

 

[1Al2Ver]

Sub GIZLE()
[J12:J5000].Interior.ColorIndex = 1
[J12:J5000].Font.ColorIndex = 1
End Sub
Sub GOSTER()
[J12:J5000].Interior.ColorIndex = 1
[J12:J5000].Font.ColorIndex = 6
End Sub

Sayın N.Ziya Hiçdurmaz, çok ama çok teşekkür ederim, zahmetlerinizi nasıl öderim bilemiyorum, sağolun, varolun, saygılar sunarım.

 

[1Al2Ver]

Şu şekilde de kullanabilirsiniz.

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
ToggleButton1.Caption = "Göster"
Range("J12:J52").NumberFormat = ";#,##0.00;"
Else
ToggleButton1.Caption = "Gizle"
Range("J12:J52").NumberFormat = "#,##0.00;"
End If
End Sub

Sayın Seyit Tiken, değişik bir çözüm olmuş, çok çok sağolun, emeğiniz için sonsuz teşekkür ederim, sizin de hakkınızı ödeyemem, lütfen saygılarımı kabul edin, saygılarımla.