Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Macro para editar link

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Ramon River



Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 24
Localização : Ibirité-MG

MensagemAssunto: Macro para editar link   Qua Mar 12, 2014 9:27 pm

Caros,

Preciso de uma macro, tenho uma planilha que puxa dados de outra planilha que eu escolho através do Editar links. a macro que eu fiz pucha somente da planilha que usei como exemplo, queria que me desse a opção de escolher de qual planilha será puxados os dados.

Desde já agradeço.

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para editar link   Qua Mar 12, 2014 9:30 pm

Boa tarde!!

Se poder detalhar melhor sua dúvida.

Poste seu arquivo modelo!


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Ramon River



Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 24
Localização : Ibirité-MG

MensagemAssunto: Macro para editar link   Qua Mar 12, 2014 9:45 pm

Alexandre,

Não consigo postar o link, você poderia me ajudar por e-mail?

Eu edito os links em: Dados; Editar Link.

Eu queria que essa macro me perguntasse onde está a planilha que ela vai tirar os dados.


Me compreende agora ?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para editar link   Qua Mar 12, 2014 10:16 pm

Boa tarde!!

Cara tente camuflar o link *w*w*w.sendspace.com (veja os asteriscos)

Para abrir a caixa de dialogo......tente.
Código:
Sub Tente()
FileToOpen = Application.GetOpenFilename _
(Title:="Selecione o Arquivo", _
FileFilter:="Excel Files *.xls (*.xls),")
''
If FileToOpen = False Then
MsgBox "Não encontrado.", vbExclamation, "PSC!!!"
Exit Sub
Else
Workbooks.Open Filename:=FileToOpen
End If
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para editar link   Qua Mar 12, 2014 10:26 pm

Boa tarde!!

Talvez só isso basta
Código:
Workbooks.Open FileName:="C:\SeuDiretorio\NomedoArquivo.xlsx"
 Rolling Eyes 

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Ramon River



Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 24
Localização : Ibirité-MG

MensagemAssunto: Re: Macro para editar link   Qua Mar 12, 2014 10:30 pm

Alexandre,

Segue o link w*w*w*.4shared.com/file/Cn58Bafcba/Projeto_Wisr.html

Senha é : 1

já ta com a macro Teste, so preciso que essa me peça a planilha.

Desde já obrigado.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para editar link   Qua Mar 12, 2014 10:36 pm

Boa tarde!!

Você testou meu código?

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Ramon River



Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 24
Localização : Ibirité-MG

MensagemAssunto: Re: Macro para editar link   Qui Mar 13, 2014 7:34 pm

Alexandre,

Testei sim seu codigo mas não deu certo, abaixo o codigo que estou usando:
Código:
Sub Teste1()
'
' Teste1 Macro
'

'
    Sheets("WISR 1").Select
    ActiveSheet.Unprotect
    Sheets("WISR 1").Select
    ChDir "C:\Documents and Settings\Administrador\Desktop\CONTROLE A.P FEVEREIRO"
    ActiveWorkbook.ChangeLink Name:= _
        "C:\Documents and Settings\Administrador\Desktop\CONTROLE A.P FEVEREIRO\WISR Semana fim 04022014 # loja 53147.xls" _
        , NewName:= _
        "C:\Documents and Settings\Administrador\Desktop\CONTROLE A.P FEVEREIRO\WISR Semana fim 11022014 # loja 53147.xls" _
        , Type:=xlExcelLinks
    Sheets("WISR 1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para editar link   Qui Mar 13, 2014 8:06 pm

Boa tarde!!

Me explique mais do que pretende fazer.

Você precisa abrir vários arquivos?

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Ramon River



Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 24
Localização : Ibirité-MG

MensagemAssunto: Re: Macro para editar link   Qui Mar 13, 2014 8:43 pm

Alexandre,


Essa minha planilha (CONTROLE), pega informações de outra planilha (ESTOQUE), quantidade inicial, fim, vendas ....

ela já tem a formula de quais dados pegar na outra,eu altero a planilha manualmente só que agora outras pessoas vão ter acesso a ela, eu queria deixar isso mais simples possível. Eu uso editar link pra trocar de uma só vez todas as formulas da planilha.Eu necessito que ele me pergunte de onde ele vai pegar essa informação ao invés de pegar desse endereço.

Me compreende ?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para editar link   Qui Mar 13, 2014 9:01 pm

Boa tarde!!

Eu não sei se eu conseguir te ajudar.

Já tentou assim?
Código:
Sub Teste3()
FileToOpen = Application.GetOpenFilename _
(Title:="Selecione o Arquivo", _
FileFilter:="Excel Files *.xls (*.xls),")

If FileToOpen = False Then
MsgBox "Não encontrado.", vbExclamation, "PSC!!!"
Exit Sub
Else
Sheets("WISR 1").Select
    ActiveSheet.Unprotect
    ActiveWorkbook.ChangeLink Name:= _
        "C:\Documents and Settings\user\Desktop\WISR Semana fim 23072013 # loja 57440.xls" _
        , NewName:= _
        "C:\Documents and Settings\Administrador\Desktop\CONTROLE A.P FEVEREIRO\WISR Semana fim 04022014 # loja 53147.xls" _
        , Type:=xlExcelLinks
    Sheets("WISR 1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Workbooks.Open Filename:=FileToOpen
End If
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Ramon River



Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 24
Localização : Ibirité-MG

MensagemAssunto: Re: Macro para editar link   Qui Mar 13, 2014 9:37 pm

Alexandre,

A principio ele funcionou mas quando tento pela segunda vez o mesmo comando ele falha Crying or Very sad .


Última edição por Ramon River em Qui Mar 13, 2014 10:01 pm, editado 1 vez(es) (Razão : ERRO)
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para editar link   Sex Mar 14, 2014 11:00 pm

Boa tarde!!

Gera alguma mensagem de erro?

Qual mensagem?

Att confused 
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Macro para editar link   Hoje à(s) 5:16 am

Voltar ao Topo Ir em baixo
 
Macro para editar link
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Problema para editar um campo do perfil dos membros
» [FAQ] Tempo limite para editar uma mensagem
» Problemas para editar e postar mensagens
» Ajuda para editar codigo de chat box personalizado
» Redirecionar para o link novo

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: