Boa tarde,

Você poderia colocar o código para atualizar na planilha que tem o Dashboard. Ou seja, o código fica no Dashboard e você chama quando precisa atualizar.

att,

brunoxro

O codigo abaixo esta na planilha dashboard... Quando minha outra planilha base abre ela para tentar atualizar a macro "ativa" sendo que não consigo atualizar

MACRO ESTA DENTRO ESTAPASTA DE TRABALHO

Private Sub Workbook_Open() 'Executa ao abrir essa pasta de trabalho

Application.ScreenUpdating = False

    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayGridlines = False
    Application.DisplayFullScreen = True
    Application.DisplayFormulaBar = False
    Sheets("Menu").Select

    Dim dHora As Integer

Dim MinhaHora
MinhaHora = Hour(Now)
Select Case MinhaHora
    Case 1 To 5
        MsgBox "Boa Noite, Seja Bem Vindo " & Application.UserName, vbInformation, "Gestão de Internação"
    Case 6 To 11
        MsgBox "Bom Dia, Seja Bem Vindo " & Application.UserName, vbInformation, "Gestão de Internação"
    Case 12 To 17
        MsgBox "Boa Tarde, Seja Bem Vindo " & Application.UserName, vbInformation, "Gestão de Internação"
    Case 18 To 24
        MsgBox "Boa Noite, Seja Bem Vindo " & Application.UserName, vbInformation, "Gestão de Internação"
End Select

Application.ScreenUpdating = True
ActiveWorkbook.RefreshAll

Call RefreshPivotTables

End Sub


Private Sub Workbook_beforeclose(Cancel As Boolean)
'ativa ao clicar botão "x" do excel para fechar o mesmo

Application.DisplayAlerts = False

Application.ScreenUpdating = False

Sheets("Menu").Select

Dim dHora As Integer

Dim MinhaHora
MinhaHora = Hour(Now)
Select Case MinhaHora
Case 1 To 5
    MsgBox "Obrigado e Boa Noite " & Application.UserName, vbInformation, "Gestão de Internação"
Case 6 To 11
    MsgBox "Obrigado e Bom Dia " & Application.UserName, vbInformation, "Gestão de Internação"
Case 12 To 17
    MsgBox "Obrigado e Boa Tarde " & Application.UserName, vbInformation, "Gestão de Internação"
Case 18 To 24
    MsgBox "Obrigado e Boa Noite " & Application.UserName, vbInformation, "Gestão de Internação"
End Select


Application.DisplayFullScreen = False

Application.ScreenUpdating = True


    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayGridlines = True
    Application.DisplayFullScreen = False
    Application.DisplayFormulaBar = True
    Application.DisplayAlerts = True
    
   
   ActiveWorkbook.Saved = True
    
  Sheets("Menu").Select
       
Application.ScreenUpdating = True

End Sub

Boa tarde JPerez,

Vou detalha melhor minha sugestão.
No caso você adicione um código dentro da planilha 'dashboard' para atualizar os dados da planilha 'base'. Você pode colocar um botão no dashboard, escolher a planilha com os dados mais recentes ('base') e copiar os valores.

A outra opção e você desabilitar esses eventos na planilha 'dashboard', copiar os dados e depois habilitar o código de novo.

att,

Fiz isso que você falou.

Criei o Dash para cada pessoa com sua respectiva conta.
Criei uma macro para atualizar informações;
ao abrir o arquivo ele automaticamente atualiza os dados fazendo a consulta direta na minha base.

Abraços e oboirgado