Gilberto_Silva

@Midori Na pratica estou fazendo alguma coisa errada rsrs.. As planilhas que não serão excluídas são: Base de Dados, Controle de Conciliação, COLAR BALANCETE (CSV) e BALANCETE Logo eu informei no código da seguinte maneira: If UBound(Filter(Exceto, P.Base de Dados, P.Controle de Conciliação, P.COLAR BALANCETE (CSV), P.BALANCETE, vbTextCompare)) = -1 Then Não sei onde estou errando. Sub ExcluiPlanilhas() Dim P As Worksheet Dim R As Range Set R = ThisWorkbook.Worksheets("BALANCETE").[A:A] For Each P In ThisWorkbook.Worksheets If R.Find(What:=P.Name, LookAt:=xlWhole) Is Nothing Then If UBound(Filter(Exceto, P.Name, vbTextCompare)) = -1 Then Application.DisplayAlerts = False P.Delete Application.DisplayAlerts = True End If End If Next P End Sub

Muito Obrigado Midori, funcionou, mas eu esqueci de mencionar que existem pelo menos duas planilhas que não deveriam ser excluídas (quando eu executar o "ExcluiPlanilhas", ou seja, preciso inclui "exceto" planilha X e Y, por exemplo, no momento da exclusão, visto que elas não estão na listas na planilha que o código está se apoiando para executar a função. Essas duas planilhas seria de informações cadastrais e outras informações. Muito Obrigado e me desculpe desde já pelo equivoco de informação inicial. att. Gilberto

adicionado 1 minuto depois as planilhas com digito excluiu, a partir de 2 não foram excluidos. adicionado 12 minutos depois Funcionou,muito obrigado. é possível eu incluir esse codigo com outros dois, para formar um unico, assim eu posso executar todas as funções de uma unica vez? 1) Sub InsereHiperlinks() Dim c As Range With Range("K6:K" & Cells(Rows.Count, 1).End(3).Row) .ClearHyperlinks .Font.Underline = xlUnderlineStyleNone End With For Each c In Range("A6:A" & Cells(Rows.Count, 1).End(3).Row) If Evaluate("ISREF('" & (c.Value) & "'!A1)") = True Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(c.Row, "K"), Address:="", SubAddress:= _ "'" & c.Value & "'!A1" End If Next c End Sub 2) Sub CONCILIAR_CONTAS() Dim LRd As Long, LRo As Long, c As Range Application.ScreenUpdating = False On Error Resume Next Sheets("BALANCETE").ShowAllData Columns("J:J").Select Selection.ClearContents With Sheets("BALANCETE") LRd = .Cells(Rows.Count, 2).End(3).Row .Range("J6:J" & LRd).Formula = "=INDIRECT(A6&""!D5"")" .Range("J6:J" & LRd).Value = .Range("J6:J" & LRd).Value End With Application.ScreenUpdating = True End Sub 3) Sub ExcluiPlanilhas() Dim P As Worksheet Dim R As Range Set R = ThisWorkbook.Worksheets("BALANCETE").[A:A] For Each P In ThisWorkbook.Worksheets If P.Name <> "BALANCETE" Then If R.Find(What:=P.Name, LookAt:=xlWhole) Is Nothing Then Application.DisplayAlerts = False P.Delete Application.DisplayAlerts = True End If End If Next P End Sub

Pessoal, Na mesma linha desse tópico, gostaria de saber se é possível executar um código no Excel, que exclua planilhas de um arquivo, a partir de uma condição em outra planilha. Exemplo: na coluna A contenha uma lista: 1 2 3 4 7 9 os nomes das planilhas : 1 / 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 Para cada item desta lista, existe uma planilha, porém, pode conforme essa lista sofre uma alteração e alguns deixam de existir, e as planilhas que estiverem sobrando (não tem na lista, ela deverá ser excluída). Muito Obrigado Att.. Gilberto

Por gentileza sou novo no fórum não estou localizando a forma de encerrar. Vou publicar os códigos que funcionaram, você está de parabéns, Deus lhe abençoe e muito obrigado. Att Gilberto

Olá Osvaldo, Seria possível o citado acima?

Osvaldo, boa tarde! Ainda no projeto da minha planilha de conciliação contábil, tenho outra situação: de um mês para outro, podem surgir novas contas no Balancete_2018, para isso, tenho uma formula na coluna J do balancete que indica "INSERIR CONTA NA PASTA DA CONCILIAÇÃO". Pergunto: É possível fazer a leitura desta frase na coluna J e através de uma planilha Modelo, criar uma planilha e renomear e inserir as informações, como numero da conta e descrição da conta? Mais uma vez de agradeço imensamente pela sua ajuda até aqui. PS. Seria possível compilar dois códigos em apenas um? Att. Gilberto

