Satır ve Sütun Başlıklarının Otomatik kaldırılması

[EKREM1661]

Arkadaşlar..!

Excel dosyası her açılışında; Eğer her hangi bir sayfada, görünürde olan satır ve sütun başlıkları varsa kaldırsın.. nasıl yaparız..

 

[Ömer]

Merhaba,

ThisWorkbook sayfasına kopyalayınız...

Private Sub Workbook_Open()

Dim i As Integer
 
Application.ScreenUpdating = False
    For i = 1 To Worksheets.Count
        Sheets(i).Select
            ActiveWindow.DisplayHeadings = False
    Next i
Application.ScreenUpdating = True

End Sub

.

 

[EKREM1661]

Ömer bey..çok teşekkür ediyorum.. zahmet vermiş olmazsam, farklı bir yönünü de sorsam..
şöyleki; çrneğin, sadece Sayfa1' i bu uygulamanın dışında bırakmak istersek nasıl olur.

 

[Ömer]

Bu şekilde deneyiniz...

Private Sub Workbook_Open()
 
Dim i As Integer
 
Application.ScreenUpdating = False
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> "Sayfa1" Then
                .Select
                ActiveWindow.DisplayHeadings = False
            End If
        End With
    Next i
Application.ScreenUpdating = True
 
End Sub

.

 

[EKREM1661]

Hocam tekrar, tekrar teşekkür ediyorum.. hoşça kalınız..

 

[Ömer]

Rica ederim, güle güle kullanın...