Merhaba,
Aşağıdaki S3 sayfasındaki binlerce satırlık veriden S1 deki kriterler doğrultusunda uyanları S2 sayfasına atıyorum. Ancak kriter sayısı arttıkça bilgisayarın zorlandığını görüyorum. Bilgisayarı zorlamadan nasıl yapılabilir?
Veri süz ün kullanımını bilmediğim için uzun yolu tercih...
Merhaba,
Userform üzerine eklediğim Label a "LÜTFEN BEKLEYİNİZ..." mesajı eklemek istedim. Ancak makronun çalıştığı esnada değil de işlem sonuçlandığında görünüyor.
Arkadaşlar
Personel takip programı yapıyorum. Fakat aşağıda açıkladığım gibi bir sorun yaşıyorum. UserForm üzerinde ComboBox Change olayına Bersonel Bilgilerini TextBoxlara alan kodlar yazılı.Aynı zamanda image nesnesine o personele ait resim geliyor image nesnesine resim çağırılarak personel...
Arkadaşlar,
bir userformumuz var, formdaki verileri veri tabanına kaydediyoruz, kayıt 15 saniye sürüyor, Kaydet command tıkladığımızda, kayıt tamamlanana kadar,
ekranda "Lütfen Bekleyiniz" uyarısı gözükebilirmi. Kayıt tamamlandıktan sonrada kaybolacak.
Arkadaşlar , bir form üzerinde bir düğme ile içinde birçok sorgu olan bir makruyu çalıştırıyorum. Bu işlemi otomatik yapıyor ama biraz da zaman alıyor tabi. İstiyorum ki arka planda makro bu hesaplamayı yaparken küçük bir pencerede "Hesaplanıyor. Lütfen bekleyiniz." mesajı versin. İleti Formu...
Merhabalar;
On Error Resume Next
Dim a As Integer
Sheets("liste").Select
Columns("a:ab").Copy
Sheets("raporlar").Select
Columns("BO").PasteSpecial
Application.CutCopyMode = False
Sheets("liste").Select
For a = 28 To 1 Step -1
If Controls("checkbox" & a).Value = False Then...
önceden office 2000 kullanırken dosyamı aşağıdaki kodlarla hatasıs bir şekilde yedekliyordum.
Private Sub CommandButton2_Click()
DizinAdi = "C:\Demirbaş\DemirbaşYedekleri"
CreateDirectoryEx "C:\Windows", DizinAdi, ByVal 0
cevap = MsgBox("C:\Demirbaş\DemirbaşYedekleri Klasörüne...
Private Sub CommandButton2_Click()
DizinAdi = "C:\DemirbaşYedekleri"
CreateDirectoryEx "C:\Windows", DizinAdi, ByVal 0
cevap = MsgBox("C:\DemirbaşYedekleri Klasörüne Yedeklenecektir. " & yedekyolu & " Devam etmek istiyor musunuz..?", vbYesNo, "Yedek Alma...")
If cevap = vbNo Then
GoTo...
Arkadaşlar iki sorum olacak.
1.) Form üzerinde KAYDET tuşuna basılınca bilgiler kayıt edilinceye kadar ekranda "Bilgiler kaydediliyor. Lütfen bekleyiniz" yazılı MsgBox çıkmasını, kayıt bitince MsgBox'ın otomatikman kalkmasını istiyorum.
2.) Form üzerindeki TextBox'ta yıl var(2005 gibi). Bunu...
Merhabalar
Userform uzerinden sorgulama yapiyorum ve bu sorgu biraz uzun suruyor bu sorgulam islemi yapilirken ikinci bir form acip(Sorgulama yapiliyor Lütfen bekleyiniz gibi).yada bir uyari mesaji gelsin sorgu bitincede form kapansin istiyorum.
Simdidden tesekkurler
Çalışma kitabınınn YEDEÃÃNÃ ALMA ile ilgili bir soru
Merhaba Arkadaşlar;
Sub yedekle()
cevap = MsgBox("Bilgilerinizin son hali bugunku tarihle farklı kayıt edilerek yedeklenecektir. Yedeklenen bilgilere :" & yedekyolu & " My Documents ''Belgelerim'' klasöründen erişebilirsiniz. Devam etmek...
Sayın Form Muadimleri,
ProgressBar ile bir UserForm açmak istiyorum.Fakat Program aç dediğimde label ile "Lütfen bekleyiniz" yazsın. CommandButtona basılmadıkça labelim aktif olmasın görünmesin istiyorum yapamadım.Ataç dan inceleyip yardımcı olursanız memnun olacağım..
Hepinize iyi geceler...
Arkadaşlar,
Form üzerinde "kaydet"adında bir tuş var.Kaydet tuşuna bastığım zaman Mesajda "Lütfen bekleyiniz" yazısı görüntülenirken arka planda kaydetme işlemi devam etsin istiyorum.Yani kaydetme işleminin bitmesi ile mesaj kutusunun kapanması aynı anda olsun...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.