tarih ekleme

[sinnernekolens]

Arkadaşlar bu koda nasıl tarih ve saat ekleyebilirim? Her döviz çekmesinde tarih saat atmasını istiyorum altına.
birde (.ClearContents) bu kod yüzünden alt sütünlardaki bilgileri siliyor galiba nasıl düzeltebilirim

Sub dovizz()
Dim hucre As Range
[r:t].ClearContents
    With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.tcmb.gov.tr/yeni/tablolar.php", Destination:=[r2])
        .WebFormatting = xlWebFormattingNone
        .WebTables = "4"
        .Refresh BackgroundQuery:=False
    End With
    For Each hucre In [s4:t5]
    hucre = hucre / 10000
    Next
    [s4:t5].NumberFormat = "General"
End Sub

 

[Orion1]

Deneyiniz.

Sub dovizz()
Dim hucre As Range
[r2:t5].ClearContents
    With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.tcmb.gov.tr/yeni/tablolar.php", Destination:=[r2])
        .WebFormatting = xlWebFormattingNone
        .WebTables = "4"
        .Refresh BackgroundQuery:=False
    End With
    For Each hucre In [s4:t5]
    hucre = hucre / 10000
    Next
    Range("T2").Value = Now
    Range("T1").NumberFormat = "dd.mm.yyyy hh:mm:ss"
    [s4:t5].NumberFormat = "General"
End Sub

 

[sinnernekolens]

tesekkürler

 

[sinnernekolens]

Hepinize selamlar, yukarıdaki kodda, butonu sayfa1'e ekleyip bilgileri sayfa2'ye aktarmasını istiyorum yardımlarınızı rica ederim