Osvaldo, boa tarde. o código está apagando minha lista da coluna A e inserindo a informação Plan1 e Plan1(2) com hyperlink, Eu entendi que você quer uma lista com os nomes das planilhas e os correspondentes Hiperlinks e como você não informou em qual coluna você quer a lista eu optei pela coluna A. Anexei uma amostra da planilha, na planilha Balancete_2018 coluna A (linha 6 em diante) tenho a relação das contas contábeis , que possuem planilhas no mesmo arquivo com os mesmos nomes. Já na coluna J de Balancete_2018, tenho informações, se a conta é sintética, se está conciliada ou não conciliada..... O que preciso é que o hiperlink seja criado na coluna J de Balancete_2018, quando existir uma planilha aberta com o mesmo nome. porém essas Plan1 não existe em meu arquivo. Essa eu gostaria de ver, pois a probabilidade de o código colocar na lista o nome de uma planilha inexistente é equivalente a encontrar um político honesto, ou seja, zero! Por exemplo: Tenho na coluna A da planilha "Listar Abas" uma sequencia numerica que são os nomes das planilhas laterais, o código tem que comparar minha lista com essas planilhas existentes e inserir o hyperlink quando existir uma coincidência entre a lista e as plans existentes. Disponibilize uma amostra do seu arquivo Excel com o resultado desejado. Anexei uma amostra da planilha Osvaldo, mais uma vez agradeço sua paciência em me ajudar. Att Gilberto (AMOSTRA) CONCILIAÇÕES_SET_2018.rar

Osvaldo, o código está apagando minha lista da coluna A e inserindo a informação Plan1 e Plan1(2) com hyperlink, porém essas Plan1 não existe em meu arquivo. Por exemplo: Tenho na coluna A da planilha "Listar Abas" uma sequencia numerica que são os nomes das planilhas laterais, o código tem que comparar minha lista com essas planilhas existentes e inserir o hyperlink quando existir uma coincidência entre a lista e as plans existentes. Desde já agradeço Gilberto

Bom dia Osvaldo, Minha planilha está evoluindo, desde já agradeço e muito sua ajuda! Não sei se é possível, mais vou perguntar: É possível criar um código para inserir hyperlink em uma lista com as planilhas do mesmo arquivo? Tenho a Plan "Listar_Abas" e gostaria de inserir um link para quando clicar em um nome de "Listar_abas" já direto a planilha desejada. Encontrei um código que você havia criado para um outro participante deste forum, em partes ele atende, porém não será necessário criar as novas planilhas, apenas criar o link dos nomes das já existentes para uma listas como o nomes destas planilhas. veja o código que encontrei: Sub CriaNomeiaHyper() Dim planBase, planNova As String Dim plan As Worksheet, flg As Boolean planBase = ActiveSheet.Name planNova = ActiveSheet.Range("A1").Value If planNova = "" Then MsgBox "insira em A1 o nome desejado para a nova planilha" Exit Sub End If For Each plan In Worksheets If plan.Name Like planNova Then flg = True: Exit For Next If flg = True Then MsgBox "já existe a planilha " & "'" & _ planNova & "'" & ", altere o nome desejado" Else Worksheets.Add(after:=Sheets(Sheets.Count)).Name = planNova ActiveSheet.Hyperlinks.Add Anchor:= _ Sheets(planBase).Range("A1"), Address:="", _ SubAddress:="'" & ActiveSheet.Name _ & "'!A1", TextToDisplay:=ActiveSheet.Name End If End Sub Desde já agradeço. Att. Gilberto

Desculpe pela insistência, mas seria possível, apenas copiar os nomes das planilhas para a coluna C linha 6 na planilha "Listar Abas"? e depois copiar os valores das células F4 destas mesmas planilhas para a coluna D linha 6 da mesma planilha "Listar Abas"? muito obrigado.

Osvaldo, obrigado pelo retorno. para simplificarmos, o código poderia ser modificado para fazer a minha citação? mais uma vez obrigado

Osvaldo, obrigado pelo retorno, acho que não me expliquei bem. Seria possível, apenas copiar os nomes das planilhas para a coluna C linha 6 na planilha "Listar Abas"? e na copiar os valores das células F4 destas mesmas planilhas para a coluna D linha 6?

Osvaldo, tentei rodar o código, porém resulta em erro... Quanto ao modelo de resultado que você apresentou, ficou um pouco diferente ao que estava esperando, veja o modelo do resultado final esperado.

Osvaldo, segue novamente, excluir algumas informações desnecessária para reduzir o tamanho do arquivo. NOVA-CONCILIAÇÕES_JULHO_2018.xlsx