Dosyayı açarken filtrelerin kaldırılması

[hayatbilgisayar]

Şirkette 4 kullanıcının baktığı bir Excel dosyamız var. Dosyayı ben değiştiriyorum, diğer kullanıcılar ağdan salt-okunur olarak açıyorlar. Dosyada 6 sütunda otomatik filtre var, ve ben bu filtreleri sürekli olarak kullanıyorum, dolayısı ile filtreleme yapıp, dosyada değişiklik yapıp, sonra kaydediyorum. Bu şekilde ağda bir kullanıcı açtığı zaman dosyayı filtreli olarak görüyor ve her seferinde filtreleri temizlemek zorunda kalıyorlar. Acaba dosyayı açarken tüm filtreleri temizle gibi bir kısayol varmı? Mesela ağdaki kullanıcının kısayolu \\Bilgisayar\dosyalar\onemli.xls ise \\Bilgisayar\dosyalar\onemli.xls /nofilter gibi bir kısayol varmıdır?

 

[Baggwell]

Merhaba

Sub Auto_Open()

    ActiveSheet.ShowAllData

End Sub

 

[hayatbilgisayar]

Teşekkür ederim Baggwell, ama bir sorunumuz daha var;
Dosyada herhangi bir filtreleme varsa dosyayı açarken tüm filtreleri kaldırıyor. Ama dosyada zaten tüm filtreler açıksa yani hiçbir filtreleme yoksa;
Run-time error '1004':
Worksheet sınıfının ShowAllData yöntemi başarısız
hatası veriyor. Kullanıcılar şok oldu Bu sefer de End'e basma zorunlulukları oldu. Bunun bir çözümü varmıdır acaba?

 

[Emir Hüseyin Çoban]

Teşekkür ederim Baggwell, ama bir sorunumuz daha var;
Dosyada herhangi bir filtreleme varsa dosyayı açarken tüm filtreleri kaldırıyor. Ama dosyada zaten tüm filtreler açıksa yani hiçbir filtreleme yoksa;
Run-time error '1004':
Worksheet sınıfının ShowAllData yöntemi başarısız
hatası veriyor. Kullanıcılar şok oldu Bu sefer de End'e basma zorunlulukları oldu. Bunun bir çözümü varmıdır acaba?

. . .

Şu şekilde deneyin.

Sub Auto_Open()
[COLOR="Blue"]on error resume next[/COLOR]
    ActiveSheet.ShowAllData
End Sub

. . .

 

[Baggwell]

Böylece sorun çözülür, kullanıcılar mutlulukla çalışabilir, excel web ailesine teşekkür ederiz

 

[hayatbilgisayar]

Evet, Hüseyin Bey size de çok çok teşekkür ederim, sağolunuz varolunuz.

 

[Korhan Ayhan]

Değerli arkadaşlar,

On Error Resume Next komutu hayat kurtarıcı gibi gözüksede bazen geri dönülmez sorunları karşınıza getirebilir. Bu sebeple bu komut yerine oluşan hataları yönetmeyi öğrenmenizde fayda görüyorum.

 

[hayatbilgisayar]

Korhan Bey korkuttunuz beni, ne yapmamı önerirsiniz?