10초마다 시트 간을 이동하고, 20분마다 데이터를 하나의 코드로 가져옵니다.

Question

10초마다 시트 사이를 전환하고 복사-붙여넣기 기능을 사용하여 일부 데이터를 가져오는 일부 코드를 20분마다 실행한 다음 "Esc"를 누를 때까지 반복하는 스크립트가 필요합니다.

이것은 지금까지 내 코드입니다.

Sub Move_Between_Sheets()
  Dim i As Long, j As Long, t As Single, k As Long
  Application.ScreenUpdating = True
i = 0
  j = Sheets.Count
  On Error GoTo exit_
  Application.EnableCancelKey = xlErrorHandler

  Do
  For k = 1 To 3
    i = i + 1
    If i > j Then i = 1
    Sheets(i).Select
    t = Timer + 1
    Application.Wait Now + TimeSerial(0, 0, 10)
    If Timer < t Then Exit Do
  Next k
  Call BringPK03
  Loop
exit_:
End Sub 
------------------
Sub BringPK03()

Dim sheet As Worksheet
Dim wbPlantillas As Workbook
Dim wbAplicativo As Workbook

Set wbAplicativo = ThisWorkbook
 Application.ScreenUpdating = False
    'Application.Calculation = xlCalculationManual
'13. URL [Link]
'The database workbook is opened from WorkPoint. The sheets in database workbook are copied and pasted in wbAplicativo
   Set wbPlantillas = Workbooks.Open("C:\Users\jmartine\Desktop\Tracking Advance.xlsx", True, True)

   wbPlantillas.Sheets("FC Paso a Paso").Range("A1:AU4500").Copy

   wbAplicativo.Sheets("Sheet1").Range("A1:AO1573").PasteSpecial xlPasteValues
   Application.CutCopyMode = False

   wbPlantillas.Close savechanges:=False
   Windows("BringData.xlsm").Activate

   wbAplicativo.Worksheets("Sheet1").Activate
   Application.ScreenUpdating = True
   Range("A1").Select
   Call Move_Between_Sheets


End Sub

내 코드는 BringPK03 함수가 데이터를 가져와 내 통합 문서에 붙여넣을 때까지 실행됩니다. 그런 다음 코드는 계속 진행되지만 시트 간 이동이 작동하지 않습니다.

Answer 1

Move_Between_Sheets()에서 시트를 선택하지만 활성화하지는 않습니다. 전환은 활성화한 후에만 수행됩니다.