Hazır hesaplanıyor

[mesutaygun70]

Kolay gelsin. Ben bir form yaptım excelde bazen textbox'a bazen hücreye veri girdiğimde sol alt köşede excel Hazır Hesaplanıyor şeklinde yazılar yazıyor ve sayfa kilitleniyor. Vba ve formüller kullanıyorum fakat dosya boyutum 300 kb civarında sürekli kilitleniyor. Yardımcı olabilirmisiniz

 

[turist]

Örnek excel dosyanızı,açıklamalarını da yazarak; GOOGLE DRIVE, YANDEX DISK, DOSYA.TC ,DOSYA.CO gibi dosya paylaşım sitelerine ekleyip linkini burada bildirirseniz yardım almanız daha kolay olur.

 

[Ömer BARAN]

Kolay gelsin. Ben bir form yaptım excelde bazen textbox'a bazen hücreye veri girdiğimde sol alt köşede excel Hazır Hesaplanıyor şeklinde yazılar yazıyor ve sayfa kilitleniyor. Vba ve formüller kullanıyorum fakat dosya boyutum 300 kb civarında sürekli kilitleniyor. Yardımcı olabilirmisiniz

Sayfanız açıkken Alt+F11 tuşlarına basarak kod ekranının görüntülenmesini sağlayın, ardından F8 tuşuna basarak adım adım makronun çalıştırın, (bu sırada sarı boyanan satırdan önceki değişkenlerin üzerine fareyi götürürseniz aldığı son değerleri görebilirsiniz) hangi satırda iken kilitlendiğini görmenizi sağlar. Böylece o satırdaki kodda yer alan değişkenleri gözden geçirerek çözüm üretmeniz mümkün olabilir. Kuvvetle muhtemel, bir döngü olayıyla karşı karşıyasınızdır, hata durumuna ilişkin bir çözüm (On Error Resume Next gibi) satırı yazarak sorununuzu çözebileceğinizi düşünüyorum.
Çok çok az kod bilgisiyle aklıma gelen böyle.
Daha doğrusu ise, Sayın turist'in söylediği gibi, dosyanıza ulaşılmasını sağlarsanız, kod bilgisi olanlar mutaka çözüm üreteceklerdir.

 

[mesutaygun70]

http://s3.dosya.tc/server31/XPI1aS/_rnek.rar.html
nejla kurt =105018
Ctrl +b başlangıç makrosunu çalıştırır
Yardımcı olabilirseniz sevinirim teşekkürler. Açıklamayıda yaparsanız aynı türden bir kaç dosyam varda .

 

[turist]

Dosyanızda Vba sayfası şifre korumalı, makroları incelemek mümkün değil.

 

[mesutaygun70]

Vba sifresi 123455 ozur dilerim

 

[mesutaygun70]

Kayit sayfasinin sonunda yaklasik on tane "ara" formulu var onlardan olmaz sanirim

 

[Ömer BARAN]

Merhaba, önceki mesajımda söylediğim şekilde belgenizdeki kodları adım adım çalıştırayım dedim ve

Sub Makro2()
Dim GK, KK As Worksheet
Set KK = Sheets("KAYIT")
son_satir = KK.Range("a65000").End(3)[B][COLOR="Red"].Row.[/COLOR][/B]Select
    ActiveCell.FormulaR1C1 = "1/8/2015"
End Sub

kırmızı renklendirdiğim yerde duruyor.
Kod işinden hiç anlamam ama, o satırın sonundaki .Select ile ilgili bir sorun olabilir.