Çalışma kitabı bölümüne aşağıdaki satırları ekleyip deneyiniz.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not IsEmpty(CloseDownTime) Then
Application.OnTime EarliestTime:=CloseDownTime, Procedure:="CloseDownFile", Schedule:=False
End If
End Sub
...MODÜL KODU
Public CloseDownTime As Variant
Public Sub ResetTimer()
On Error Resume Next
If Not IsEmpty(CloseDownTime) Then Application.OnTime EarliestTime:=CloseDownTime, Procedure:="CloseDownFile", Schedule:=False
CloseDownTime = Now + TimeValue("00:10:00") ' hh:mm:ss
Application.OnTime...
Merhaba,
Deneyiniz..
Sub Auto_Open()
Application.OnTime Now + TimeValue("00:00:10"), "Kopya_Al"
End Sub
Sub Kopya_Al()
Application.ScreenUpdating = False
Sheets("VERİ ").[A:E].Copy
Sheets("VERİ 2 ").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone...
Malesef dosyamda istediğim gibi olmadı aşağıda verdiğim kısımı birleştiremedim bir türlü.
Sheets("VERİ_GİRİŞİ").Select
Range("A1:D" & Rows.Count) = ""
bu kodun siyah ile belirtiği select yerini silip range kısmını getiriyorum noktadan sonra fakat hata veriyor bu seferde bulunduğum sayfaya...
...(Sayfayı veya hücreyi "Select" ile seçtirmeyin. Direkt olarak bilginin yazılması istenilen hücreyi gösterin.)
Sub GetData2()
If dur = 0 Then
Sheets("VERİ_GİRİŞİ").Range("B4") = "DENEME123"
Application.OnTime Now + TimeSerial(0, 0, 5), "GetData2"
Else
dur = 0
End If
End Sub
Sub Süre()
Aplication.OnTime Now + TimeValue ("00:05:00"), "kayıt"
End Sub
Sub kayıt()
Workbooks ("Defter.xlsm").Save
Call süre
End Sub
yukarıdaki kodda 5 dakikada bir kayıt yapıyor başka bir excel dosysı açıkken defter ismindeki excelli kapatsam bile tekrar geri açılmaktadır.
Defter ismindeki...
...= xlNone
Range("F7").Font.Color = vbRed
Range("F7").Font.Bold = False
End If
Call saat
End Sub
Sub saat()
Application.OnTime Now + TimeValue("00:00:01"), "basla"
End Sub
Sayfa 1 (Code) altındaki kodlar :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If...
Çok sağolun. Yenilemeyi otomatiğe alamadım fakat butona atadım. Verdiğiniz kodları vba da yazınca a2-c11 arasına tablo yerleşti. Peki aynı sayfada gene steam üzerinden farklı bir listeyi çekmek istediğimde yazdığınız kodların hangisini değiştirmem gerekiyor. Url kısmı değişecek tabi fakat mesela...
Mümkün değil. Browseri gizli bir şekilde açıp excel açık olduğu sürece gizli çalışmasını sağlayıp, Application.OnTime kullanarak belirli aralıklarla yenilenmesini sağlayabilirsiniz.
Excelin web query sistemini inceleyin. Orada otomatik yenileme olabilir. Veya üzerinde sağ tıklayıp yenile...
...--Timer modülü--
Public CloseDownTime As Variant
Public Sub ResetTimer()
On Error Resume Next
If Not IsEmpty(CloseDownTime) Then Application.OnTime EarliestTime:=CloseDownTime, Procedure:="CloseDownFile", Schedule:=False
CloseDownTime = Now + TimeValue("00:30:00") ' hh:mm:ss...
..."hh:mm:ss") And Zaman <= Format(Sheets("control").Range("b3"), "hh:mm:ss") Then
deneme
Else
tekrar:
Application.OnTime Now + TimeValue("00:00:01"), "control"
End If
End Sub
Sub deneme()
MsgBox ("deneme başarılı")
Application.OnTime Now + TimeValue("00:00:20")...
...deneme
Else
GoTo Başla
End If
End If
End Sub
Sub deneme()
MsgBox ("deneme başarılı")
Application.OnTime Now + TimeValue("00:01:00"), "control"
End Sub
makromun buradaki örneğe göre 1 dakikada bir çalışması lazım, fakat belirtilen saat...
Hocam modül ekledim. Tuşla değil de otomatik olarak çalışmasını istediğim için şu kodları "Bu Çalışma Kitabı" bölümüne yapıştırdım ama çalışmadı.
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:40"), "GetData_RegExp"
End Sub
Hocam gerçekten çok teşekkür ederim, Allah razı olsun, çalıştı ancak tam olarak istediğim gibi olmuyor sebep şu ilk kez çalıştıktan ve veriyi hücreye yazdıktan sonra formül hücrede kaldığından kaynak veri değişince süresi dolmasa bile Makro ile formül yazdırdığımız hücre verisi yenileniyor. Bu...
...dosyanızın BuÇalışmaKitabı bölümüne uygulayın.
Diğer mesajda önerdiğim kodu modüle uygulayın.
Dosyanızı kaydedip kapatıp açın.
Dosyanızın açılışında kod devreye girecektir.
Option Explicit
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:40"), "Formul_Yaz"
End Sub
Bu kodu sizin kodla birleştirdim ama çalışmadı,
Sub Auto__Open()
DoEvents
Application.OnTime Now + TimeValue("00:00:01"), "Formul_Yaz"
End Sub
Sub Formul_Yaz()
Range("A1").Formula = "=Kur!A1"
End Sub
...= TimeSerial(Hour(Now), Minute(Now), Second(Now))
Sheets("zil").Range("A1").Value = Simdi
If saat = True Then
Application.OnTime Now + TimeValue("00:00:01"), "start"
For Each Bak In Alan
Tarih = Bak.Value
If Tarih = Simdi Then...
Sayın dalgalıkur paylaşmış olduğunuz kodlar çalışmadaki kodlara nazaran daha kullanışlı değişikliği yaptım ancak halen A1 ve C2 hücrelerindeki saatin yanındaki tarih formatı devam ediyor.
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.