Süre Sona Erdirme Online Eğitimler sadece 49,99 TL. Hem de ikinci eğitim ücretsiz! Makroyu Kopyala 'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. Application.Visible = False Dim d, x, y d = GetSetting("DANISMAN", "Ayarlar", "Ilk Giris", "") If d = "" Then SaveSetting "DANISMAN", "Ayarlar", "Ilk Giris", Date Else If (Date - CDate(d)) > 365 Then MsgBox ("Programin Demo Süresi dolmustur.") DoCmd.Close Application.Quit Else x = GetSetting("DANISMAN", "Ayarlar", "Son Çikis Tarihi", "") If x = "" Then 'End Else If CVDate(x) > Date Then MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin") DoCmd.Close Else y = GetSetting("DANISMAN", "Ayarlar", "Son Çikis Saati", "") If (CVDate(x) = Date) And (CVDate(y) > Time) Then MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin") DoCmd.Close End If End If x = GetSetting("DANISMAN", "Ayarlar", "Sayi", "1") MsgBox ("Programi" & x & ". defa çalistiriyorsunuz.") SaveSetting "DANISMAN", "Ayarlar", "Sayi", x + 1 End If End If End If siparisfrm.Show Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) SaveSetting "DANISMAN", "Ayarlar", "Son Çikis Tarihi", Date SaveSetting "DANISMAN", "Ayarlar", "Son Çikis Saati", Time Application.Visible = True Application.Quit End Sub Bu makro ile ilgili sorun bildir Bu makro çalışmıyor. Kodlarda bir hata var. Diğer Hata ile ilgili görüşlerinizi aşağıdaki kutuya yazabilirsiniz. Hata bildir TÜM MAKROLAR Youtube Kanalımız Aşağıdaki makrolar işinize yarayabilir. Benzer Sonuçlar NoMakro Adı 1 süre sona erdirme 2 excel operatörleri hk 3 menü çubuğunun silinmesi ve özel bir menünün oluşturulması 4 hesap makinesini açma kapama 5 wmi bilgi 6 masaüstüne kısayol oluşturma iconlu 7 masaüstüne ikon oluşturma 8 sayfa korumalarını kaldırma 9 excelde kendi eklenti ve fonksiyonlarınızı oluşturun 10 "Farklı kaydet" işlemi 11 kullanıcı kitabının kapatılması 12 hareketsiz inputbox 13 0 olan hücreleri geri alma 14 belirli bir süre ekranda bekleyen ve daha sonra kapan user form 15 süreli userform 1 16 istenilen sürece ekranda kalan userform 17 userform 4 belirli bir süre ekranda bekleyen ve daha sonra kapan user form. 18 bekletmeli ve aralara makro koyarak mesaj alma 19 benzersiz (tek) olan veri girişlerinin tespit edilmesi 20 tarih işlemleri 1