Makro Kaydet Sorunu

[igultekin2000]

iyi günler;
Html formatındaki e faturayı excel sayfasına alıyorum. ve Sheet2 sayfasına aktarılıyor. Sheet2 sayfasındaki veriyi Sheet3 sayfasında biriktiriyorum. Makro kaydet ile yaptığım işlemede A2 hücresindeki değer formülle geldiği için Sheet3'e makro kaydet ile aktarıldığı için tarih kısmı hep aynı tarih oluyor. Makroda nasıl bir düzenleme yapmalıyım ki tarih faturadaki tarih olsun. Teşekkürler.

Sub Makro3()
'
' Makro3 Makro
'

'
    Sheets("Sheet2").Select
    Range("A2:G2").Select
    Selection.Copy
    Sheets("Sheet3").Select
    Application.Goto Reference:="R999C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "7/29/2020 10:57" 
    ActiveCell.Offset(1, 0).Range("A1").Select
    Sheets("Sheet2").Select
    Range("A2").Select
    Sheets("Sheet1").Select
    Range("F2").Select
End Sub

 

[Muzaffer Ali]

Merhaba.

ActiveCell.FormulaR1C1 = "7/29/2020 10:57"

kısmını aşağıdaki gibi yapın.

ActiveCell.FormulaR1C1 = now

 

[Muzaffer Ali]

İsterseniz aşağıdaki kodları kullanın daha hızlı çalışır.

Sub Test()
    Dim SonSatir As Integer
    SonSatir = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row + 1
    Sheets("Sheet2").Range("A2:G2").Copy
    Sheets("Sheet3").Cells(SonSatir, "A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Sheet3").Cells(SonSatir, "A") = Now
    Application.CutCopyMode = False
End Sub

 

[igultekin2000]

Yazdığınız makro daha pratik oldu, teşekkür ederim, iyi çalışmalar.