Este fórum está sendo desativado

[fazerbem]

Olha eu aqui de novo gente.

Tenho esse comando abaixo, conforme tive muita ajuda aqui para colocar em pratica.

Quero apenas fazer uma modificacao nele ao qual vou descrever abaixo.

Em :

On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [A1].Value & ".xlsm"
'MsgBox ("Planilha Salva Como : ") & [A1].Value & ".xlsm"

A1= nome da loja que sera gravado
V1= 10/08/2015 ( formatada cellula en data )

Ao invés disso ( comando acima )queria gravar o nome da Loja + a data do pedido que neste caso seria algo assim:

fazerbem-10agosto2015 isso é possivel ?

Como tenho outra celula contendo somente Setembro, entao usei
=A1&a celula em questao deu Certo ! , mas preciso que seja gravado tambem o dia, entao usei
=A1&V1 e deu :
fazerbem42256

Lembrando que eu queria :
fazerbem-10agosto2015

----------------------------------------------------------------------------------------------------------------------------------------------

Sub Salvar_Pedido()

'Declaração de ariaveis
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim Ws3 As Worksheet
Dim Ws4 As Worksheet

Dim Dest As Range

Application.ScreenUpdating = 0 'Deixa a macro mais rápida (Desliga a tela de atualização)
Set Ws1 = Sheets("RESUMO") 'Referencia a guia Resumo como Ws1
Set Ws2 = Sheets("LANCAR COMISSAO") 'Referencia a guia LANÇAR COMISSAO como Ws2
Set Ws3 = Sheets("PRODUTOS")
Set Dest = Ws2.Range("B3").Range("B52").End(xlUp).Offset(1, -1) 'Encontra a ultima linha da guia comissão (definida como Dest)

Ws1.Range("AB2:AH2").Copy 'Copia o intervalo AB2:AG2 da guia Resumo
Dest.PasteSpecial xlPasteValues 'Cola valores na guia Comissão
Application.CutCopyMode = False 'Desativaj o clipboard

Set Ws4 = Sheets("PEDIDO")
Sheets("PEDIDO").Select
Range("A1").Select


On Error Resume Next
Dim Caminho As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [A1].Value & ".xlsm"
'MsgBox ("Planilha Salva Como : ") & [A1].Value & ".xlsm"


'Ws1.Range("H10:J11,H20:H21,H26:H31").Value = "" 'Limpa as células

Ws1.Range("H20:H21,H26:H31").Value = "" 'Limpa as células
Ws3.Range("F4:F15,F18:F21,F24:F42,F45:F53,F56:F64").Value = ""
Sheets("PRODUTOS").Select
Range("F4").Activate
Sheets("RESUMO").Select
Range("H10:J11").Select
Application.ScreenUpdating = 1 'Deixa a macro mais rápida (Liga a tela de atualização)


On Error Resume Next
Dim Caminho2 As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [C32].Value & ".xlsm"
'MsgBox ("Planilha Salva Como : ") & [C32].Value & ".xlsm"



Workbooks.Open Filename:=Caminho & [H10].Value & ".xlsm"

Ws1.Range("H10:J11").Value = "" 'Limpa as células


On Error Resume Next
Dim Caminho3 As String 'declaracao da variável caminho
Caminho = ThisWorkbook.Path & "\"
ActiveWorkbook.SaveAs Filename:=Caminho & [C32].Value & ".xlsm"
'MsgBox ("Planilha Salva Como : ") & [C32].Value & ".xlsm"

End Sub

[fazerbem]

Ou dentro da Macro eu poderia colocar tambem um alerta caso ao gravar uma planilha com o mesmo nome , aparecesse a mensagem vc deseja gravar com um outro nome ? SIm ou NAO ?

Eu acho que assim ficaria melhor, pois se houvesse ja uma planilha com o nome de fazerbem.xLsm eu acresentaria um 1 : fazerbem1.xLsm.

Assim ficaria melhor ainda, podem me dar este comando para incluir nesta mAcro que ja esta funcionando bem ?

Andre

[alexandrevba]

Boa tarde!!

para seu primeiro post, use a função Format.
Leia:
http://www.globaliconnect.com/excel/ind ... Itemid=475

Para o segundo post:
http://www.rondebruin.nl/win/s9/win003.htm

Att