| | Macro para editar link |  |
|
|
| Autor | Mensagem |
|---|
Ramon River
Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 31
Localização : Ibirité-MG
| | Assunto: 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.
| |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
| | |
Ramon River
Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 31
Localização : Ibirité-MG
| | Assunto: 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 ? | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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"  Att | |
|
| | |
Ramon River
Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 31
Localização : Ibirité-MG
| | Assunto: 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. | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Macro para editar link Qua Mar 12, 2014 10:36 pm | |
| Boa tarde!!
Você testou meu código?
Att | |
|
| | |
Ramon River
Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 31
Localização : Ibirité-MG
| | Assunto: 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 | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
| | |
Ramon River
Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 31
Localização : Ibirité-MG
| | Assunto: 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 ? | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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 | |
|
| | |
Ramon River
Mensagens : 10
Data de inscrição : 12/03/2014
Idade : 31
Localização : Ibirité-MG
| | Assunto: 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  .
Última edição por Ramon River em Qui Mar 13, 2014 10:01 pm, editado 1 vez(es) (Motivo da edição : ERRO) | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Macro para editar link Sex Mar 14, 2014 11:00 pm | |
| Boa tarde!! Gera alguma mensagem de erro? Qual mensagem? Att  | |
|
| | |
Conteúdo patrocinado
| | Assunto: Re: Macro para editar link | |
| |
|
| | |
| | Macro para editar link | |
|
