Página 1 de 1

Copiar aba, renomear e alterar algumas células

Enviado: 12 Nov 2021 às 14:15
por McthheusP
Boa tarde a todos!!
Preciso de uma ajuda...
Ao executar a macro, através de um botão na aba Itens do Contrato, preciso que a aba Medição 1 seja copiada e inserida uma nova aba na planilha renomeada como Medição 2 e a célula BT5 dessa aba seja preenchida como 02.
Isso está acontecendo na macro inserida na planilha em anexo, porém eu não estou conseguindo resolver a situação de, ao executar a macro novamente no mês seguinte, ela insira uma nova aba renomeada como Medição 3 e a célula BT5 dessa aba seja preenchida como 03.

Apenas consegui uma macro que inserisse várias abas ao mesmo tempo, porém gostaria que fosse inserida apenas uma a cada vez que a macro fosse executada.

Obrigado a todos

Re: Copiar aba, renomear e alterar algumas células

Enviado: 12 Nov 2021 às 16:34
por osvaldomp
Olá, @McthheusP .

O código abaixo faz uma cópia da última planilha, adiciona 1 ao valor de BT5 e renomeia. Tente fazer o que falta.
Código: Selecionar todos
Sub NovaMedição_TESTE()
 Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
 [BT5] = Format([BT5] + 1, "0#")
 ActiveSheet.Name = "Medição " & [BT5]
End Sub

[RESOLVIDO] Re: Copiar aba, renomear e alterar algumas células

Enviado: 16 Nov 2021 às 12:14
por McthheusP
Caro @osvaldomp , bom dia!!

Obrigado pela ajuda, a macro é exatamente para o que eu precisava, funcionou certinho...
Muito obrigado e boa semana!!!