Ajuda

[GUTELO]

TENHO UMA PASTA OND EXISTEM VARIAS PLANILHAS (MENU), A, B, C , D, TRABALHO COM OS BOTÕES SALVAR IMPRIMIR TUDO EM MACRO, SO QUE AGORA ESTA DANDO ERRO NO SALVAMENTO DE UMA PLANILHA, AO CLICAR O BOTÃO SALVAR.

1º PRECISO SALVAR A PLANILHA E TODO SEU CONTEÚDO QUEBRANDO OS VINCULOS DA PLANILHA PRINCIPAL.

2º ESTA DANDO ERRO NESTA REFERENCIA VEJA SE ESTA CERTO O QUE ESTA

OU ME DEI OUTA IDEIA DE COMO SALVAR A PLANILHA.

Sub salvarIMP_ORDAMP()

Sheets("IMP_ORDAMP").Select

Sheets("IMP_ORDAMP").Copy Before:=Sheets(1)

Referencia = Mid(Range("AK4").FormulaLocal, 2)

Range("AK4").Value = Range(Referencia).Value

Referencia = Mid(Range("AX10").FormulaLocal, 2)

Range("AX10").Value = Range(Referencia).Value

Range("B15").Value = extenso(Range("AX10").Value)

Referencia = Mid(Range("G10").FormulaLocal, 2)

Range("G10").Value = Range(Referencia).Value

ME AJUDE!!!

[Lisandro Oliveira]

TENHO UMA PASTA OND EXISTEM VARIAS PLANILHAS (MENU), A, B, C , D, TRABALHO COM OS BOTÕES SALVAR IMPRIMIR TUDO EM MACRO, SO QUE AGORA ESTA DANDO ERRO NO SALVAMENTO DE UMA PLANILHA, AO CLICAR O BOTÃO SALVAR.

1º PRECISO SALVAR A PLANILHA E TODO SEU CONTEÚDO QUEBRANDO OS VINCULOS DA PLANILHA PRINCIPAL.

2º ESTA DANDO ERRO NESTA REFERENCIA VEJA SE ESTA CERTO O QUE ESTA

OU ME DEI OUTA IDEIA DE COMO SALVAR A PLANILHA.

Sub salvarIMP_ORDAMP()

Sheets("IMP_ORDAMP").Select

Sheets("IMP_ORDAMP").Copy Before:=Sheets(1)

Referencia = Mid(Range("AK4").FormulaLocal, 2)

Range("AK4").Value = Range(Referencia).Value

Referencia = Mid(Range("AX10").FormulaLocal, 2)

Range("AX10").Value = Range(Referencia).Value

Range("B15").Value = extenso(Range("AX10").Value)

Referencia = Mid(Range("G10").FormulaLocal, 2)

Range("G10").Value = Range(Referencia).Value

ME AJUDE!!!

Olá Gutelo,

quando se vai salvar, não se salva somente uma planilha, se salva o arquivo todo (a pasta toda)

ActiveWorkbook.Save

Agora caso você nunca tenha salvo o arquivo, você na primeira vez precisará informar o local onde você quer grava-lo

ActiveWorkbook.SaveAs Filename:= _

"C:\arquivo.xls", FileFormat:=xlNormal, _

Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

CreateBackup:=False

Entendeu????