- 09 Set 2015 às 12:44
#2968
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
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