Api kodu ile alınan verileri arşivlemek

[esperavan]

Merhaba,

İki sorum olacak

İlki api kodundan gelen iki ayrı veriyi A1 ve B1 hücresine yönlendirdim. Bu içerikler de 1 dakikada bir yenileniyor. Ben bu iki verinin arşivini tutmak istiyorum.
İstediğim 1 dakika ile yenilenen bu verileri, 1 dakika ara ile makronun çalışmasını sağlayarak A1 hücresini D sütununda, B1 sütununu E sütununda alt alta gidecek şekilde arşivlemek. Arşivlerken de F sütununa arşivin gerçekleştiği tarih, G sütuna da arşivin gerçekleştiği saat bilgisinin yazması. Görseli ektedir.

İkincisi de aşağıdaki linkte daha önce sorduğum hücre değerine göre mail gönderimi ile ilgili, mail gönderimini yapıyor fakat, zaman ayarını yapamadığım için makro döngüye girerek seri şekilde mail atıyor. 1 dk arayla hücreyi kontrol edip hücre istenen metni veriyorsa mail gönderimin yapılmasını istiyorum.

http://www.excel.web.tr/f48/hucre-deoerine-gore-mail-gonderimi-t164110.html#post893803

Bu konularla ilgili yardımlarınızı rica ederim.

 

[esperavan]

A1 : api1 değeri
B1 : api2 değeri
C1 : Güncel Tarih
D1 : Güncel Saat
olacak şekilde hücreleri düzenledim.
F - G - H - I hücrelerine yeni hücre ekleyerek buraya A1-B1-C1-D1 i değerleri yapıştırarak arşiv bilgilerini manuel olarak aldım.
Ontime komutu ile örnek olarak 10 saniyede bir bu işlemi tekrarlamak istediğimde makro bir defa çalıştıktan sonra devam etmiyor. Makroda bir hatamı var veya bu işlemin sürekli olması için özelliklerde işaretlemem gereken bir alan yada add-ins e eklemem gereken bir makromu var?

Makro bu şekilde
Sub ca()

Application.OnTime Now + TimeSerial(0, 0, 10), "Makro7"

End Sub

Sub Makro7()
'
' Makro7 Makro
'
' Klavye Kısayolu: Ctrl+t
'
Range("F1:I1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A11").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A3").Select
End Sub

 

[yanginci34]

Denermisiniz.

Sub Makro7()
'
' Makro7 Makro
'
' Klavye Kısayolu: Ctrl+t
'
Range("F1:I1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A11").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A3").Select
Call ca
End Sub

 

[esperavan]

Evet şimdi oldu. Teşekkürler yanginci34

Aynı işlemi mail gönderim makrosunda da deneyim, bakalım yapabilecekmiyim.

 

[yanginci34]

Rica ederim kolay gelsin.