Listar nomes das guias ativas

Question

Boa tarde!!!

J&aacute; tenho script abaixo que lista os nomes das guias ativas, porem preciso que seja melhorado para tamb&eacute;m s&oacute; listar se tiver definida uma cor espec&iacute;fica da guia,

Sub nome_da_aba()
Dim onde_colocar As Range
Set onde_colocar = Range(a10:a30) ' coloque aqui a faixa onde os nomes das abas ser&atilde;o guardados

For i = 1 To Worksheets.Count
onde_colocar.Cells(i, 1).Value = (Sheets(i).Name)
Next

End Sub

Favor galera me de um auxilio,

Answer

Como n&atilde;o especificou a cor, segue o exemplo com a cor vermelho.

[code=vb]
Sub nome_da_aba()
        Dim onde_colocar As Range, i As Integer
      
        Set onde_colocar = Range(a10:a30) ' coloque aqui a faixa onde os nomes das abas ser&atilde;o guardados
        For i = 1 To Worksheets.Count
        If Worksheets(i).Tab.ColorIndex = 3 Then ' * 3 = vermelho
        onde_colocar.Cells(i, 1).Value = (Sheets(i).Name)
        End If
        Next

End Sub
[/code]

Answer

Basole,

Muito obrigado!

Na verdade mudei o objetivo, o que precisando no momento &eacute; um script que fa&ccedil;a o seguinte

Pegue um valor da c&eacute;lula B3  da plan(PESQUISA) e fazer uma pesquisa em todas as guias, se encontrar listar o nomes das guias que for encontrada Na pesquisa na plan(LISTA GUIAS) somente se tiver cadastrado na lista da plan(FORNECEDORES) de Range(A2:A55), e assim ira alimentar a valida&ccedil;&atilde;o de dados da c&eacute;lula D3 localizada na plan(PESQUISA).

Ferramentas

Mover Tópico