Belirli Sütunları Tek Butonla Gizleme ve Gösterme

  • Konuyu başlatan Konuyu başlatan okan32
  • Başlangıç tarihi Başlangıç tarihi

okan32

Kullanıcı
Katkı: %0
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Tek butonla C-E-G-H-K-L sütunlarını gizlemek ve göstermek istiyorum. Yardımlarınızı bekliyorum.
 
Tarihe göre sırala Oylamaya göre sırala
Sub goster()
Range("C:C,E:E,G:G,H:H,K:K,L:L").EntireColumn.Hidden = False
End Sub

Sub gizle()
Range("C:C,E:E,G:G,H:H,K:K,L:L").EntireColumn.Hidden = True
End Sub.
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "GÖSTER" Then
Call goster
CommandButton1.Caption = "GİZLE"
CommandButton1.BackColor = &HFFFFC0
Else
Call gizle
CommandButton1.Caption = "GÖSTER"
CommandButton1.BackColor = &HC0E0FF
End If
End Sub Bu şekilde çözdüm arkadaşlar
 
Oyla 0 Olumsuz oyla
Merhabalar.

Aşağıdaki kod satırı gizleme işini yapar.
Son kısımdaki True ibaresini False olarak değiştirirseniz sütunlar görünür.

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (1 satır). Giriş Yap

.
 
Oyla 0 Olumsuz oyla
Tekrar merhaba.

Gizle/Göster için, kendinizin yazdığı çözümü fark etmeden cevap yazmıştım.
Ancak, yazdığınız çözüme baktığımda, bir CommandButton 'un varlığı anlaşılıyor.

Ayrı ayrı goster/gizle makroları ve CommandButton_Click kodları yerine
aşağıdaki tek kod ile işlem yapılabilir.

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (10 satır). Giriş Yap

.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst