Este fórum está sendo desativado

[lucianol]

Olá a todos. Tenho uma Planilha que no caso é minha MATRIZ, e, a partir dela, faço uso para Pedidos de Materiais. Ocorre que, ao finalizar uma lista com os materiais desejados, encerro a planilha e, no caso de uma nova necessidade, crio uma Planilha seguinte, no caso, elas devem seguir a ordem Pedido(+001), Pedido(+002), e assim sucessivamente, porém sempre com o mesmo nome de arquivo, exemplo: Pedido de Materiais Obra X.xls.
Gostaria que as informações básicas (do cabeçalho) fossem mantidas para as próximas planilhas, pois faço essa lista baseado numa determinada obra ou atividade, então, no caso teria um Botão “FINALIZAR” onde gravaria essa lista e os dados contidos nela, salvando todo o conteúdo, e um Botão “CRIAR NOVO PEDIDO” onde criaria uma nova aba, renomeada e somente com os dados do cabeçalho mantidos.
Ao criar uma nova aba, ou planilha, o nome da planilha fosse inserido na Célula F9, para ter uma referência ao imprimir.
Salvar automático, toda vez que acionar o Botão “Finalizar”.
Se alguém puder ajudar, fico muito grato.
Anexo a Planilha Matriz.

[mprudencio]

Experimente isso!!

Código: Selecionar todos

Sub GerarPedido()
Dim Cont As Integer

Cont = Sheets("Pedido_01").Range("F9").Value

Sheets("Pedido_01").Copy After:=Sheets(Sheets.Count)

ActiveSheet.Name = "Pedido" & " " & Sheets("Pedido_01").Range("F9").Value
Cont = Cont + 1

End Sub

[lucianol]

[quote="mprudencio"]Experimente isso!!

Código: Selecionar todos

Sub GerarPedido()
Dim Cont As Integer

Cont = Sheets("Pedido_01").Range("F9").Value

Sheets("Pedido_01").Copy After:=Sheets(Sheets.Count)

ActiveSheet.Name = "Pedido" & " " & Sheets("Pedido_01").Range("F9").Value
Cont = Cont + 1

End Sub


Obrigado Marcelo!
Funcionou para criar a nova Planilha, porém a nova é criada como Pedido_1(01), Pedido_1(02)...
Gostaria que a numeração fosse sequencial, sem os números entre parênteses.

Grato pela atenção
Luciano

[mprudencio]

Vc precisa informa o PRIMEIRO PEDIDO na celula F9

Esta linha

ActiveSheet.Name = "Pedido" & " " & Sheets("Pedido_01").Range("F9").Value

Altera o nome da guia ficando como vc precisa