JONESBUSSMANN disse:Boa noite Galera!!!
To procurando uma maneira de listar em uma coluna o nome de algumas planilhas que tenho no meu arquivo do excel, exceto as que tenho em uma lista que está na planilha.
Alguém tem alguma idéia???
Obs.: a lista de planilhas que não quero que liste pode variar.. podendo ser 1 ou 20 ou +....
Coloniz@dor disse:Jones bom dia.
Acho que não entendi seu problema.
Vc quer listar as planilhas da mesma pasta de trabalho ?
Anexos
Anexos
Slugman disse:Eu vi o seu post ontem a noite e fiquei o dia todo quebrando minha cabeça pra tentar resolver. Embora possa parecer simples, tudo que eu tentei nao deu certo...
Mas eu nao desisti...kkkkkkk...consegui fazer isso que vc precisa e de quebra aprendi uma nova maneira de comparar dados em listas!
Aqui esta o link que me mostrou a luz...
Faz um teste ai e diga se deu certo.
Slugman disse:Eu vi o seu post ontem a noite e fiquei o dia todo quebrando minha cabeça pra tentar resolver. Embora possa parecer simples, tudo que eu tentei nao deu certo...
Mas eu nao desisti...kkkkkkk...consegui fazer isso que vc precisa e de quebra aprendi uma nova maneira de comparar dados em listas!
Aqui esta o link que me mostrou a luz...
Faz um teste ai e diga se deu certo.
JONESBUSSMANN disse:éhhh...
essa foi pra quebrar a cabeça mesmo... rsrsrsrs
mas, é bom sempre ter alguém inteligente como vc e o Coloniz@dor!!!
mas...
enquanto vcs pensavam, tbem pensei um pouco e fiz uns esquemas...
só q não é tão completo como o seu...
segue o código:
'listar planilhas exceto algumas
Dim ws As Worksheet
Dim nSheet As String
Let nSheet = "Plan1" ' Worksheet que receberá a lista com os nomes.
Sheets(nSheet).Range("A2:A15000").Clear 'COLUNA QUE IRÁ LISTAR
For Each ws In Worksheets
If ws.Name = "Plan2" Or ws.Name = "Plan4" Or ws.Name = "Plan5" Then
Else
Plan1.Range("A1").Select
Range("A15000").End(xlUp).Offset(1, 0).Select
Let ActiveCell.Formula = ws.Name
End If
Next ws
O seu código funciona perfeitamente!!!... muito obrigado...
Anexos
Fazer pergunta
