Bom dia a todos. Novamente venho pedir ajuda. 
)' />
Diariamente crio várias planilhas com nomes diferentes, todas exatamente no mesmo formato e preciso que ao serem gravadas os dados da aba banco de dados sejam acrescentados na planilha que está fechada chamada "Banco de Dados" .
http://www.4shared.c...u/modelo_2.html
Vejam abaixo a macro que criei.
Sub bd()
'
' bd Macro
'
'
Workbooks.Open Filename:= _
"c:\Bando de Dados\Banco de Dados.xlsm"
Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
:=True
ActiveSheet.Unprotect
Windows("Modelo.xlsm").Activate
Rows("5:16").Select
Selection.Copy
Windows("Banco de Dados.xlsm").Activate
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Range("A5").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
Range("B6").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
:=True
ActiveWorkbook.Save
End Sub
O caminho que está escrito em vermelho é sempre o mesmo, o problema é que o nome da planilha que estou trabalhando (que está escrito de verde), sempre será diferente.
Pensei em colocar dentro da planilha que estou trabalhando, uma célula que contenha o nome com o qual ela será salva para poder usar, mas não estou conseguindo. Espero que vocês possam me ajudem.
)' />Diariamente crio várias planilhas com nomes diferentes, todas exatamente no mesmo formato e preciso que ao serem gravadas os dados da aba banco de dados sejam acrescentados na planilha que está fechada chamada "Banco de Dados" .
http://www.4shared.c...u/modelo_2.html
Vejam abaixo a macro que criei.
Sub bd()
'
' bd Macro
'
'
Workbooks.Open Filename:= _
"c:\Bando de Dados\Banco de Dados.xlsm"
Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
:=True
ActiveSheet.Unprotect
Windows("Modelo.xlsm").Activate
Rows("5:16").Select
Selection.Copy
Windows("Banco de Dados.xlsm").Activate
Rows("5:5").Select
Selection.Insert Shift:=xlDown
Range("A5").Select
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
ActiveWindow.Close
Range("B6").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
:=True
ActiveWorkbook.Save
End Sub
O caminho que está escrito em vermelho é sempre o mesmo, o problema é que o nome da planilha que estou trabalhando (que está escrito de verde), sempre será diferente.
Pensei em colocar dentro da planilha que estou trabalhando, uma célula que contenha o nome com o qual ela será salva para poder usar, mas não estou conseguindo. Espero que vocês possam me ajudem.
