Özet Tablo Ayrinti Gİzle-gÖster

[ANTALYA 01]

Merhabalar

Özet Tabloda Ayrıntı Gizle-Ayrıntı Göster Makroyla nasıl yapılır.

Kod örneği verebilirmisiniz.İstedğim Hücreyi seçeceğim Ayrıntı Gizle diyecem gizleyecek Ayrıntı göster butonuna basacağım ayrıntıları gösterecek.

 

[b_m_k]

Sn. ANTALYA 01 örnek bir dosya gönderebilir misiniz?
Özet tabloları mı gizlemek istiyorsunuz yoksa çalıştınızı sayfadan buton ile özet tablo sayfalarına mı erişmek isitorsunuz onu anlayamadım ?

 

[ANTALYA 01]

F

Bir örnek ektedir.Açıklama çalışma sayfasındadır.

 

[Merhum İdris SERDAR]

Dosyanız ekte.

 

[ANTALYA 01]

S

Teşekkür ederim.

 

[ANTALYA 01]

Private Sub CheckBox1_Click()
CheckBox1.Caption = IIf(CheckBox1.Value, "SAYFA GİZLE", "SAYFA GÖSTER")
If CheckBox1 = True Then 'tıklı ise
sifregir:
sifre = InputBox("Şifreyi Giriniz")
If sifre = "123" Then
Sheets("Sayfa1").Visible = True
End If
If sifre <> "123" Then
MsgBox ("Şifre Yanlış Girilmiştir, Tekrar Deneyiniz")
GoTo sifregir
End If
Else 'değil ise
Sheets("Sayfa1").Visible = xlVeryHidden
End If
End Sub

Option Explicit


Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
Macro1
ToggleButton1.Caption = "GÖSTER / GİZLE"
Else
Macro2
End If
End Sub

Çalışma sayfasında bu şekilde kopyaladım bir checkbox var çalışma sayfasında
compile error;Ambiguous name detected;Makro 2 Hatası veriyor.
Bu hata bu dosyada değil kodları uyarladığım çalışmada veriyor.

Toggle Button1 Olmadan Sadece Makroyla mümkün değilmi bu isteğim Bir tuş yapayım AYRINTI GİZLE Bir tuş AYRINTI GÖSTER Module Yapıştırayım çalışsın.

Aşağıdaki Makro istediğim gibi nasıl olur

Sub Macro1()
Range("A4").Select
ActiveSheet.PivotTables("PivotTable1").InnerDetail = "Value"
Selection.ShowDetail = True
End Sub
Sub Macro2()
Selection.ShowDetail = False
End Sub

 

[Merhum İdris SERDAR]

Ekteki dosyayı inceleyin.

Macroların adını da değiştirdim. Bu kez çakışma olmayacak.