none
Executar a macro automaticamente ao abrir o programa excel RRS feed

  • Pergunta

  • Olá amigos 

    Na empresa onde trabalho existe um pequeno problema, quando extraímos dados do sistema operacional com o qual trabalhamos para o Excel algumas informações ficam diferentes, por  Exemplo.

    Código da peça no sistema: "08.510.3333" 

    Código da peça no Excel:"85.103.333"

    Pois bem, criei a seguinte macro para tentar solucionar o problema:

    Public Sub habilitar()
    Cells.Select
        Selection.NumberFormat = "@"
        Range("A1").Select
    End Sub
    Public Sub Auto_Open()
        Call habilitar
    End Sub

    Esta macro formata as células como texto, porém funcionou apenas na pasta de trabalho pessoal de macros "Pessol.xlsm".

    Sabendo que quando a extração de dados do sistema é executada gera uma nova planilha no excel por exemplo quando você inicia o excel, onde a planilha não esta salva em nenhum lugar aparece assim "pasta 1".

    Pergunta:

    Haveria uma forma de executar esta macro sempre quando fosse abrir o programa excel, para que as celulas fossem automaticamente formatadas como texto.

    Obrigado pela atenção;

    Se conseguirem me ajudar como problema ficarei grato;

    Atenciosamente....

    sábado, 19 de janeiro de 2013 17:56

Respostas

  • Formate as células de todas as planilhas da pasta de trabalho Personal.xlsb como texto e dispense o uso de códigos. Para criar essa pasta de trabalho, veja aqui: http://www.ambienteoffice.com.br/excel/disponibilizar_macros_favoritas_para_todas_as_pastas_de_trabalho/

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sábado, 26 de janeiro de 2013 15:54
    Moderador

Todas as Respostas

  • Olá amigos 

    Na empresa onde trabalho existe um pequeno problema, quando extraímos dados do sistema operacional com o qual trabalhamos para o Excel algumas informações ficam diferentes, por  Exemplo.

    Código da peça no sistema: "08.510.3333" 

    Código da peça no Excel:"85.103.333"

    Pois bem, criei a seguinte macro para tentar solucionar o problema:

    Sub teste()

        Cells.Select

        Selection.NumberFormat = "@"

        Range("A1").Select

    End sub

     

    Private Sub Workbook_Open()

    Me.teste

    End Sub


    Esta macro formata as células como texto, porém funcionou apenas na pasta de trabalho pessoal de macros "Pessoal.xlsm".

    Sabendo que quando a extração de dados do sistema é executada gera uma nova planilha no excel por exemplo quando você inicia o excel, onde a planilha não esta salva em nenhum lugar aparece assim "pasta 1".

    Pergunta:

    Haveria uma forma de executar esta macro sempre quando fosse abrir o programa excel, para que as celulas fossem automaticamente formatadas como texto.

    Obrigado pela atenção;

    Se conseguirem me ajudar com esse problema ficarei grato;

    Atenciosamente....


    domingo, 20 de janeiro de 2013 15:26
  • Cole o código do subprocedimento habilitar na classe EstaPasta_de_trabalho, no evento Workbook_Open.

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sexta-feira, 25 de janeiro de 2013 21:46
    Moderador
  • Blz Felipe!

    Na verdade os codigos utilizados são esses:

    Sub teste()

        Cells.Select

        Selection.NumberFormat = "@"

        Range("A1").Select

    End sub

     

    Private Sub Workbook_Open()

    Me.teste

    End Sub

     

    A ideia é a seguinte: 

    Haveria uma forma de executar esses procedimentos ao iniciar o programa Excel automaticamente.

    Sabendo que ao extrair os dados do sistema gera uma nova planilha onde a mesma não esta salva em nenhuma pasta se trabalho. Ex:"Pasta1".

    Fico no aguardo,

    Atenciosamente...

    sábado, 26 de janeiro de 2013 15:17
  • Formate as células de todas as planilhas da pasta de trabalho Personal.xlsb como texto e dispense o uso de códigos. Para criar essa pasta de trabalho, veja aqui: http://www.ambienteoffice.com.br/excel/disponibilizar_macros_favoritas_para_todas_as_pastas_de_trabalho/

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sábado, 26 de janeiro de 2013 15:54
    Moderador