- 12 Jan 2021 às 09:47
#61433
Bom dia, pessoal.
Estou utilizando o seguindo script:
Sub SmellsLikeTeenSpirit()
Application.ScreenUpdating = False
Dim OpexUNP As Workbook
Dim PayrollUNP As Workbook
Dim Control_Worksheet As Workbook
Planilha2.Activate
Set Control_Worksheet = ActiveWorkbook
Set OpexUNP = Workbooks.Open(Planilha2.Range("A2").Value)
'Opex UnP
Application.Run "'C:\Users\asilva2\Desktop\TESTE\Template Forecast_Opex_UnP.xlsb'!Atualizar_Prévia.InBloom"
Set PayrollUNP = Workbooks.Open(Planilha2.Range("B2").Value)
Payroll UnP
Application.Run "'C:\Users\asilva2\Desktop\TESTE\Template Forecast_Payroll_UnP.xlsb'!Atualizar_Prévia.InBloom"
Set OpexUNP = Nothing
Set PayrollUNP = Nothing
Set Control_Worksheet = Nothing
Application.ScreenUpdating = True
End Sub
Quero que me ajudem com o seguinte: eu rodo o application run pela primeira vez no opex unp, a macro abre uma outra planilha do excel, e roda uma macro nesse outro arquivo, mas após essa ação, ela não volta a ler código abaixo, no caso a parte que está descrita como payroll unp, para dar sequência no script. Tentei usar um IF, mas nem mesmo assim deu certo. Conseguem me ajudar?
Estou utilizando o seguindo script:
Sub SmellsLikeTeenSpirit()
Application.ScreenUpdating = False
Dim OpexUNP As Workbook
Dim PayrollUNP As Workbook
Dim Control_Worksheet As Workbook
Planilha2.Activate
Set Control_Worksheet = ActiveWorkbook
Set OpexUNP = Workbooks.Open(Planilha2.Range("A2").Value)
'Opex UnP
Application.Run "'C:\Users\asilva2\Desktop\TESTE\Template Forecast_Opex_UnP.xlsb'!Atualizar_Prévia.InBloom"
Set PayrollUNP = Workbooks.Open(Planilha2.Range("B2").Value)
Payroll UnP
Application.Run "'C:\Users\asilva2\Desktop\TESTE\Template Forecast_Payroll_UnP.xlsb'!Atualizar_Prévia.InBloom"
Set OpexUNP = Nothing
Set PayrollUNP = Nothing
Set Control_Worksheet = Nothing
Application.ScreenUpdating = True
End Sub
Quero que me ajudem com o seguinte: eu rodo o application run pela primeira vez no opex unp, a macro abre uma outra planilha do excel, e roda uma macro nesse outro arquivo, mas após essa ação, ela não volta a ler código abaixo, no caso a parte que está descrita como payroll unp, para dar sequência no script. Tentei usar um IF, mas nem mesmo assim deu certo. Conseguem me ajudar?
