Sorgu için arama sonuçları: lütfen+bekleyiniz

Hocam, emeğinize sağlık demiştim. Var olun. Dosyaların tamamını ekledim. Arada excel dosyaları üste çıkıyor. Bunu soru olarak sordum zaten. UserForm sürekli üstte durabilme olanağı var mı diye. Bir de hocam. Kesinlikle elzem değil. Sadece görüntü açısından. Lütfen mazur görün. MsgBox olmasa...

Teşekkür ederim hocam. Emeğinize sağlık. İşe yaradı. Sağ olun. Var olun.

Sub UzunSurenIslem() ' 1. Bekleyiniz formunu aç UserForm2.Show vbModeless ' Userform2'ye "İşlemleriniz bitene kadar Lütfen bekleyiniz yazısı yazınız" ' Formun ekrana hemen hazırlanması için Refresh(tazeleme-yineleme) yapalım UserForm2.Repaint DoEvents ' Sistemin formu...

Hocam silinebilir diye belirtmişsiniz zaten ama bu kadar çabuk silinmezdi. Acaba Dosyam sunucusunda bir hata mı oluştu?

Belki faydalı olabilir.. https://www.excel.web.tr/threads/makro-ile-islem-yapilirken-lutfen-bekleyiniz-uygulamasi.195525/

Necati Bey Merhaba, Kodu referansla birlikte uyguladım. Çalıştı. Ancak bazı sınıflarda tablo boş. Sadece günler yazıyor. Hata ile ilgili bir görsel ekledim. https://hizliresim.com/h1t1sro

Verilerinizin formatında sayfadan sayfaya bazı küçük değişiklikler olmakla beraber mümkün olduğunca esnek bir kod hazırlamaya çalıştım. Bu yüzden çıktılarda bazı tutarsızlıklar olması muhtemeldir. Çokul_Satır_Full.xlsx adlı dosya formatına göre hazırlanan makroyu ekliyorum. Word belgeleri...

Cümleten hayırlı günler dilerim. Daha önce kullandığım topla çarpım kodu tekrar hata vermeye başladı. Bu konu hakkında yarımlarınızı talep ediyorum. If MsgBox("İcmal Toplamı Almak İstiyor Musunuz? ?", vbYesNo, "Dikkat") = vbNo Then Exit Sub MsgBox "Lütfen Bekleyiniz.....Verileriniz...

@Haluk bey in kodlarının ek olarak. userform1 de Userform2 yi gösteren butonu tıkladığınızda. userform2 açılacak. Açılırken 1 sn sonra mesajı gösterecek ancak o arada açılmaya devam edecek. Mesaj da süresi dolduğunda kapanacak. Userform1 e bunu ekleyin. Private Sub CommandButton1_Click()...

iki form açılış süresi biraz uzun sürüyor yaklaşık 8-10 saniye kadar. (Veri çok olduğu için form yükleyip açmak uzun sürüyor) ben bu arada mesaj kutusunun açılıp "Form2 açılıyor, lütfen bekleyiniz" mesajı çıkmasını istiyorum. Yani aradaki boş zaman mesaj kutusu ile geçiştirilmesi için ne...

Haluk Bey ilginize teşekkür ederim. Benim asıl kasteddiğim bir süre ile değil de istedğim Form2 açıldıktan sonra otomatik kapanması. Bu mümkün mü acaba Tekrar teşekkürler...

Private Sub CommandButton1_Click() Set myMsgBox = CreateObject("WScript.Shell") Setup = 1 '(Bekleme suresi 1 san.) Unload Me myMsgBox.Popup "Form2 açiliyor. Lütfen bekleyiniz.", Setup, "Dikkat...!", vbCritical UserForm2.Show End Sub .

Arkadaşlar excelde "UserForm1" ve "UserForm2" iki tane UserForm var ben bunları komut ile birini kapatıp diğerini açarken (bu geçen sürede) mesaj kutusu çıkıp hangi formun açıldığına dair bilgi vermesini, istenilen form açılınca da otomatik kapanmasını istiyorum. Ben bir kod uyarlamaya çalıştım...

maalesef biraz hassas veriler olduğu için paylaşmam bana sorun yaratacaktır. resimdeki hücreye yazmak istiyorum. Sorgumda geçen name ile id çekmem gerekiyor. o kısmı belirtmemişim. sorgumda bu şekilde ---------------------- Private Sub cmdLogin_Click() Dim password As String Dim rs As...

Sayın RBozkurt cevabınız için çok teşekkür ederim. Dediğiniz şekilde oldu, aynı anda kapanıyor. Fakat form içerisindeki Lütfen bekleyiniz görünmeden sadece boş form ekrana geliyor.Bunun üzerinde biraz çalışma yapayım, sorunu çözemezsem tekrar yardımlarınıza başvurabilirim.

Yedekleme kodlarını userform açılışına ekleyin. Lütfen bekleyiniz userformu açılınca yedekleme bu userformda başlar, kod sonuna da kapatma prosedürü eklersiniz.

Merhabalar Userform'u "X" den kapattığımda dosyanın yedeğini alıp kapanıyor, ama bu işlem biraz uzun sürdüğü için, başka bir form oluşturup bir tane'de label ekledim. Label'e "Lütfen bekleyiniz" yazdım. Diğer arkadaşların buna benzer sorularından bulduğum kodları uygulamama rağmen "Lütfen...

Merhaba, MsgBox ile bu işlemi yapamazsınız diye biliyorum. Bunun yerine küçük bir UserForm üzerine Label ekleyip Label Caption'u "Lütfen Bekleyiniz" şeklinde yazarak kullanabilirsiniz. Userformu açarken UserForm1.Show 0 kullanmalısınız.

Sub veritemizle() Msgbox "Lütfen bekleyiniz" Range("A1")= Empty Range("A2")= Empty Range("A3")= Empty Range("A4")= Empty Msgbox "Temizleme işlemi başarılı." End Sub Arkadaşlar yukarıdaki koda benzer ama daha uzun bir kodum var. Userformda temizle butonuna tıkladıktan sonra "Lütfen bekleyiniz"...

Merhaba , bu şekilde deneyiniz.. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, [D4825:D4826]) Is Nothing Then Exit Sub MsgBox "Dosya Konumu Açılıyor Lütfen Bekleyiniz!", vbInformation If Target.Address = "$D$4825" Then...