Tüm dosyada "seçenekler,görünüm,sıfır değerleri

[aydgur]

Seçenekler,Görünüm menüsünde "sıfır değerleri " bölümünün boş bırakmak için (yani excel dosyamda sıfırlar gözükmeyecek) makro yada başka bir yolla bir kerede yapabilirmiyim?

 

[Ayhan Ercan]

ThisWorkbook' a aşağıdaki koda yazın

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayZeros = False
End Sub

her açtığınız sayfada "sıfır değerleri" gözükmeyecektir.

 

[aydgur]

Çok teşekkür ederim.Peki sizi yormayacaksam:dosyamın her sayfasında A7 sütununda itibaren BÖLMELERİ DONDUR yapılabilirmi ,çünkü dosyam 150 sayfa

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Workbook_Open()
Dim I As Integer
For I = 1 To Sheets.Count
Sheets(I).Select
[A7].Select
ActiveWindow.FreezePanes = True
Next
End Sub

 

[aydgur]

Teşekkür ederim.Peki bu kodu nereye yazayım

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Düğme1_Tıklat()
For s = 1 To Sheets.Count
Sheets(s).Select
[a7].Select
ActiveWindow.FreezePanes = 1
Next
End Sub

 

[aydgur]

Teşekkür ederim,herhalde sayfa adlarımdan birini adı T_722 olduğu için Worksheetin select yöntemi başarısız diyor,ne yapabilirim?

 

[Ayhan Ercan]

syaın aydgur;
"Worksheetin select yöntemi başarısız"....

siz worksheetin select olayına bişey yazmayın.

1.Sayın Seyit hocamın yazdığı kodu bir düğmeye atayabilirsiniz,
2.Sayın N.Ziya hocamın yazdığı kodu modül ekleyerek,
3.veya ilk mesajımda da belirttiğim gibi This Workbook'a :

[B][COLOR=royalblue]Private Sub Workbook_SheetActivate(ByVal Sh As Object)[/COLOR][/B]
[A7].Select
ActiveWindow.FreezePanes = True
End Sub

mavi yazılı yere dikkat edin, workbook_sheetactivate olayı..

 

[aydgur]

Hepinize teşekkürler ! Eğer kodları işim bitince silersem geri dönüş olmaz değilmi ?

 

[aydgur]

Günaydın!
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayZeros = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[A7].Select
ActiveWindow.FreezePanes = True
End Sub Bu iki kodun ikisi birden ThisWorkbook' ayazılınca hata veriyor.İkisini birden ThisWorkbook'ta nasıl kullanabilirim?

 

[Ayhan Ercan]

Günaydın!
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayZeros = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[A7].Select
ActiveWindow.FreezePanes = True
End Sub Bu iki kodun ikisi birden ThisWorkbook' ayazılınca hata veriyor.İkisini birden ThisWorkbook'ta nasıl kullanabilirim?

iki kodu ayrı ayrı değil tek bir prosedurun içine yazın, aşağıdaki örnekler gibi..

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[A7].Select
ActiveWindow.FreezePanes = True
ActiveWindow.DisplayZeros = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
[A7].Select
With ActiveWindow
    .FreezePanes = True
    .DisplayZeros = False
End With
End Sub

 

[aydgur]

Teşekkür ederim.... peki 1.kodda örneğin T_722 sayfası hariç olsun istersem nasıl eklenebilir