...google e tablolarda nasıl çalışır hale getirebiliriz. örneğin :
Sub zaman()
Dim gsay As Date
gsay = Now + TimeValue("00:00:01")
Application.OnTime gsay, "son"
End Sub
Sub Son()
Dim aln As Range
Set aln = Application.ActiveSheet.Range("G2")
aln.Value = aln.Value + TimeSerial(0, 0, 1)
If...
Public Function OnTimeMacro()
Application.OnTime Now + TimeValue("00:01:00"), "yedekle"
End Function
Public Function yedekle()
Dim fs As Object
Dim oldPath As String, newPath As String
oldPath = AYARLAR.TextBox2x.Value
newPath = AYARLAR.TextBox21x.Value
Set fs =...
...StartTimer
End Sub
Sub Auto_Close()
StopTimer
End Sub
Sub StartTimer()
bekleme = Now + TimeSerial(0, 0, Pause)
Application.OnTime earliesttime:=bekleme, procedure:=cagrilanmakro, schedule:=True
End Sub
Sub tarih_kontrol()
Call dosyakontrol
If esktarih <> yenitarih Then...
...= True: Call Disable: Exit Sub
End If
Call SetTime
End Sub
Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub
Sub Disable()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub
...Kayıtlar sayfasına bağlantısını yapamadım. Yardımcı olabilir misiniz?
Sub SaveWb()
ThisWorkbook.RefreshAll
ThisWorkbook.Save
Application.OnTime Now + TimeValue("00:00:10"), "SaveWb"
End Sub
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:10"), "SaveWb"
End Sub
Sub Auto_Open()
If Day(Date) = 1 Or Weekday(Date, vbMonday) = 1 Then
Application.OnTime TimeValue("12:18:00"), "MailGonder"
End If
End Sub
şeklinde deneyin.
...olarak (pazartesi günü) otomatik olarak bana mail gönderilmesini istiyorum.
Günlük olarak kullandığım kodlar:
Sub Auto_Open()
Application.OnTime TimeValue("12:18:00"), "MailGonder"
End Sub
Sub MailGonder()
Dim OutApp As Object, Outmail As Object
Set OutApp =...
Merhabalar,
Bende kendi excelimde denemek istedim fakat örnek olarak adres yazınca C:\Users\Satış Destek\Desktop\deneme.xlsm buradaki \(SLASH) ları kırmızı gösteriyor, izin vermiyor çalıştırmaya neden olabilir? ( kendi adresimi yazıyorum arkadaşınkini örnek olarak yazdım
Forumumuza hoş geldiniz.
Sub Auto_Open()
Application.OnTime TimeValue("12:18:00"), "MailGonder"
End Sub
Sub MailGonder()
Dim OutApp As Object, Outmail As Object
Set OutApp = CreateObject("Outlook.Application")
Set Outmail = OutApp.CreateItem(0)
Outmail.BodyFormat = 2
With Outmail
.To =...
...için yardımcı olmanızı rica ederim.
şimdiden teşekkürler
--------------------------------------------
Sub Zamanı_Geldi()
Application.OnTime TimeValue("12:18:00"), "Auto_Open"
End Sub
Sub Auto_Open()
Dim OutApp As Object, Outmail As Object
Set OutApp =...
...makrosunu tarihteki saatte çalıştırması için ama makro sadece exceli açarken çalışıyor excel sayfam açıkken çalışmasını istiyorum nasıl yapabilirim.
Sub Auto_Open()
tarih = Worksheets("Sayfa1").Range("f2")
Application.OnTime DateValue(tarih) + TimeValue("12:00:00"), "mailcalismam"
End Sub
...daha iyi olur)
Personel.xlsb açılışına da aşağıdaki kodları size uygun şekilde yazabilirisiniz.
Private Sub Workbook_Open()
Application.OnTime DateValue("1/1/2019") + TimeValue("12:00:00"), "Calistirilacak makro adı"
End Sub
Eğer 4 günde bir çalışması gerekiyorsa DateValue için bir...
...bağlantılı.
Sub Wpkaydet1()
Range("B8:X61").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
ActiveWorkbook.Save
Application.OnTime Now + TimeValue("00:00:00"), "mesaj"
End Sub
Sub Mesaj()
Range("AI7").FormulaR1C1 = "Rapor kopyalandı. Whatsap üzerinden CTRL+V yaparak...
...Cells(1, 2).Value = Cells(1, 2).Value + 1
saat = Now + TimeValue("00:00:10")
Application.OnTime EarliestTime:=saat, Procedure:=devamet, Schedule:=True
End Sub
Sub durdur()
On Error Resume Next
Application.OnTime EarliestTime:=saat, Procedure:=devamet, Schedule:=False
say = 0
End Sub
...Cells(1, 2).Value = Cells(1, 2).Value + 1
saat = Now + TimeValue("00:00:10")
Application.OnTime EarliestTime:=saat, Procedure:=devamet, Schedule:=True
End Sub
Sub durdur()
On Error Resume Next
Application.OnTime EarliestTime:=saat, Procedure:=devamet, Schedule:=False
End Sub
Function...
ustam kodu aynen yapıştırdım lakin başlayınca durdurmuyor. iki buton yaptım biri başla diğeri durdur. butonlara çalıştır ve durdur makrolarını atadım.
modül içindeki tüm kodları yazıyorum
...As Object
Dim NextTick As Date
Sub calistir()
url_ac
zaman = CDate(Format(Now, "hh:nn:ss"))
NextTick = Now + TimeValue(zaman)
Application.OnTime NextTick, "calistir", schedule:=True
End Sub
Sub Durdur()
On Error Resume Next
Application.OnTime Earliesttime:=NextTick, procedure:="calistir"...
...Then
objCollection(i).Value = veri
Exit Do
End If
i = i + 1
Loop
ie.Document.getElementsByTagName("button").Item(1).Click
Range("B1").Select
Range("B1") = Range("B1") + 1
Range("B1").Select
Application.OnTime Now + TimeValue("00:00:10"), "url_ac"...
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.