Doutores, boa tarde!
Estou cá novamente pedindo ajuda, o que acontece é o seguinte, montei uma planilha "transformer" de forma simples, porem agora eu preciso fazer uma macro que salve as duas últimas abas dessa planilha em formato txt e com os nomes pré definidos.
A macro salvar como é extremamente simples
Sub Macro1()
'
' Macro1 Macro
'
'
ChDir _
"M:5. Controles DiáriosTransformer"
Sheets("Planilhando").Select
ActiveWorkbook.SaveAs Filename:= _
"M:5. Controles DiáriosTransformerPlanilhando.txt" _
, FileFormat:=xlUnicodeText, CreateBackup:=False
Sheets("Txt Fornecedor").Select
ActiveWorkbook.SaveAs Filename:= _
"M:5. Controles DiáriosTransformerPlanilhando_for.txt" _
, FileFormat:=xlUnicodeText, CreateBackup:=False
End Sub
O problema é que agora eu preciso que os arquivos sejam salvos com o nome de uma célula em outra sheet ( Header, celula L2), por exemplo, para salvar com o nome de uma célula dentro da mesma sheet utilizaria:
"M:5. Controles DiáriosTransformerPlanilhando" & Range ("L2") + ".txt"" se não estou enganado, mas como fazer para buscar o nome em outra sheet ?
Ficou claro?
Para quem quiser ver o arquivo:
https://onedrive.live.com/redir?resid=B ... 221A%21235
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 29/04/2014 9:43 am