Hücre İçeriği Gizleme (toogle Button İle) Ve Zaman Damgası

Merhaba,

İki sorum olacak.
Birincisi bir togle button ile belirli hücrelerin içeriğini gizleyip açmak istiyorum. Mesela A2 D4 E5 E6 E7 F10 hücreleri gibi.

İkinci sorum ise belirli hücrelerde yaptığım bir değişiklik olursa (A1:F100 arası mesela) H sütününda ki yan satırlarına değişiklik tarihini otomatik olarak yazsın.

Teşekkür ederim.

emin değilim ama bildiğim kadarıyla tek bir hücreyi gizleyemiyorsunuz. yazı rengini beyaz yapabilirsiniz yada aşağıdaki bağlantıda yer alan adımları izleyerek boş görünmesini sağlayabilirsiniz ama gerçek manada gizlemiyor bu yöntemler, hücreye gelince yukarıdaki formül çubuğunda görebiliyorsunuz içeriğini.
https://support.office.com/en-us/article...5cd9f05c33

(05/06/2019, 00:04)nightashes yazdı: İkinci sorum ise belirli hücrelerde yaptığım bir değişiklik olursa (A1:F100 arası mesela) H sütününda ki yan satırlarına değişiklik tarihini otomatik olarak yazsın.

sayfanın modülüne aşağıdaki kodu yazıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range) 'Excel Vba with more cells in the range.

    Dim KeyCells As Range



    ' The variable KeyCells contains the cells that will

    ' cause an alert when they are changed.

    Set KeyCells = Range("A1:f100")

    

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

        Range("H" & Target.Row).Value = Date & " - " & Time

    End If

End Sub

aslında 1 hilesi var gibi ama biraz uğraştırır. eğer  gizleyeceğiniz hücrenin içeriği değişmeyecekse;
1 - belirttiğiniz sayfadaki tüm hücrelerin "gizli/hidden"  ve "kilitli/locked" özelliğini devre dışı bırakın
2 - gizleyeceğiniz hücrelerin "gizli/hidden"  ve "kilitli/locked" özelliğini etkinleştirin
3 - gizleyeceğiniz hücrelerin yazı rengini beyaz yapın
4 - sayfayı şifre korumalı yapın ama 3 özelliğini devredışı bırakın

5 - sayfaya bir buton ekleyip, butonun resim yazısını "Gizle" yapın
6 - butonun tıklama kodu;

Private Sub CommandButton1_Click()

If CommandButton1.Caption = "gizle" Then

    CommandButton1.Caption = "göster"

    Range("a3").Font.Color = RGB(255, 255, 255)

    'diğer hücreleri için aynı kod

Else

    CommandButton1.Caption = "gizle"

    Range("a3").Font.Color = RGB(0, 0, 0)

    'diğer hücreleri için aynı kod

End If

End Sub

dilerim işinize yarar

(05/06/2019, 00:39)haliliyas yazdı: emin değilim ama bildiğim kadarıyla tek bir hücreyi gizleyemiyorsunuz. yazı rengini beyaz yapabilirsiniz yada aşağıdaki bağlantıda yer alan adımları izleyerek boş görünmesini sağlayabilirsiniz ama gerçek manada gizlemiyor bu yöntemler, hücreye gelince yukarıdaki formül çubuğunda görebiliyorsunuz içeriğini.
https://support.office.com/en-us/article...5cd9f05c33

(05/06/2019, 00:04)nightashes yazdı: İkinci sorum ise belirli hücrelerde yaptığım bir değişiklik olursa (A1:F100 arası mesela) H sütününda ki yan satırlarına değişiklik tarihini otomatik olarak yazsın.

sayfanın modülüne  aşağıdaki kodu yazıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range) 'Excel Vba with more cells in the range.

    Dim KeyCells As Range



    ' The variable KeyCells contains the cells that will

    ' cause an alert when they are changed.

    Set KeyCells = Range("A1:f100")

    

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

        Range("H" & Target.Row).Value = Date & " - " & Time

    End If

End Sub

Tekrar merhaba. Cevabınız için teşekkürler. Yazdığınız kod tam istediğim gibi oldu çok teşekkürler.

haliliyas a da çok teşekkür ederim cevabından ötürü. Fakat renklere girdim mi işin içinden çıkamam zira baya bir renkli sayfa oldu her hücre farklı renkte desem yeridir
Diğer öneriniz için evet hücre biçimini değiştirip ;;; şeklinde custom yapınca içeriği istediğim gibi gizledi.
Biraz uğraşınca şu şekilde bir şey yaptım ve istediğim gibi oldu.

Private Sub ToggleButton1_Click()

   If ToggleButton1.Value = True Then

      ToggleButton1.Caption = "Göster"

        Range("D7
        Selection.NumberFormat = "$#,##0.00_);($#,##0.00)"

        Range("A1").Activate

   Else

      ToggleButton1.Caption = "Gizle"

        Range("D7
        Selection.NumberFormat = ";;;"

        Range("A1").Activate

   End If

End Sub

Sorunlarım bu iki kod ile çözülmüş oldu. Yardım ve emeği geçen herkese teşekkür ederim.

önemli değil
iyi çalışmalar)