Página 1 de 1

Duplicar Abas X Vezes e Renomear

Enviado: 21 Out 2016 às 21:21
por maquisuelsolidade
Boa noite!

Criei uma macro para copiar uma aba x vezes. gostaria de quando eu clicar no botão da macro ele além de copiar renomeasse as abas de acordo com uma lista que tenho (lista abas).

Por exemplo:
a primeira aba copiada receberá o nome que está na célula L3
a segunda aba copiada receberá o nome que está na célula L4....... e assim por diante. qual seria este comando?

Re: Duplicar Abas X Vezes e Renomear

Enviado: 22 Out 2016 às 12:49
por alexandrevba
Boa tarde!!

Veja se ajuda.
Código: Selecionar todos
Sub AleVBA_3345()
    Dim MyCell As Range, MyRange As Range
    
    Set MyRange = Sheets("Plan1").Range("L3")
    Set MyRange = Range(MyRange, MyRange.End(xlDown))

    For Each MyCell In MyRange
        Sheets.Add After:=Sheets(Sheets.Count) 'cria uma nova guia
        Sheets(Sheets.Count).Name = MyCell.Value ' Renomeia as guias
    Next MyCell
End Sub
Att