Sorgu için arama sonuçları: ontime

...ThisWorkbook.Worksheets If ws.Name = "2" Or ws.Name = "3" Then ws.Activate Selection.QueryTable.Refresh BackgroundQuery:=False End If Next ws ' 60 saniye sonra yeniden çalıştır Application.OnTime Now + TimeValue("00:01:00"), "yenileme60"...

Teşekkür ederim :) Elinize emeğinize sağlık tam istediğim gibi oldu :)

...As Double Private Sub Workbook_Open() Zamanlayici = Date + TimeValue("17:45") If Now > Zamanlayici Then Exit Sub Application.OnTime Zamanlayici, "BuÇalışmaKitabı.DosyayiKapat" End Sub Sub DosyayiKapat() If Workbooks.Count = 1 Then ThisWorkbook.Save...

Merhaba Öncelikle izinli olduğum için geç cevap verebildim. Teşekkür ederim kod belirttiğimiz saatte exceli kapatıyor fakat o saat dakika geçmiş olmasına rağmen exceli actığımızda tekrar kendisini kapatmakta sürekli :( sanki bir döngüye girmiş gibi. Hata da vermiyor. acılıp kapanıyor.

...kaydedilip kapatılacaktır. Dim Zamanlayici As Double Private Sub Workbook_Open() Zamanlayici = Date + TimeValue("17:45") Application.OnTime Zamanlayici, "BuÇalışmaKitabı.DosyayiKapat" End Sub Sub DosyayiKapat() If Workbooks.Count = 1 Then ThisWorkbook.Save...

Öncelikle yardımınız için teşekkür ederim. Kodu gerekli yere yapıştırdıktan sonra belirlenen zaman geldiğinde makro çalıştırılamıyor uyarısı vermekte.

ChatGPT şöyle diyor. Private Sub Workbook_Open() ' Kitap açıldığında otomatik kapatma zamanı ayarlanır Application.OnTime TimeValue("17:45:00"), "KapatDosya" End Sub Sub KapatDosya() Dim wb As Workbook Set wb = ThisWorkbook ' Eğer kayıt edilmemiş değişiklik varsa...

Merhaba hocam. acaba açık olan excel kitabını belirlediğimiz saat dakikada kendisini otomatik olarak kapatmasını sağlayacak kodlar hakkında yardımcı olabilir misiniz?

VBA kullanmadan OnTime nasıl yapılır bilemiyorum. Siz bunu kullandığınızda saat 15:59:59 da o tarihteki 2.vardiya (08-16) Sarı renkli olurken, 1 saniye sonra 16:00 da 3.vardiya(16-24) sarı renkle dolacaktır. Bunu formülle yapamazsınız. Formülle çözüm bulabilecek olan varsa zaten yardımcı...

Private Sub auto_open() Application.OnTime TimeValue("17:56:00"), "test" End Sub Sub test() Workbooks.Open Filename:="C:\xx.xls" End Sub

...& "\Yedek Veri " & tarih & ".xlsb" ' 5 dakika sonra tekrar çalıştır NextRunTime = Now + TimeValue("00:05:00") Application.OnTime NextRunTime, "Yedekle" End Sub Sub YedeklemeyiDurdur() ' Planlanmış işlemi iptal etmek için kullanılır On Error Resume Next...

buradaki kodları kullandım

Hocam Teşekkürler, derdim makro kullanmadan çözüm üretmekti. Bu anlamda Muzaffer hocamın yöntemi kullanışlı olabilir. ilgi ve alakanız için her ikinize de teşekkür edeiyorum.

Private Sub Worksheet_Activate() Application.OnTime Now + TimeValue("00:00:01"), "OpenComboBox" End Sub Private Sub OpenComboBox() ComboBox1.DropDown Application.OnTime Now + TimeValue("00:00:01"), "OpenComboBox" End Sub Aklıma şöyle bir yöntem geldi.. Lakin tabi yavaşlama...

çok teşekkürler işimi gördü sağolun.

...= True ' Zamanlayıcıyı başlatıyoruz, burada 5 dakika (300 saniye) bekleyeceğiz CloseTime = Now + TimeValue("00:05:00") ' 5 dakika (00:05:00) Application.OnTime CloseTime, "HideExcel" End Sub Sub HideExcel() ' Excel'i gizliyoruz Application.Visible = False End Sub

Selamlar, run-time error '1004' hatası veriyor ve maili göndermiyor. debug dediğimde aşağıdaki kodları sarı olarak gösteriyor. With TempWB.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:=TempFile, _ Sheet:=TempWB.Sheets(1).Name, _...

..."align=left x:publishsource=") TempWB.Close savechanges:=False Kill TempFile Set ts = Nothing Set fso = Nothing Set TempWB = Nothing End Function Sub ScheduleEmail() ' Her gün saat 08:00'de MailGonder Application.OnTime TimeValue("08:00:00"), "MailGonder"...

formül bende çalışmıyor yanlış yere mi yapıştırdım acaba

...As Double sureSaniye = Sheets("Sheet1").Range("B1").Value SonrakiGuncelleme = Now + TimeValue("00:00:" & sureSaniye) Application.OnTime SonrakiGuncelleme, "ThisWorkbook.SonrakiGuncellemeZamanla" End Sub Sub FormulDurdur() On Error Resume Next Application.OnTime...