Bölmeleri dondur kod ile yazılması

[Ahmet Sami]

İyi günler, excel de ANASAYFA adında bir sayfam var. ANASAYFA nın Bölmeleri dondur seçeneğinden ziyade kod ile yazılarak hareket etmemesi yoksa bölmeleri dondur seçeneğinden kaldırmak usulü ile kaldırıldığı zaman istediğim bir ana sayfa olmuyor. Örnek olarak A1:Y100 arası sabit kalmalı hiç bir şekilde iptal edilmemeli.

 

[ÖmerFaruk]

Aşağıdaki şekilde işiniz görülüyor mu bir deneyin.
Ben A1:M9 dondurmak için N10 hücresini seçtim, siz ilgili adresi değiştirebilirsiniz.
Değiştirmek için <>9 ve <>12 ifadelerinde satır ve kolon numaralarını ve Range("N10") başvurusunu değiştireceksiniz.

Private Sub Worksheet_Activate()
If ActiveWindow.SplitRow <> 9 Or ActiveWindow.SplitColumn <> 12 Then Call FreezePaneAyarla
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveWindow.SplitRow <> 9 Or ActiveWindow.SplitColumn <> 12 Then Call FreezePaneAyarla
End Sub
Sub FreezePaneAyarla()
    ActiveWindow.FreezePanes = False
    ActiveWindow.SplitRow = Range("N10").Row - 1
    ActiveWindow.SplitColumn = Range("N10").Column - 1
    ActiveWindow.FreezePanes = True
End Sub

 

[Seyit Tiken]

Makro Kaydet ile yapabilirdiniz.

Sub dondur()
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
End Sub

 

[Ahmet Sami]

Ömer bey teşekkür ederim ama olmadı.

 

[Ahmet Sami]

Seyit bey otomatik olarak kilitlemesi gerekiyor yani sürekli kilitli kalması gerekiyor. Üstelik sizin kodunuz aşağı gitmiyor ama sağa ve sola hareket ediyor. Birde sadece birinci satırı kilitliyor.

 

[Seyit Tiken]

Bu kod satır ve sütunu sabit yapıyor, sürekli sabit olması için uygun olayları deneyiniz.

Private Sub Worksheet_Activate()
ActiveWindow.SplitColumn = 25
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
End Sub
Private Sub Worksheet_Deactivate()
ActiveWindow.SplitColumn = 25
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.SplitColumn = 25
ActiveWindow.SplitRow = 1
ActiveWindow.FreezePanes = True
End Sub

 

[Ahmet Sami]

Seyit Bey örnek dosya gönderdim. Sarı alanın sabit kalması lazım burdan yardımcı olursanız sevinirim

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

 

[Ahmet Sami]

Teşekkür ederim Seyit Bey sizi uğraştırdım. Emeğinize sağlık sağolun.