• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

proğramın bilgisayarı kasma sorunu

  • Konbuyu başlatan Konbuyu başlatan rotakat
  • Başlangıç tarihi Başlangıç tarihi
Katılım
3 Mayıs 2008
Mesajlar
53
Excel Vers. ve Dili
xp
Öncelikle burada bize yardımcı olan emeği geçen herkese teşekkür ederim. Bu siteden öğrendiğim kadarı ile ekli dosyadaki gibi müşteri hesabı ve depo takip proğramı yaptım. bana göre ağırlıklı formüller satış, toplam ve ana sayfalarda bulunuyor. bilgisayarı çok kasıyor ve kilitliyor. tabi bilgisayarın performansından da kaynaklanabilir. işlemleri uzun sürede yapıyor. bu formüllerin kasmayacak formulü varmıdır? halen kullandığım yine verileri tek sayfada toplayan her müşteri için ayrı sayfalar olan proğram var (225 sayfa (3x75 sayfa)) o bu kadar kasmıyor.
 

Ekli dosyalar

Öncelikle burada bize yardımcı olan emeği geçen herkese teşekkür ederim. Bu siteden öğrendiğim kadarı ile ekli dosyadaki gibi müşteri hesabı ve depo takip proğramı yaptım. bana göre ağırlıklı formüller satış, toplam ve ana sayfalarda bulunuyor. bilgisayarı çok kasıyor ve kilitliyor. tabi bilgisayarın performansından da kaynaklanabilir. işlemleri uzun sürede yapıyor. bu formüllerin kasmayacak formulü varmıdır? halen kullandığım yine verileri tek sayfada toplayan her müşteri için ayrı sayfalar olan proğram var (225 sayfa (3x75 sayfa)) o bu kadar kasmıyor.

Dosyanızda aslında çalışmayı kasacak bir formül yok sadece ETOPLA kullanmışsınız o da bahsettiğiniz kasmayı yapmaz, ancak sayfaları gereksiz yere en sonuna kadar uzatmışsınız SATIŞ sayfasındaki formüller ANA SAYFA da 2500. satura kadar çalışırken ANA SAYFA 65536 Satırıda kullanıyor.
Tavsiyem gereksiz satırları silin ihtiyacınız oldukça ilave edersiniz, boyamaları kaldırın.
Aşağıdaki kodu bir modülde çalıştırarak silmiş olduğunuz satırlardaki kullanılmış hücreleride temizleyerek dosya boyutunuzu düşürün. Böyle bir dosyanın max. boyutunun 500-600 KB geçmeyeceğini düşünüyorum.

Sub UsedRangeTemizle()
a = Application.ActiveSheet.UsedRange
End Sub

Kolay Gelsin
 
Dosyanızda aslında çalışmayı kasacak bir formül yok sadece ETOPLA kullanmışsınız o da bahsettiğiniz kasmayı yapmaz, ancak sayfaları gereksiz yere en sonuna kadar uzatmışsınız SATIŞ sayfasındaki formüller ANA SAYFA da 2500. satura kadar çalışırken ANA SAYFA 65536 Satırıda kullanıyor.
Tavsiyem gereksiz satırları silin ihtiyacınız oldukça ilave edersiniz, boyamaları kaldırın.
Aşağıdaki kodu bir modülde çalıştırarak silmiş olduğunuz satırlardaki kullanılmış hücreleride temizleyerek dosya boyutunuzu düşürün. Böyle bir dosyanın max. boyutunun 500-600 KB geçmeyeceğini düşünüyorum.

Sub UsedRangeTemizle()
a = Application.ActiveSheet.UsedRange
End Sub

Kolay Gelsin

teşekkürler
 
Geri
Üst