ÇALIŞMA SAYFASINDA BUTON İLE TABLO GÖRÜNTÜLEME

[birkankok]

Herkese merhaba arkadaşlar,
Çalışma sayfasına buton ekleyip butona makro atayarak sayfada varolan tabloyu gösterip başka butonla da gizlemek istiyorum. Buradaki makro kodu nedir?
Yardımlarınız için şimdiden teşekkür ederim.

 

[ÖmerFaruk]

Tablodan kastınız
sayfa mıdır?
sayfa içerisinde kullandığınız alan mıdır?
sayfa içinde Tablo olarak oluşturduğunuz Object midir?

 

[birkankok]

Tablodan kastınız
sayfa mıdır?
sayfa içerisinde kullandığınız alan mıdır?
sayfa içinde Tablo olarak oluşturduğunuz Object midir?

Ömer Bey, cevabınız için teşekkürlerimi sunarım.
Sayfa içerisinde hazırlayacağım farklı tablolardır. Her bir tablo için ayrı buton tanımlayabilir miyim? Row aralığı olarak değil de tablo ismi olarak (Örn. Tablo1, Tablo2..) Bu mümkün müdür?

 

[ÖmerFaruk]

Sanırım bunlar faydalı olacaktır

Sub TabloGizle()
ActiveSheet.ListObjects("Tablo1").DataBodyRange.Rows.Hidden = True
ActiveSheet.ListObjects("Tablo1").HeaderRowRange.Rows.Hidden = True
End Sub

Sub TabloGoster()
ActiveSheet.ListObjects("Tablo1").DataBodyRange.Rows.Hidden = False
ActiveSheet.ListObjects("Tablo1").HeaderRowRange.Rows.Hidden = False
End Sub

 

[birkankok]

Sanırım bunlar faydalı olacaktır

Sub TabloGizle()
ActiveSheet.ListObjects("Tablo1").DataBodyRange.Rows.Hidden = True
ActiveSheet.ListObjects("Tablo1").HeaderRowRange.Rows.Hidden = True
End Sub

Sub TabloGoster()
ActiveSheet.ListObjects("Tablo1").DataBodyRange.Rows.Hidden = False
ActiveSheet.ListObjects("Tablo1").HeaderRowRange.Rows.Hidden = False
End Sub

Ömer Bey,
Kod çalıştı. Emeklerinize teşekkür ederim. İyi çalışmalar

 

[birkankok]

Ömer bey bir sorum daha olacak,
Peki tablonun yeri farklı sütun aralığında, ben göster butonuna tıklayınca başka bir yerde gösterirmi ?
Örneğin: Tablonun sol en üst köşesi C4 te, tabloyu gizle dedim gizledi. Tabloyu göster butonuna bastığım zaman tablonun üst sol köşesini A4 te olacak şekilde gösterir mi ?

 

[ÖmerFaruk]

ActiveSheet.ListObjects("Tablo1").Range.Copy Range("A1")