Hücre içindeki veriyi gizleyebilir miyiz?

[Elantra]

Merhaba,

Buton yardımı ile bir hücredeki veriyi gizleyip tekrar gösterebilir miyiz acaba? veya hücre içerisindeki yazıyı beyaz hale getirip tekrar renkli hale getirerek butona tıklayarak gizle/göster yapabilir miyiz?

 

[hasankardas]

Merhaba Sayfa1 de A1 hücresine göre beyaz renk ve siyah renk yapıyor

Sub Düğme2_Tıkla()

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sayfa1")

If ws.Range("A1").Font.Color = RGB(255, 255, 255) Then

ws.Range("A1").Font.Color = RGB(0, 0, 0)

Else

ws.Range("A1").Font.Color = RGB(255, 255, 255)

End If

End Sub

 

[Elantra]

Hasan Bey,

Çok teşekkür ederim, zahmet verdim.

 

[hasankardas]

Hasan Bey,

Çok teşekkür ederim, zahmet verdim.

Rica ederim.Estğfirullan ne demek

 

[Trilenium]

Alternatif olarak o hücreyi seçip ;;; yazarsanız da gizlemiş gibi olursunuz

 

[Elantra]

Peki, hücreyi kilitleyip sayfa koruması koyduğum zaman kod çalışmıyor bu durumda yapabileceğimiz birşey var mı acaba?

 

[Korhan Ayhan]

Peki, hücreyi kilitleyip sayfa koruması koyduğum zaman kod çalışmıyor bu durumda yapabileceğimiz birşey var mı acaba?

Bu normal bir durumdur.

Linkteki çözümleri deneyebilirsiniz.

Arama Sonuçları

 

[Elantra]

Korhan bey,

Çok teşekkür ederim. Verdiğiniz linkte çözümü buldum.

Saygılarımla.