Este fórum está sendo desativado

[alancarlosssantos]

Oi pessoal, boa tarde!

Preciso de ajuda!

Estou trabalhando em um código em VBA. Esse código faz com que eu abra uma planilha referenciada em uma celula na planilha em excel, selecione todos os dados, apague esses dados, volte para a planilha anterior (a que tem o código em vba), copie os dados dessa planilha, volte para a planilha refenciada e cole os dados. Todavia eu preciso fechar e salvar a planilha que está sendo referenciada. Porém eu não consigo.

Segue abaixo o código (amador) que eu estou fazendo:

Sub importar_informacoes()

'abre a planilha da loja no diretório e seleciona os dados e apaga tudo

Sheets("Diretorios").Select
Workbooks.Open [D3]
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents

'Seleciona a planilha de aderência, filtra a loja e copia tudo

Workbooks("Aderência_de_Escala.xlsm").Activate
Sheets("ANALITICA").Select
Worksheets("ANALITICA").Range("E4").AutoFilter _
Field:=1, _
Criteria1:="001.9 - IGUATEMI", _
VisibleDropDown:=False
Worksheets("ANALITICA").Range("E5").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Diretorios").Select
Workbooks.Open [D3]
Range("A5").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False


End Sub

Eu pretendo colocar o fechamento da planilha referenciada após o código "Application.CutCopyMode = False"

Grato desde já.

[osvaldomp]

Experimente:

ActiveWorkbook.Close SaveChanges:=True


Sugestão:
Application.ScreenUpdating=False 'acrescente esta linha ao seu código
Sheets("Diretorios").Select

[alancarlosssantos]

Obrigado!

Me ajudou muito.