Makrolar bilgisayarı donduruyor:)

[honestman]

Yine ben yine garip bir problem

Ekte sizlerden öğrendiklerimle yapmaya çalıştığım bana göre koplike bir dosya var. Butonlara basıp çalıştır dediğimde bana olmaz dercesine bilgisayarımı donduruyor. Dosya mı yorucu; 2. sayfadaki formüllerden de olabilir ... yoksa bilgisayar mı yaşlanmış sizden öğreneyim dedim. Ekteki dosyadaki döngülere bir çare rica ediyorum. Teşekkürler

 

[ReBiwAr]

Kodlarınızın başına DoEvents koyarak denediniz mi?

 

[honestman]

Rebiwar,


Eklemeye çalıştım ama hala aynı....

 

[Husgvarna]

Yine ben yine garip bir problem

Ekte sizlerden öğrendiklerimle yapmaya çalıştığım bana göre koplike bir dosya var. Butonlara basıp çalıştır dediğimde bana olmaz dercesine bilgisayarımı donduruyor. Dosya mı yorucu; 2. sayfadaki formüllerden de olabilir ... yoksa bilgisayar mı yaşlanmış sizden öğreneyim dedim. Ekteki dosyadaki döngülere bir çare rica ediyorum. Teşekkürler

Merhaba.
Örneğin 2.modüldeki kodlarızın başındaki şu bölümü:

 Columns("L:L").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

şöyle denermisiniz.

 Range("[COLOR="Red"]L[/COLOR]1:[COLOR="#ff0000"]L[/COLOR]" & Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row).Insert Shift:=xlToRight

Birde kodların başına (click altına)

Application.Calculation = xlManual

sonuna (End sub) dan önce

Application.Calculation = xlAutomatic

Şeklindede deneyebilirsiniz.

 

[honestman]

Sayın Husgvarna,

Dediğiniz düzeltmeleri kodlara uyguladım ve işe yaradı. Çok teşekkür ederim. Bir sonraki sorunda görüşmek dileğiyle