Verileri gün sonunda otomatik aktarma

[Mdemir63]

Selamlar
Arkadaşlar
Sayfa 1 deki İşlem toplamını gün döndüğünde yani saat 24 den sonra otomatik olarak Sayfa3 e ilgili yerlere atacak ve Sayfa 1 deki işlemler toplamını silecek. Bunu nasıl yapabilirim?

Saygılar

 

[N.Ziya Hiçdurmaz]

yanıt

Bu işlem için dosyanız açık olmalı.

Sub auto_open()
Application.OnTime TimeValue("00:00:01"), "calis"
End Sub
Sub calis()
son = Sayfa3.Cells(65536, "b").End(xlUp).Row + 1
Cells(son, "b") = Sayfa1.[a2].Value
Cells(son, "a") = Date
Sayfa1.[a2] = Empty
End Sub

 

[Mdemir63]

Bu işlem için dosyanız açık olmalı.

Sub auto_open()
Application.OnTime TimeValue("00:00:01"), "calis"
End Sub
Sub calis()
son = Sayfa3.Cells(65536, "b").End(xlUp).Row + 1
Cells(son, "b") = Sayfa1.[a2].Value
Cells(son, "a") = Date
Sayfa1.[a2] = Empty
End Sub

Selamlar,
Hocam, 1. si bu kodları nereye kaydedeceğim.
2. si Sayfa2 de de aynı Sayfa1 de ki gibi sonuç var ikisini toplayarak Sayfa3 ilgili yere atacak ve hem Sayfa1 hemde Sayfa2 deki bilgileri silecek.

Saygılar

 

[Mdemir63]

Selamlar,
Hocam kodları modül içine kopyaladım çalıştı ama , Sayfa3 e ilgili yere atmıyor. Sayfa1 de b sütununa atıyor.

Saygılar

 

[Mdemir63]

Selamlar,

Hocam kodları bu gönderdiğim dosyada çalıştırdım. Ancak asıl dosyama uyguladığımda çalışmıyor. Çünkü asıl dosyamda Userform1 var . Bu yüzden otomatik çalışmıyor. Kodlarda neryi değiştirmem gerekiyor. Çünkü dosya açılırken direkt olarak Userformla açılıyor.

Saygılar