Ir ao conteúdo

Posts recomendados

Postado

Fala galera, estou com um problema e não sei como resolver, tenho na empresa diversas máquinas, cada uma com seu número de patrimônio. Gostaria de criar um código onde ao digitar o nº de patrimônio numa caixa e clicando em um botão pesquisar, abra a planilha desejada. As planilhas estão todas dentro de uma pasta e nomeadas com o número de patrimônio.

Alguém pode me ajudar? 

Postado

Segue sugestão de acordo com as informações passadas

Sub AbrirPlanDeterminadaPasta()
Dim wb          As Workbook
Dim nPlan       As Single
Dim strPath     As String
Dim strFile     As String

    strPath = "C:\temp\" '  * ALTERE O CAMINHO DA PASTA *

    nPlan = Excel.Application.InputBox(" Insira apenas numeros ", _
                                     "Insira o Nº de Patrimônio", Type:=1)

       If Not VBA.IsNumeric(nPlan) Then Exit Sub
  
             strFile = VBA.Dir(strPath & nPlan & ".xls*", VBA.vbArchive)

       If strFile <> "" Then

         Set wb = Excel.Workbooks.Open(strPath & strFile)

       Else
  
             MsgBox nPlan & ": ! Arquivo nao encontrado! Verifique! ", _
                                 vbCritical, "Nao Encontrado"
       Exit Sub

       End If

       wb.Activate

       wb.Worksheets(1).Activate
       

End Sub

 

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!