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

Osvaldo, boa tarde. estou mandando o link para baixar o arquivo no google drive muito obrigado https://drive.google.com/open?id=1oimCX5Vb_xCdS9X67o_YAfIIU4A2EvLl

Boa tarde. Preciso de ajuda para fazer uma macro no Excel. Já utilizei o forum vária vezes para tirar dúvidas e consegui encontrar todas usando a busca. Porém desta vez não consegui encontrar. É o seguinte. Tenho uma lista de contas contábeis em uma coluna de uma Plan "Balancete" na coluna A6 até .... (esse quantidade depende de empresa para empresa), ao lado desta Plan tenho varias outras que tem o mesmo nome desta lista e com as mesmas formatações de quantidade de colunas etc. Preciso criar uma macro que leia a lista de contas na Plan "Balancete" e localize a respectiva Plan de nome igual e na sequencia, pegue e realizar uma função igual ao PROCV, ou seja, abra localize a conta XXX da Plan "Balancete" na célula A6, na célula C6 da Plan correspondente e traz o valor da célula F6. Desde já agradeço Gilberto