Msgbox

[haso_excel]

Merhaba arkadaşlar,

Sub FF()
Dim i As Range
For Each i In Range("a1:b100")
i.Value = " hasan"
Next i
End Sub

Sub rapor()
UserForm1.Show
FF
Unload UserForm1
MsgBox "işlem tamam"
End Sub

Merhaba arkadaşlar,

Yukarıdaki kodlardan anlayacağınız üzere ropor prosedüründe ilk önce userform1 ekranda görünüyor sonra ff çalışıyor. Ama çalışması için userform1 den çıkmak lazım. Ama benim amacım userform görünürken diğer prosedüründe çalışyor olması bunu nasıl mümkün kılacağız.

 

[security]

Sub FF()
Dim i As Range
For Each i In Range("a1:b100")
i.Value = " hasan"
Next i
End Sub

Sub rapor()
UserForm1.Show
FF
MsgBox "işlem tamam"
End Sub

UserFormu Kapat Kodunu Silin

Unload UserForm1

 

[leumruk]

FF kodunu Userform'un kod seçeneklerinden Useform_Activate'nin içine taşıyabilirsiniz.

 

[haso_excel]

Olmadı üstatlarım

 

[haso_excel]

ikisinide denemdim olmadı
Dosyam ekde

 

[security]

UserForm Daha Sonra Kendiliginden Kapanacakmı Yoksa Açıkmı Kalsın İ;stiyorsunuz...

 

[haso_excel]

ff bitene kadar userform açık kalacak, amacım userformun üzerindeki mesajın ff çalışana kadar görünmesi. FF bitince userform kendiliğinden kapanacak işlem bitti msg çıkacak.

 

[security]

ok dosyanız hazır. ekliyorum

 

[security]

Dosyanız Ekte...

 

[security]

SN: haso_excel Sonuç Yazarsanız .Ona Göre Bakalım...

 

[haso_excel]

Üstadım ben de onun üzerinde çalışyordum ama üzülerek olmadığını tekrar söylemek durumundayım.
Algoritma
1-User form çıkacak
2-Userform u kapatmadan FF kodu userform actif iken çalışacak
3-FF kodu bitttikten sonra userform kendiliğinden kapanacak.

 

[security]

Üstadım ben de onun üzerinde çalışyordum ama üzülerek olmadığını tekrar söylemek durumundayım.
Algoritma
1-User form çıkacak
2-Userform u kapatmadan FF kodu userform actif iken çalışacak
3-FF kodu bitttikten sonra userform kendiliğinden kapanacak.

Son Eklediğim Dosyada Bu Şekil Oluyor Bende Hata Vermeden Dediğiniz Gibi Çalışıyor. Yanlız Ben Timer Nesnesi Ekledim Sizde Eger Ekli Değilse Hata Verir. Başka Bir Yol İle Yapıp Ekliyorum...

 

[security]

Son Hali Ekte Dediğiniz Gibi İşlem yapılıyor...

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak ekteki örnek dosyayı incelermisiniz.

Kod çalışmaya başlayınca bekleme uyarısı veren userform açılır. Kodun çalışması bitene kadar ekranda durur.

 

[haso_excel]

Arkadaşlar ikinizede çok teşekkür ederim. İşlem tamamdır. Elinize sağlık

 

[security]

Arkadaşlar ikinizede çok teşekkür ederim. İşlem tamamdır. Elinize sağlık

Rica Ederiz Kolay Gelsin...