Ir ao conteúdo
  • Cadastre-se

Lucas Rios

Membro Júnior
 Perfil  Explorar Conteúdo

  • Posts

    3

  • Cadastrado em

  • Última visita

 Tipo de conteúdo 

posts postados por Lucas Rios

    Dados > Editar Links > Alterar Fontes

    em Microsoft Office e similares

    Postado

    Prezados,

     

    estou com dificuldade em alterar a fonte de dados para alimentar minha planilha.

     

    A planilha tem 19.288 registros. Ao selecionar determinada planilha como fonte de dados (Dados > Editar Links > Alterar Fonte), o sistema roda durante um ou dois minutos, porém sem resultado (nenhuma informação é resgatada e a fonte atual permanece nas fórmulas).

     

    Alguém poderia dar um help?

     

    Obrigado!!

    VBA - Função Case

    em Microsoft Office e similares

    Postado

    Muito obrigado!!


    Osvaldo, a macro solicitada refere-se à edição de link com outra planilha Excel:

     

    -----------------------
    Sub Fortescue()
     
        ChDir "C:\Users\Lucas\Documents\Garbage"
     
        ActiveWorkbook.ChangeLink Name:= _
            "C:\Users\Lucas\Documents\Arrium\Financials.xlsx", NewName:= _
            "C:\Users\Lucas\Documents\Garbage\Fortescue.xlsm", Type:=xlExcelLinks
     
    End Sub
    -----------------------
     
    A macro estava funcionando bem, inclusive associada à rotina "Case then Call" que você sugeriu. Contudo, após fechar e abrir a planilha, a macro deixou de funcionar. O erro está na parte em negrito, conforme destacado acima.
     
    Mensagem de erro:
     
         Erro em tempo de execução: '1004':
         O método 'ChangeLink' do objeto '_Workbook' falhou.
     
    ALguma sugestão para o motivo da falha repentina?
     
    Obrigado mais uma vez.

    VBA - Função Case

    em Microsoft Office e similares

    Postado

    Prezados, muito bom dia!

     

    Sou iniciante no VBA e gostaria de tirar uma dúvida básica.

     

    Estou tentando chamar uma função de acordo com o valor de uma célula, utilizando o código abaixo. Ocorre que esse código só funciona se o valor da célula for digitado pelo usuário; no meu caso, em que o valor da célula é vinculado ao resultado de outra, o código não é sensibilizado. Alguém poderia propor um ajuste?

     

    Agradeço a atenção!

     

    Abraços!

     

    Private Sub Worksheet_Change(ByVal Target As Range)
            Application.EnableEvents = False
            
            If Not Intersect(Target, Range("AB6")) Is Nothing Then
               
            Select Case Target
                 Case 101
                   Call Fortescue
                 Case 102
                   Call Arrium             
                 Case Else
               End Select
     
            End If
            Application.EnableEvents = True
    End Sub

     

     


    Ops, generalizando:
     
          Select Case Target
                 Case 1
                   Call Macro_1
                 Case 2
                   Call Macro_2             
                 Case Else
               End Select

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

Mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!