GÜNLÜK VERİ KAYDI

[yusufatas]

Merhaba;

Ekteki dosyada sol kutuda yazan sayıların sağ kutudaki gibi günlük olarak dosyanın açılış kapanışında farklı bir sayfaya kaydedilmesini sağlamak istiyorum.Kaydetme işlemi toplama işlemlerinide kaydetmeli

Tesekkurler.

 

[ÖmerBey]

Merhaba,
Farklı bir sayfanın Sayfa2 olduğunu varsayarsak aşağıdaki kodu boş bir modüle kopyaladıktan sonra dosyanızı kaydedip deneyiniz.

Private Sub Auto_Open()
Call kaydet
End Sub
Private Sub Auto_Close()
Call kaydet
End Sub
Private Sub kaydet()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(son, "A") = Date
For a = 2 To 4
    s2.Cells(son, a) = s1.Cells(a + 3, "F")
Next
ThisWorkbook.Save
End Sub

 

[yusufatas]

Merhaba,
Farklı bir sayfanın Sayfa2 olduğunu varsayarsak aşağıdaki kodu boş bir modüle kopyaladıktan sonra dosyanızı kaydedip deneyiniz.

Private Sub Auto_Open()
Call kaydet
End Sub
Private Sub Auto_Close()
Call kaydet
End Sub
Private Sub kaydet()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(son, "A") = Date
For a = 2 To 4
    s2.Cells(son, a) = s1.Cells(a + 3, "F")
Next
ThisWorkbook.Save
End Sub

aralıklı hücrelerde kaydetme işlemini nasıl yapabilirim yani yanyana yada alt alta hücreler değil

 

[ÖmerBey]

Hücre adresini tek tek belirterek.

 

[yusufatas]

Hücre adresini tek tek belirterek.

hücre adresi belirtme kodu nedir makroyu bilmiyorum

Teşekkürler.

 

[ÖmerBey]

Ben de hangi hücreleri kaydetmek istediğinizi bilmiyorum, onun için önceki mesajı yazmıştım. Neyse kaydetme kodunuzu aşağıdaki ile değiştirip kırmızı alanı kendi isteğinize göre güncellersiniz.

Private Sub kaydet()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
sut = 2
son = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(son, "A") = Date
For Each hcr In s1.Range("A1,A10,B20,D36")
    s2.Cells(son, sut) = hcr.Value
    sut = sut + 1
Next
ThisWorkbook.Save
End Sub

 

[yusufatas]

resimdeki tabloyu excel dosyasının kapanışında aynı 2 sutun ve satırlar olarak kaydetmek için kodda yardımcı olur musunuz

Teşekkürler.