(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
17,H7:H17,K7:K13").Select
Selection.NumberFormat = "$#,##0.00_);($#,##0.00)"
Range("A1").Activate
Else
ToggleButton1.Caption = "Gizle"
Range("D717,H7:H17,K7:K13").Select
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.
