Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
05/06/2019 00:04
Konu Sahibi
nightashes
Yorumlar
4
Okunma
225
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
nightashes

nightashes

Aktif Üye
78791
Se.... Be.... AY....
 33
 38
 146
 30/12/2015
11
 Sakarya
 İnşaat Yük. Müh.
 Ofis 2013 32 Bit
 19/06/2019,13:01
Çözüldü 
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.



Alıntı:Her şey bir fikirle başlar.

halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,13:41
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 Adlı Kullanıcıdan Alıntı: İ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?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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



...........
halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,13:41
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
[Resim: do.php?thmb=9095]
5 - sayfaya bir buton ekleyip, butonun resim yazısını "Gizle" yapın
6 - butonun tıklama kodu;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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



nightashes

nightashes

Aktif Üye
78791
Se.... Be.... AY....
 33
 38
 146
 30/12/2015
11
 Sakarya
 İnşaat Yük. Müh.
 Ofis 2013 32 Bit
 19/06/2019,13:01
(05/06/2019 00:39)haliliyas Adlı Kullanıcıdan Alıntı: 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 Adlı Kullanıcıdan Alıntı: İ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?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
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 Img-grin

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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ToggleButton1_Click()
   If ToggleButton1.Value = True Then
      ToggleButton1.Caption = "Göster"
        Range("D7:D17,H7:H17,K7:K13").Select
        Selection.NumberFormat = "$#,##0.00_);($#,##0.00)"
        Range("A1").Activate
   Else
      ToggleButton1.Caption = "Gizle"
        Range("D7:D17,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.



Alıntı:Her şey bir fikirle başlar.

...........
halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,13:41
önemli değil
iyi çalışmalar)




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Birleştirilmiş Hücrede Satır Gizleme snrkrmz 3 281 14/06/2019, 11:56
Son Yorum: halily
Çözüldü Hafta Sonu Hücre Rengi omurozkan 9 11.983 18/11/2018, 23:54
Son Yorum: Mesut_Excel
Çözüldü Kullanılmayan Satır-Sütun Gizleme ozkovlu29 6 1.360 21/02/2017, 11:39
Son Yorum: atoz112
Çözüldü VBA Excel'de Instr ile belirli hücre değerleri haricindekiler varsa işlem yapma balkan85 7 2.369 07/10/2016, 14:56
Son Yorum: balkan85
Çözüldü Ödeme durumuna göre Hücre renklendirme (Koşullu Biçimlendirme) omerozel25 8 2.053 20/08/2016, 18:11
Son Yorum: atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.