...excelin. Aşağıdaki kodu kullandım fakat uyarı veriyor. Yardımcı olursanız sevinirim.
Sub Auto_Open()
Application.DisplayAlerts = False
Application.OnTime Now + TimeValue("00:01:00"), "Kapat"
ThisWorkbook.Save
Application.DisplayAlerts = True
End Sub
Sub Kapat()
ThisWorkbook.Close
End Sub
...merhaba..
Silinmesini istemediğim çalışma sayfamın kod bölümüne ;
Private Sub Worksheet_Deactivate()
ThisWorkbook.Protect , True
Application.OnTime Now, "UnprotectBook"
End Sub
yazıyorum.
İstediğim bu kodların yazıldığı sayfa üzerinden işlem yaptırmak.
Yalnız makro ile bu sayfa sonrasına...
...devam ediyor. Sorunun çözümü için yardımcı olabilecek kimse var mıdır acaba?
Kod aşağıdaki gibidir, saygılar.
Sub Auto_Open()
Application.OnTime Now + TimeValue("00:05:00"), "Dene"
End Sub
Sub Dene()
Dim HM(98, 3)
c = 1
Do While Sayfa3.Cells(c, 1) <> ""
c = c + 1
Loop
CSayisi = c - 2...
...tüm hücreleri yenilediği için hem bu refresh zaman alıyor hem de dosyada çalışmak hantallaşıyor.
Sub AUTO_OPEN()
DoEvents
Application.OnTime Now + TimeValue("00:00:05"), "Yenile"
End Sub
Sub Yenile()
DoEvents
Application.CalculateFull
ActiveWorkbook.RefreshAll...
...Yapmak istediğim dosyayı kapatınca makro dursun.
Dim stopit As Boolean
Sub clock()
If stopit = True Then Exit Sub
ActiveWorkbook.Worksheets(1).Cells(1, 1).Value = Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
End Sub
Sub auto_open()
Module1.clock
End Sub
...bulamadım. Yardımcı olanlara şimdiden tşkler. Sayg.
Sub Auto_Open()
Dim sure As Date
sure = Sheets("Ayarlar").Range("E1")
Application.OnTime Now + TimeValue("00:05:00"), "sayfasay"
End Sub
Sub sayfasay()
Dim yetkisay As Long
Dim Ayarlar As Long
If Sheets("Ayarlar").Range("B1") = 1 Then...
...olarak gidiyor ama ek olarak saat bilgisi eklemek istiyorum sadece. Sadece istediğimde saatte dosyanın mail olarak gitmesi için ne yapabilirim. Bir kaç kod buldum ama işe yaramadılar.
Örnek kod :
Sub Zamanı_Geldi()
Application.OnTime TimeValue("12:00:00"), "Excel_ile_Mail_Gönderme"
End Sub
...= False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
AktifSayfa.Range("B" & konum).Value = "Veri alış tarihi ve saati: " & FormatDateTime(VBA.Now, vbGeneralDate)
Next i
Application.OnTime Now + TimeValue("01:00:00"), "ExcelceVeriAl"
End Sub
...= "YES" Then
CDO_Mail_Gonder
End If
Call SetTime
End Sub
Sub SetTime()
SchedRecalc = Now + TimeValue("00:00:01")
Application.OnTime SchedRecalc, "Recalc"
End Sub
Sub Durdur()
On Error Resume Next
Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub
..."Parametre Dağılım" isimli dosyada ilgili kısımlara geliyor.İlgili kod aşağıdadır.
Sub auto_open()
Call clock
End Sub
Sub clock()
Application.OnTime Now + TimeValue("00:00:30"), "hesapla"
End Sub
Sub hesapla()
Dim wb_Numune, wb_Parametre As Workbook
For Each vb In Workbooks
If vb.Name =...
...sayfayı otomatik kaydettiğinde uyarı mesajı versin mesaj tekrar kapanmasını istiyorum.
Yardımcı olur musunuz?
Sub Auto_Open()
Application.OnTime Now + TimeSerial(0, 0, 30), "Auto_Open"
CreateObject("WScript.Shell").Popup "Sayfa otomatik kaydedildi! . .", 1, "UYARI"
ThisWorkbook.Save
End Sub
...Kaydetme" Kodlamasının Modül'de değil de, "Bu Çalışma Kitabı"'nda çalışmasını sağlayacak düzenleme konusunda yardımlarınızı rica ederim.
Sub auto_open()
Application.OnTime Now + TimeValue("00:05:00"), "Kayıt"
End Sub
Sub Kayıt()
ActiveWorkbook.Save
MsgBox "Kitap Kaydedildi"
Call auto_open...
...göz kırpıyor gidip geliyor. Bu işlemlerin kullanıcıyı etkilememesi için yapılabilecek bir şeyler varmı.
Sub zamanlama()
DoEvents
Application.OnTime Now + TimeValue("00:00:15"), "saniye"
End Sub
Sub saniye()
If Sayfa1.Cells(2, "j") = 1 Then
GoTo atla1
End If
If Sayfa1.Cells(2, "ı") = 0 Then...
Formda aramama rağmen işimi görecek sonuç bulamadım.
bir userform var ve örneğin saat 18:00 açılmasını istiyorum.
Private Sub UserForm_Activate()
Application.OnTime TimeValue("18:00:00"), "UserForm1"
End Sub
Böyle bir kod budum ama çalışmıyor. Yardımlarınızı bekliyorum. Teşekkürler
Sub calis()
DoEvents
Call veriler
basla
End Sub
Sub basla()
DoEvents
Application.OnTime Now + TimeValue("00:00:05"), "calis"
End Sub
Bu şekilde kod ile 5sn. arayla userforma veri çekme işlemi yapıyorum.
Fakat kod sürekli çalışyor formu kapsam dahi devam ediyor.
Ctrl+Break ya da pause ile...
...amacı ile userform üzerinde bir label'e saat uygulaması yerleştirdim ve :
1-userform_initialize() altına
Me.Label17 = Time
Application.OnTime Time + TimeValue("00:00:01"), "Live_time"
2-Modul1 altına
Sub Live_time()
Application.OnTime Time + TimeValue("00:00:01"), "Live_time"...
...ikinciyi, o da bitmeden üçüncüyü çalmaya başlıyor. Sonuç olarak sadece son dosya düzgün çalıyor. Bu durumu çözmek için
"Application.OnTime Now + TimeValue("00:00:02"), "YüzOku" "
şeklinde 2 sn. bekletme koydum. Sorun kısmen çözüldü. Rakamlar arasında biraz fazla bekliyor. Süreyi 1 sn...
...açıyor.Bunu önlemenin bir yolu varmı?Yazılan kod yüzünden mi oluyor?
Teşekkürler
Sub auto_open()
Call clock
End Sub
Sub clock()
Application.OnTime Now + TimeValue("00:00:10"), "hesapla"
End Sub
Sub hesapla()
Dim wb_Numune, wb_Parametre As Workbook
For Each vb In Workbooks
If vb.Name =...
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.