veri kaydı

[PEPE]

aşşağıdaki makroyu aynı kitap içindeki sheete değilde farklı bir çalışma kitabındaki sheete verilerimi kaydetmesini istiyorum.
buna göre nasıl düzenleyebilirim
yardımlarınız için teşekkür.

bu makro yine bu form içinden alınmıştır.

Sub auto_open()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("liste")
s2.Select
Do
DoEvents
s2.[a1] = Format(Now, "hh:mm:ss")
If Second(Now) = 1 Then c = 0
If Second(Now) = 0 And c = 0 Then
sat = WorksheetFunction.CountA(s2.[a3:a65536])
For a = 1 To 5
s2.Cells(sat + 3, 1) = Format(Date, "dd mmmm yy")
s2.Cells(sat + 3, 2) = Format(Now, "hh:mm")
s2.Cells(sat + 3, a + 2) = s1.Cells(1, a).Value
Next
c = c + 1
End If
Loop
End Sub
Sub auto_close()
End
End Sub

 

[Levent Menteşoğlu]

Diğer kitabınızın adı örneğin "kitap1" , verilerin kaydedileceği sayfa ismide "liste" olsun. Bu durumda Set s2 = Sheets("liste") satırını aşağıdaki ile değiştirin.

set s2=Workbooks("kitap1").Sheets("sayfa1")

Not:Kitap1 isimli dosyada açık olmalıdır.

 

[PEPE]

söylediğinizi yaptım iyi oldu ama sizinde dediğiniz gibi kaıt verilerinin gittiği kitabın açık olmadan aktarımı mümkün değilmi, yani her iki kitapda açık olmasa

 

[Levent Menteşoğlu]

açık olmadan aktarımı mümkün değilmi

Mümkün ama karışık bir işlem bu kod yapısıyla olmaz. Dosyayı hiç açmadanda ADO ile kayıt yapılabilir yada dosya gizli olarak açılabilir.

 

[PEPE]

sayın, leventm

Yardımlarınız için teşekkür ederim.

ama zamanınız olduğunda yeni kod yapısıyla yardımcı olursanız sevinirim ama uzun iş ise şimdilik buda yeter

saygılarımla,

 

[Levent Menteşoğlu]

Ekte bir dosya hazırladım. dosyanın hatasız çalışması için öncelikle "C:\" nin altında "kitap1.xls" isimli boş bir dosya oluşturun ve bu dosyayı kapatın. Sonrada ekte gönderdiğim dosyayı herhangi bir klasöre kopyalayarak açın. Dosya içindeki A1:E1 aralığındaki veriler her 10 sn de bir "kitap1.xls" dosyasına kaydedilecektir. Kaydetme süresini istediğiniz gibi ayarlayabilirsiniz. Kodun çalışması ancak ekli dosyayı kapatınca durmaktadır. Daha sonra "kitap1.xls" dosyasını açarak kayıtlı verileri görebilirsiniz. Dosyada application.ontime metodu kullanılmıştır.

 

[PEPE]

levent bey
bu bölüme tekrar döndüm ama kullandığım zamana göre kaydet makrosuna bir ekleme yapmak istedim ama olmadı private save me bölmünün altına ikincisini açtım ve içinde satır ve kayıt edilen dosya isimlerini değiştirdim zaman makrosu
bunları bulunamadı hatası veriyor
yani "application on time" metodunu altına yazacağım bir kaç makroyu birden kaydetmesi mümkünmü?