aşağıdaki macroda saniyeyi dakika yapınca çalışmıyor neden olabilir
birde burada sayfa 1 in birinci satırındaki veriler sayfa 2 ye aktarılıyor 2 ci satırını sayfa 3 e aktarabilirmiyim
Sub aktar()
Do
DoEvents
[e1] = Format(Now, "hh:mm:ss")
If Second(Now) = 1 Then c = 0
If Second(Now) = 0 And c = 0 Then
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s1.Range("a2:d2").Copy
sonsat = s2.[a65536].End(3).Row + 1
s2.Cells(sonsat, "a").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
c = c + 1
End If
Loop
End Sub
birde burada sayfa 1 in birinci satırındaki veriler sayfa 2 ye aktarılıyor 2 ci satırını sayfa 3 e aktarabilirmiyim
Sub aktar()
Do
DoEvents
[e1] = Format(Now, "hh:mm:ss")
If Second(Now) = 1 Then c = 0
If Second(Now) = 0 And c = 0 Then
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s1.Range("a2:d2").Copy
sonsat = s2.[a65536].End(3).Row + 1
s2.Cells(sonsat, "a").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
c = c + 1
End If
Loop
End Sub