Macro calisiyor yazisi..

[TRUSA]

Selam Arkadaslar,

Yapmis oldugum macro bir hayli detayli oldugu icin bazi analizleri yaparken, zaman aliyor. Bu sirada ekranda herhangi bir hareket gozlenmedigi icin sanki problem var zannediliyor. Yapmak isteyipte basaramadigim olay su: Form uzerinde kullandigim butona bastigimda, formun alt tarafinda "hesaplaniyor", "calisiyor" gibi bir takim bilgiler yazdirmak istiyorum.

Bunun icin butonun ilk satirina

Label1.Caption="Hesaplaniyor.."

en son satirinada

Label1.Caption=""

seklinde komutlar yaziyorum. Fakat macro calisirken formda boyle bir yazi goremiyorum. Ne yapmaliyim ?

Yardimlariniz icin simdiden tesekkurler..

 

[Korhan Ayhan]

Selamlar,

Ekteki dosyayı inceleyip kendinize uyarlamaya çalışın.

 

[Haluk]

İlgili makroda hesapların yapılmasına ilişkin kodların başında bir yere;

DoEvents

satırını yerleştirip de deneyin ...

 

[TRUSA]

Arkadaslar,

Cok tesekkur ederim degerli katkilariniz icin. Bir sey daha sormak istiyorum.

Excel iconunu tikladigim zaman otomatik olarak form aciliyor ve macro calismaya basliyor. Ana sayfa acilana kadar sheet uzerine bircok hesaplama yapip bir takim bilgiler yaziyor. Ama bu arada excel sheetleri gorunuyor. Daha sonra excel sheeti kaybolup form aciliyor. Yani istedigim: iconu tikladigimda, execl sheet gorunmesin ilk once form gorunsun ve sonra islemleri yapsin..

Yardimlariniz ve paylasinciliginiz icin cok tesekkur ederim..

RIK

 

[Levent Menteşoğlu]

Aşağıdaki kodu auto_open prosedüründe en üste ilk satır olarak yazın.

Application.Calculation = xlManual

Son satırada aşağıdaki kodu yazın.

Application.Calculation = xlAutomatic

 

[TRUSA]

leventm,

Bir kez daha tesekkurler, bildiklerinizi paylastiginiz icin.

Yardimlariniz icin herkese tesekkurler..

 

[Haluk]

Aşağıdakileri ThisWorkbook modulüne yerleştirin.

Sonra, dosyayı *.xla olarak (eklenti) kaydedin ve kapatın.

Daha sonra bu yeni *.xla dosyasını çift tıklayarak açın.

Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show
    ThisWorkbook.IsAddin = False
    Application.Visible = True
End Sub