macro para salvar abas com outro nome

AlexAltheman · 6 de maio de 2017

Olá pessoal, Alguém pode me ajudar?

Possuo um arquivo com varias abas e fiz a macro abaixo para salvar uma aba com um nome a partir de células selecionadas.

O problema é que utilizado outra aba do mesmo arquivo de nome "memoria de calculo" para trazer valores a aba "COTAÇÂO".

Eu gostaria de salvar essas 2 abas em um mesmo arquivo mantendo o vinculo entre elas e com o mesmo nome conforme a minha macro.

Alguém poderia me ajudar?

Sub testemacrosalvaremexcel()

Sheets("COTAÇÃO").Select
Sheets("COTAÇÃO").Copy

Dim Linha As Long

Linha = Range(" C" & Rows.Count).End(xlUp).Row

Range("B2:L" & Linha).Select
Range("B2:L" & Linha).Copy

Dim Nome As String
Nome = "C:\Users\althemal\Desktop\POWER SYSTEMS\Cotações\Proposta comercial\" & ActiveSheet.Range("I5").Value & "-" & ActiveSheet.Range("D5").Value & " " & "REV" & "-" & ActiveSheet.Range("I6").Value & ".xlsx"

ActiveWorkbook.SaveAs Filename:=Nome, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Windows("Cálculos Estrutura de Produto + custos.xlsm").Activate
End Sub

CasaDoHardware · 6 de maio de 2017

E so fazer a copia das duas abas que o codigo funciona, como você deseja

Sheets("COTAÇÃO").Copy

Sheets("MEMORIA DE CALCULO").Copy

O restante do codigo fica igual

AlexAltheman · 7 de maio de 2017

@CasaDoHardware tentei faze-lo como mencionou mas não deu certo. Talvez seja porque o nome do arquivo e salvo de acordo com algumas linhas da planilha "COTAÇÂO"..

Sabe me dizer o que ocorreu?

Sub testemacrosalvaremexcel()

Sheets("COTAÇÃO").Select
Sheets("COTAÇÃO").Copy

Sheets("MEMORIA DE CALCULO").Copy

Dim Linha As Long

Linha = Range(" C" & Rows.Count).End(xlUp).Row

Range("B2:L" & Linha).Select
Range("B2:L" & Linha).Copy

Dim Nome As String
Nome = "C:\Users\althemal\Desktop\POWER SYSTEMS\Cotações\Proposta comercial\" & ActiveSheet.Range("I5").Value & "-" & ActiveSheet.Range("D5").Value & " " & "REV" & "-" & ActiveSheet.Range("I6").Value & ".xlsx"

ActiveWorkbook.SaveAs Filename:=Nome, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Windows("Cálculos Estrutura de Produto + custos.xlsm").Activate
End Sub

CasaDoHardware · 8 de maio de 2017

Disponibilize o arquivo compactado

AlexAltheman · 8 de maio de 2017

@CasaDoHardware .. Segue arquivo compactado.

Na planilha "calculo de estrutura + custos" tem varias abas. Na aba "COTAÇÂO" tem um botão "SALVAR EXCEL".

Quando eu clicar no botão eu gostaria de salvar 3 abas no mesmo arquivo: "Detalhes de propostas" / " memoria de calculo" / "COTAÇÂO".

Se possível mantendo o link entre elas, pois se eu precisar alterar algo eu não perco o link.

O nome do arquivo que será salvo tem que ser conforme a macro que eu disponibilizei acima.

Desde já agradeço.

COTAÇÃO CAMFIL.rar

CasaDoHardware · 9 de maio de 2017

você vai precisar transformar a planilha Detalhes da Proposta em Tabela do contrario nao é possivel Exportar essa planilha

Tente esse codigo apos o ajuste que citei.

Sub Salvar_XLS()

Dim Linha As Long

Sheets(Array("memoria de calculo", "COTAÇÃO", "Detalhes da Proposta")).Copy

Linha = Range(" C" & Rows.Count).End(xlUp).Row

Range("B2:L" & Linha).Select
Range("B2:L" & Linha).Copy

Dim Nome As String
Nome = "C:\Users\althemal\Desktop\POWER SYSTEMS\Proposta comercial\EXCEL\" & ActiveSheet.Range("I5").Value & "-" & ActiveSheet.Range("D5").Value & " " & "REV" & "-" & ActiveSheet.Range("I6").Value & ".xlsx"

ActiveWorkbook.SaveAs Filename:=Nome, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Windows("Cálculos Estrutura de Produto + custos.xlsm").Activate
End Sub