Como criar varias abas com nomes da lista?
Enviado: 27 Out 2015 às 08:10
por Guirezendem
Bom dia!
Eu tenho uma lista de nomes de centros de custo na coluna B, e preciso abrir uma aba do excel para cada um deles, acho que só da pra fazer usando VBA e não sei....
Alguém pode me ajudar?
Obrigado!!!
Como criar varias abas com nomes da lista?
Enviado: 27 Out 2015 às 08:35
por Henrique
Seu código está quase certo. Retire os caracteres não permitidos em nomes de abas como "/" e execute sua sub que irá funcionar.
Re: Como criar varias abas com nomes da lista?
Enviado: 27 Out 2015 às 08:48
por alexandrevba
Bom dia!!
Se eu entendi, use o código abaixo!
Código: Selecionar todosSub AleVBA_836()
Dim ws As Worksheet
Dim Ki As Range
Dim ListSh As Range
With Worksheets("Centro de Custos")
Set ListSh = .Range("B2:B" & .Cells(.Rows.Count, "A").End(xlUp).Row)
End With
On Error Resume Next
For Each Ki In ListSh
If Len(Trim(Ki.Value)) > 0 Then
If Len(Worksheets(Ki.Value).Name) = 0 Then
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = Ki.Value
End If
End If
Next Ki
End Sub
Att