Sayfa Kırpma

[hailsatan]

Hali hazırda bir tablom var‚ ve bunu gerektiğinde başkalarıyla paylaşıyorum. Öyle bir şey istiyorum ki‚ gönderdiğim kişi excel dosyasını açtığında sadece tablonun bulunduğu satırlar ve sütunlar gözüksün. Sayfanın geri kalanı gözükmesin. Excel sayfasını kırpmak gibi düşünün.

Nasıl yapabilirim? Şimdiden teşekkürler.

 

[tamer060]

araç çubuklarını gizlemek istiyorsan
ARAÇ ÇUBUKLARININ TAMAMINI GİZLE
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
Application.ScreenUpdating = True
End Sub
'ARAÇ ÇUBUKLARININ TAMAMINI GÃ?STER
Private Sub CommandButton2_Click()
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next i
End Sub

 

[tamer060]

eğer sayfa1 kalsın diğer tüm sayfalar gizlensin istiyorsanız o zamanda
1.Sayfa hariç tüm sayfaları gizle
Sub xlVeryHidden_All_Sheets()
On Error Resume Next
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = xlVeryHidden
Next
End Sub

 

[hailsatan]

araç çubuklarını gizlemek istiyorsan
ARAÇ ÇUBUKLARININ TAMAMINI GİZLE
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = False
Next i
Application.ScreenUpdating = True
End Sub
'ARAÇ ÇUBUKLARININ TAMAMINI GÃ?STER
Private Sub CommandButton2_Click()
For i = 1 To Application.CommandBars.Count
Application.CommandBars(i).Enabled = True
Next i
End Sub

Şunu demeye çalışıyorum. Mesela sayfam Sayfa1, tablomda bu sayfada F5:J28 hücreleri arasında olsun. Ben bunu öyle bir kaydetmeliyim ki, bu kayıtlı excel dosyasını açan kişi sadece F5:J28' i görüntülemeli sayfanın geri kalan hücreleri(satır ve sütunlar) katiyen görünmemeli.

 

[tamer060]

boş olan tüm satır ve sutunları gizler

Sub HideRowsandColumns()
Dim LastRow As Object
Dim LastColumn As Object

Set LastRow = Range(Range("A65536"), Range("A65536").End(xlUp).Offset(1, 0))
Set LastColumn = Range(Range("IV1"), Range("IV1").End(xlToLeft).Offset(0, 1))

LastRow.EntireRow.Hidden = True
LastColumn.EntireColumn.Hidden = True

End Sub

 

[hailsatan]

boş olan tüm satır ve sutunları gizler

Sub HideRowsandColumns()
Dim LastRow As Object
Dim LastColumn As Object

Set LastRow = Range(Range("A65536"), Range("A65536").End(xlUp).Offset(1, 0))
Set LastColumn = Range(Range("IV1"), Range("IV1").End(xlToLeft).Offset(0, 1))

LastRow.EntireRow.Hidden = True
LastColumn.EntireColumn.Hidden = True

End Sub

İstediğime yakın bir cevap bu oldu teşekkür ederim. Yalnız Excel versiyonum 2010 son sütun olarak ne girmem gerek, satırı hallettim.

 

[tamer060]

bu kod ile boş olan tüm satır ve sutunlar gizlenir sayın hailsatan isteğe bağlı satır sütunları gözükmemesini istiyor iseniz diğer bir yol veri kısmından guruplandırı seçmektir bu işlemi yapmak için ise gözükmesini istemediğiniz sutunları mausun sol tuşuna basılı tutarak seçiyorsunuz (hücre içinde) veri kısmından gruplandıra tıklayın çıkan ekranda sütunlar kısmını seçin.

 

[tamer060]

http://www.excel.web.tr/f48/makro-yazarak-sutun-gizleme-butonu-t102990.html bu link çok işine yarıyacak incele.

 

[hailsatan]

bu kod ile boş olan tüm satır ve sutunlar gizlenir sayın hailsatan isteğe bağlı satır sütunları gözükmemesini istiyor iseniz diğer bir yol veri kısmından guruplandırı seçmektir bu işlemi yapmak için ise gözükmesini istemediğiniz sutunları mausun sol tuşuna basılı tutarak seçiyorsunuz (hücre içinde) veri kısmından gruplandıra tıklayın çıkan ekranda sütunlar kısmını seçin.

A1' den başlayınca tablom güzel şekilde tablonun dışındaki boş sütun ve satırlar gizleniyor fakat tablo sayfa ortasındayken de bu kod makroyu çalıştırdığımda tabloyu da siliyor sadece A1 kalıyor. Sorun nerede acaba?

 

[tamer060]

Set LastRow = Range(Range("A65536"), Range("A65536").End(xlUp).Offset(3, 0))
Set LastColumn = Range(Range("IV1"), Range("IV1").End(xlToLeft).Offset(0, 3))

EN SONDAKİ 3 DEĞERLERİNİ değiştirerek ayarlıyabilirsin 3 satırdan sonrasını gizler 3 sütundan sonrasını gizler sende tablona göre bu değerleri değiştir