Shared Workbook

[cevatyildiz]

Merhaba,

Birçalışma kitabını açtıgımda içerisindeki her çalışma sayfasındaki autofilter ları <All> a çekecek ve I3 hanesinden bölmeleri donduracakç. Bunun için nasıl birseyler yazabiliriz?

Paylaşımda kullandıgımız bir dosyada en son kullanıcı nasıl dosyayı nasıl kaydedip çıktıysa başka bir kullanıcı o son ekranla karşılaşıyor bu da ufak bir sorun olarak karşımıza çıkıyor..

Tesekkurler,

 

[hamitcan]

Küçük bir dosya ekleyin.

 

[cevatyildiz]

Örnekte görüldüğü üzere 3 sayfa ve her birinde birçok autofilter var. Aynı zamanda I3 den itibaren sütun-satırlar dondurulmuş...

 

[hamitcan]

ThisWorkbook kısmına ekleyin.

Private Sub Workbook_Open()
    For Each sht In Worksheets
     If sht.AutoFilterMode Then sht.[b2].AutoFilter
    Next
End Sub

 

[cevatyildiz]

Tesekkurler, peki Freeze Panes için bir komut var mı?

Tesekkurler,

 

[hamitcan]

Tesekkurler, peki Freeze Panes için bir komut var mı?

Tesekkurler,

Zaten bu şekilde kalmasını istemiyor muydunuz ?

 

[cevatyildiz]

farklı kullanıcılar paylaşımda olan dosyayı açtıklarında freeze panes bozuluyor. O yüzden dosya her açıldıgında tüm sayfalarda standart olarak I3 alanından dondurma gerekliliği doguyor.

Range("I3").Select
ActiveWindow.FreezePanes = True


Bunu workbook kısmında nasıl yazabiliriz?

 

[hamitcan]

Private Sub Workbook_Open()
    For Each sht In Worksheets
     If sht.AutoFilterMode Then sht.[b2].AutoFilter
    Next
    On Error Resume Next
    ActiveWindow.FreezePanes = False
    [i3].Select
    ActiveWindow.FreezePanes = True
End Sub

şeklinde deneyin.

 

[cevatyildiz]

Sadece ilk açtıgım sayfada i3 den itibaren donduruyor. Ben çalışma kitabını açtıgımda tüm sayfalarda dondursun istiyorum. Ayrıca gözümden kaçmış : Autofilter tamamıyla kalkıyor. Ben autofilter özelliğinin kalkmamasını sadece <All> olmasını istiyorum.

Tesekkurler

 

[hamitcan]

Private Sub Workbook_Open()
    On Error Resume Next
    For Each sht In Worksheets
        If sht.AutoFilterMode Then sht.ShowAllData
        sht.Activate
        ActiveWindow.FreezePanes = False
        [i3].Select
        ActiveWindow.FreezePanes = True
    Next
End Sub

 

[cevatyildiz]

harika oldu elinize sağlık