locked
Macro automática ao clicar em uma das planilhas da pasta de trabalho RRS feed

  • Pergunta

  • Gostaria de inserir uma macro que aparecesse automaticamente ao clicar em uma das abas da planilha.


    A que criei ficou assim:

    Sub Estudosporitem_Select()

    ' Estudosporitem_Open Macro

        If Sheets("Estudosporitem").Select Then
        DialogSheets("Caixa de diálogo1").Show
       
        End If
    End Sub

    Mas ao clicar nessa aba da planiha a macro não é executada. Alguém poderia me ajudar nisso?

    • Editado Mai_S.A. _ quinta-feira, 21 de janeiro de 2010 15:25 mais informações
    quinta-feira, 21 de janeiro de 2010 13:58

Respostas

  • Maira
    Coloque no módulo EstaPasta_de_Trabalho

    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
      If ActiveSheet.Name = "Estudoporitem" then
            DialogSheets("Caixa de diálogo1").Show
      End If

    End Sub

    Ok
    se atender responda como resposta

    Wesley
    • Marcado como Resposta Mai_S.A. _ sexta-feira, 22 de janeiro de 2010 13:20
    quinta-feira, 21 de janeiro de 2010 17:28

Todas as Respostas

  • Maira
    Coloque no módulo EstaPasta_de_Trabalho

    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
      If ActiveSheet.Name = "Estudoporitem" then
            DialogSheets("Caixa de diálogo1").Show
      End If

    End Sub

    Ok
    se atender responda como resposta

    Wesley
    • Marcado como Resposta Mai_S.A. _ sexta-feira, 22 de janeiro de 2010 13:20
    quinta-feira, 21 de janeiro de 2010 17:28
  • OK !!!

    Deu certo!!!

    Muito obrigada!!!

    • Editado Mai_S.A. _ sexta-feira, 22 de janeiro de 2010 13:15 + info
    sexta-feira, 22 de janeiro de 2010 13:10