Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
#74118
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á.
Por osvaldomp
#74124
Experimente:

ActiveWorkbook.Close SaveChanges:=True


Sugestão:
Application.ScreenUpdating=False 'acrescente esta linha ao seu código
Sheets("Diretorios").Select
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord