Preciso de uma ajuda para construir uma macro com os seguintes parâmetros:
O arquivo tem 2 planilhas, nominadas de "Indice" e "Historico"
Preciso que a macro execute a cada 1 minuto, copiando o intervalo F2:F76 (da plan "Indice"), para a plan "Historico", na coluna C2:C76...na proxima vez que copiar, deverá colar na coluna subsequente, ou seja (D2:D76), e assim por diante...
Tentei com o seguinte código:
Public dTime As Date
Public st As Date
Sub Copia()
If Time > #5:31:00 PM# Then Exit Sub
dTime = Now() + TimeValue("00:01:00")
Application.OnTime dTime, "Copia"
ThisWorkbook.Sheets("Historico").Cells(ThisWorkbook.Sheets("Historico").Columns.Count, 1).Resize(1, 1).Value = _
Array(Time, ThisWorkbook.Sheets("Indice").Range("F2:F76")).Copy
ThisWorkbook.Sheets("Indice").Buttons("Botão 1").Caption = "PARAR"
End Sub
Sub IniciaParaReinicia()
On Error Resume Next
Application.OnTime dTime, "Copia", , False
Application.OnTime st, "Copia", , False
If ActiveSheet.Buttons(Application.Caller).Caption = "PARAR" Then
ActiveSheet.Buttons(Application.Caller).Caption = "REINICIAR"
ElseIf InStr(ActiveSheet.Buttons(Application.Caller).Caption, "INICIAR") > 0 Then
ActiveSheet.Buttons(Application.Caller).Caption = "PARAR"
Application.OnTime Application.Ceiling(Time, "00:01:00"), "Copia"
End If
End Sub