VBA - Salvar como

Question

Ol&aacute; pessoal, preciso da ajuda de voc&ecirc;s!
Criei uma macro em uma planilha m&atilde;e e est&aacute; funcionando bem, o problema &eacute; que todo dia abre-se essa planilha, &agrave; salva como, &agrave; renomeiam, por exemplo 01.08.2015 e assim durante todo o m&ecirc;s.

Quando mudam o nome a macro n&atilde;o funciona mais, pois como est&aacute; no exemplo a seguir fica assim:

Na planilha original o nome era TESTE.xlsm, depois que a salvou como o nome passou a ser 01.08.2015.xlsm.

Como eu posso fazer para que quando a planilha seja salvada como e renomeada a macro continue funcionando?

Exemplo:
[code=vb]
Sub Macro1()

Windows(01.Vari&aacute;veis LPT-Neve.xls).Activate
    Range(C58).Select
    Selection.Copy
    Windows(TESTE.xlsm).Activate
    Range(G23).Select
    ActiveSheet.Paste
    Range(J28).Select
End Sub
[/code]

Answer

Fa&ccedil;a a referencia ao arquivo atual:
Subst.: Windows(TESTE.xlsm).Activate
Por:  ThisWorkbook.Activate
desta forma sera ativado a planilha q contem a macro.

Answer

A macro fica mudando de arquivo, no caso do exemplo copia dados do 01.Vari&aacute;veis LPT-Neve.xls e cola no TESTE.xlsm.

O arquivo que fica sendo renomeado (e de onde roda a macro) &eacute; s&oacute; o TESTE?
O  01.Vari&aacute;veis LPT-Neve.xls &eacute; sempre esse nome?

Se for isso &eacute; s&oacute; alterar o c&oacute;digo para:

[code=vb]Sub Macro1()

Dim AW as Window
Set AW = ActiveWindow

Windows(01.Vari&aacute;veis LPT-Neve.xls).Activate
Range(C58).Select
Selection.Copy
AW.Activate
Range(G23).Select
ActiveSheet.Paste
Range(J28).Select

End Sub[/code]

Answer

N&atilde;o sei se ajuda mas vc pode criar um codigo que salve o arquivo automaticamente com a data do dia por exemplo. Isso evita erros e fica mais produtivo.

Se quiser algo assim avise que escrevo aqui.

Answer

[QUOTE=Basole, post: 7230732, member: 908394]Fa&ccedil;a a referencia ao arquivo atual:
Subst.: Windows(TESTE.xlsm).Activate
Por:  ThisWorkbook.Activate
desta forma sera ativado a planilha q contem a macro.[/QUOTE]

Show de Bola.
Funcionou que &eacute; uma blz. Muito Obrigado. Grande abra&ccedil;o

Answer

[QUOTE=Marcelo G Prudencio, post: 7230744, member: 985322]N&atilde;o sei se ajuda mas vc pode criar um codigo que salve o arquivo automaticamente com a data do dia por exemplo. Isso evita erros e fica mais produtivo.

Se quiser algo assim avise que escrevo aqui.[/QUOTE]

Essa &eacute; uma boa. para a planilha atual n&atilde;o vou precisar, mas caso surja essa oportunidade te aviso. Grande abra&ccedil;o

Answer

[QUOTE=Walhart, post: 7230734, member: 964390]A macro fica mudando de arquivo, no caso do exemplo copia dados do 01.Vari&aacute;veis LPT-Neve.xls e cola no TESTE.xlsm.

O arquivo que fica sendo renomeado (e de onde roda a macro) &eacute; s&oacute; o TESTE?
O  01.Vari&aacute;veis LPT-Neve.xls &eacute; sempre esse nome?

Se for isso &eacute; s&oacute; alterar o c&oacute;digo para:

[code=vb]Sub Macro1()

Dim AW as Window
Set AW = ActiveWindow

Windows(01.Vari&aacute;veis LPT-Neve.xls).Activate
Range(C58).Select
Selection.Copy
AW.Activate
Range(G23).Select
ActiveSheet.Paste
Range(J28).Select

End Sub[/code][/QUOTE]

Show. Tamb&eacute;m funcionou muito bem. Valeu pela for&ccedil;a. Grande abra&ccedil;o.

Ferramentas

Mover Tópico