Formül hesaplarken hesaplanıyor penceresi gözüksün

[efee2000]

Merhaba Arkadaşlar,
Dosyamdaki formüller hesaplanırken bir pencerenin açılıp formüller hesaplanıyor diye yazıp formül hesaplanınca kapanan bir pencere olsun istiyorum.
Bunu yapabileceğimiz bir kod var mıdır?

 

[fedeal]

Ben bunu farklı bir userform açarak yapmıştım.yeni formun activate olayına makroyu yazdım sonunada unload me ile kapattım.formun caption kısmına aktarım yapılıyor diye birşey yazmıştım , formun height kısmınıda 25 yapınca olmuştu.belki bu tarz bir şey işinize yarayabilir.

 

[efee2000]

Ben bunu farklı bir userform açarak yapmıştım.yeni formun activate olayına makroyu yazdım sonunada unload me ile kapattım.formun caption kısmına aktarım yapılıyor diye birşey yazmıştım , formun height kısmınıda 25 yapınca olmuştu.belki bu tarz bir şey işinize yarayabilir.

Sayın Fedeal,
yardımınız için teşekkürler, ancak anladığım kadarıyla siz dosya açılırken bu pencereyi getirmişsiniz. benim istediğim farklı bir şey. her formül hesaplamada pencere açılsın, hesaplarken yüzde %100 olduğunda da kapansın istiyorum.

 

[fedeal]

hayır hesaplama kodlarını başka formun activate olayına yazdım hesaplamayı öteki form yapıyor bitince kapatıyor.hesapla butonunuz sadece öteki formu açıyor. şöylede olabilir formu dediğim şekilde biçimlendirip başına userform1.show-- kodlar --unload userform1 yazarak olabilir.
örnegin:

userform1.show
Son_Dolu_Satir = Sheets("KAYIT").Range("A65536").End(xlUp).Row
DoluSay = Son_Dolu_Satir + 1
Sheets("KAYIT").Range("A" & DoluSay).Value = DateValue(T1)
Sheets("KAYIT").Range("B" & DoluSay).Value = CDbl(T2)
Sheets("KAYIT").Range("C" & DoluSay).Value = C1.Text
Sheets("KAYIT").Range("D" & DoluSay).Value = T3.Text
Sheets("KAYIT").Range("E" & DoluSay).Value = CDbl(T4)
Sheets("KAYIT").Range("F" & DoluSay).Value = C2.Text
Sheets("KAYIT").Range("G" & DoluSay).Value = CDbl(T5)
Sheets("KAYIT").Range("H" & DoluSay).Value = CDbl(T6)
Sheets("KAYIT").Range("I" & DoluSay).Value = CDbl(T7)
Sheets("KAYIT").Range("J" & DoluSay).Value = CDbl(T8)
Sheets("KAYIT").Range("K" & DoluSay).Value = C3.Text
Sheets("KAYIT").Range("L" & DoluSay).Value = C4.Text
Sheets("KAYIT").Range("M" & DoluSay).Value = Month(T1)
F = ComboBox2.ListIndex + 2
Sheets("KAYIT").Range("N" & DoluSay).Value = Sheets("PERSONEL").Range("D" & F).Value
unload userform1

 

[Korhan Ayhan]

Selamlar,

Tam olarak istediğiniz gibi olmasada belki size fikir verebilir. Ekteki örnek dosyayı incelermisiniz.

Sayfada B yada C sütununa sayısal veri girip F9 tuşuna basın.