RENOMEAR PLANILHA PELA LISTA DE NOMES DE OUTRA ABA

ROGERPARANA 23/04/2012 19:51:43
#400580
Boa noite, 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
A planilha se encontra no endereço abaixo
http://www.4shared.com/office/HZX2dtzC/FORMULARIO_copia_codigo_rnc_pa.html

Agradeço se alguém puder me ajudar
Rogerio
FILMAN 24/04/2012 09:18:07
#400599 Resposta escolhida
Troque sua SUB CRIAR por esta abaixo

Sub criar()
Dim i As Integer, Existente As Boolean, TabName As Variant

For Each TabName In Sheets([Ô]Painel[Ô]).range([Ô]codigo[Ô])
    If TabName <> [Ô][Ô] Then
        Existente = False
        For i = 1 To Worksheets.Count
            If UCase(TabName) = UCase(Worksheets(i).Name) Then
                Existente = True
                Exit For
            End If
        Next i
        
        If Not Existente Then
            Sheets([Ô]Modelo[Ô]).Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = TabName
        End If
    End If
Next
End Sub


Acho que seja isso que esta querendo
Tópico encerrado , respostas não são mais permitidas
Voltar