Copia plan modelo, nomear aba com lista de nomes do painel

[rogerparana]

Boa tarde, possuo pouco conhecimento em VBA e necessito de um help!

Tenho um planilha Painel onde coloco os codigos das RNC, possuo uma planilha Modelo, onde registro as RNC.

NEcessito quando, eu inserir o codigo na planilha Painel, seja inserido uma copia da planilha Modelo, renomeado com o ultimo codigo inserido na planilha Painel.

Pesquisando pela net, encontrei o seguinte codigo, que ajudou em partes:

'copiar planilha

Sub criar()

For Each TabName In Sheets("Painel").Range("codigo")

Sheets("Modelo").Copy after:=Sheets(Sheets.Count)

ActiveSheet.Name = TabName

Next

End Sub

Quando eu inserir o novo codigo na plan Painel, deve copiar a plan Modelo, renomea-la com o novo codigo, ignorando os codigos anteriores

Agradeço se alguém puder me ajudar

Rogerio

[Nelson S]

Boa tarde, possuo pouco conhecimento em VBA e necessito de um help!

Tenho um planilha Painel onde coloco os codigos das RNC, possuo uma planilha Modelo, onde registro as RNC.

NEcessito quando, eu inserir o codigo na planilha Painel, seja inserido uma copia da planilha Modelo, renomeado com o ultimo codigo inserido na planilha Painel.

Pesquisando pela net, encontrei o seguinte codigo, que ajudou em partes:

'copiar planilha

Sub criar()

For Each TabName In Sheets("Painel").Range("codigo")

Sheets("Modelo").Copy after:=Sheets(Sheets.Count)

ActiveSheet.Name = TabName

Next

End Sub

Quando eu inserir o novo codigo na plan Painel, deve copiar a plan Modelo, renomea-la com o novo codigo, ignorando os codigos anteriores

Agradeço se alguém puder me ajudar

Rogerio

Disponibilize um modelo num servidor de arquivos tipo Sendspace que fica mais fácil ajudar...

Editado Abril 25, 2012 por Nelson S

[rogerparana]

Boa tarde, possuo pouco conhecimento em VBA e necessito de um help!

Tenho um planilha Painel onde coloco os codigos das RNC, possuo uma planilha Modelo, onde registro as RNC.

NEcessito quando, eu inserir o codigo na planilha Painel, seja inserido uma copia da planilha Modelo, renomeado com o ultimo codigo inserido na planilha Painel.

Pesquisando pela net, encontrei o seguinte codigo, que ajudou em partes:

'copiar planilha

Sub criar()

For Each TabName In Sheets("Painel").Range("codigo")

Sheets("Modelo").Copy after:=Sheets(Sheets.Count)

ActiveSheet.Name = TabName

Next

End Sub

Quando eu inserir o novo codigo na plan Painel, deve copiar a plan Modelo, renomea-la com o novo codigo, ignorando os codigos anteriores

Agradeço se alguém puder me ajudar

Rogerio

Disponibilize um modelo num servidor de arquivos tipo Sendspace que fica mais fácil ajudar...

Segue a planilha:

http://www.4shared.com/office/HZX2dtzC/FOR...igo_rnc_pa.html

Obrigado

[benzadeus]

Olá,

Não consegui abrir seu exemplo, mas acredito que este link possa te ajudar: http://www.ambienteoffice.com.br/excel/ger...o_e_uma_tabela/