Satte 1 Yazdırma

[PEPE]

Arkadaşlar
A1 hücresindeki değeri saatte bir b1, b2, b3,...24e kadar hücrelerine nasıl okutup yazdırım?
Teşekkürler şimdiden yardımcı olanlara

 

[PEPE]

Acil elinde bu tür bir çalışma olan yokmu arkadaşlar

 

[can1789]

Sub Autpen()
DoEvents
Application.OnTime Now + TimeValue("01:00:00"), "YAZ"
End Sub

Sub YAZ()
DoEvents
Sheets("Sayfa1").Range("A1").Copy
[B65536].End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Autpen
end sub

makro konusunda uzman değilim ama bu kodu o sayfada çalıştırırsan her saat A1 değerini b hücrelerine yazar