Lucas Felipe Rita

@Patropi Pronto, resolvido. Obrigado pelo toque!

@Muca Costa Funcionou perfeitamente. Muito obrigado meu caro, ficou top demais!! Abraço

@Muca Costa Boa tarde meu caro! Funciona perfeitamente e resolve grande parte de todo o serviço manual que eu estava fazendo. Muito obrigado mesmo!! Sem duvida posso prosseguir adiante com esta incrível ajuda. Edit: Apenas gostaria de saber se tem como realizar o filtro/colagem de BUY e SELL de varios itens distintos ao mesmo tempo, ou precisa ser de 1 em 1? De qualquer forma, esta excelente, é apenas uma duvida. Muito grato! Abraço!

up

Prezados, bom dia a todos! Trabalho com uma lista de produtos os quais compro o dia todo, todos os dias. São milhares, todos os dias. Meu primeiro ponto de automatização era criar abas de acordo com o conteúdo em células e ativar o hyperlink para cada uma, de acordo com o seu nome, esta parte foi concluída através deste código: Sub InserePlanilhaCriaHiperlink() Dim ws As Worksheet, c As Range Set ws = ActiveSheet For Each c In ws.Range("A1:A" & ws.Cells(Rows.Count, 1).End(3).Row) If Evaluate("IsError(" & c.Value & "!A1)") = True Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = c.Value End If ws.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:= _ "'" & c.Value & "'!A1" Next c End Sub Agora preciso complementar o código que possuo ou obter um adicional para que realize o seguinte raciocínio: Na imagem abaixo, meu novo desafio após criar as abas com os hyperlinks ativos, é colar em todas, um modelo com formula que se encontra na planilha1, por enquanto estou fazendo manualmente, através da seleção em grupo das abas. Após isso, ao criar as abas de acordo com o conteúdo das células, preciso que seja copiado a linha inteira de cada (a partir de B3 até G3) e colar de acordo com seu respectivo nome (exemplo de B7 que é 2GIVE na aba 2GIVE), nas novas abas fazendo distinção das palavras chave BUY e SELL que sempre vão estar na coluna D (a partir de D3), onde BUY é colada a partir de C4 na nova planilha (de acordo com o nome) e SELL é colada a partir de L4. Segue imagem abaixo para melhor entender: Resultando em: Fazendo isso, resolvo a questão da organização das compras e vendas dos itens, faltando apenas facilitar a forma com que eu possa visualizar o lucro diário, o qual, não tenho a menor ideia de como automatizar. Gostaria de saber se é possível, por exemplo, ter uma aba chamada FATURAMENTO DIÁRIO, que filtra o campo chamado LUCRO que é dado através do modelo na planilha1 que estará em todas as abas, e o joga na aba FATURAMENTO DIÁRIO utilizando um filtro por dias. Estou disponibilizando o arquivo mencionado, onde já fiz boa parte das atualizações utilizando da ajuda fornecida aqui e também manualmente. Sei que minha necessidade é extensa, mas preciso de ajuda, agradeço a compreensão de todos. Desde já, sou muito grato por toda atenção e ajuda que venho recebendo. Atenciosamente, GERAL.xlsx

Bom dia, Perfeito, agradeço pela ajuda e atenção até agora, irei fazer o sugerido.

@osvaldomp Prezado, boa noite! Podes me dizer se é possivel fazer o que mencionei anteriormente? Meu trabalho não esta mais desenvolvendo devido a este impasse e pelo fato de eu ser leigo no assunto. Desde já, agradeço pelo ajuda e atenção!

Boa tarde! Deu certo, funcionou perfeitamente e o erro de antes não ocorreu, acredito que era algum caractere causava o erro. Tenho mais uma duvida, para o que vou descrever abaixo, é necessário comandos distintos, ou é possível fazer tudo no mesmo? Segue: - Criar as abas de acordo com o conteúdo nas células com hyperlink ativo; - Copiar a planilha1 (onde há um modelo com formula) e colar em todas as novas abas criadas; - Ao criar as abas de acordo com o conteúdo das células, copiar a linha inteira de cada e colar de acordo com seu respectivo nome nas novas abas fazendo distinção das palavras chave BUY e SELL que sempre vão estar na coluna D, onde BUY é colada a partir de C4 na nova planilha e SELL é colada a partir de L4. Estou enviando meu arquivo para que você possa dar uma olhada, se não for muito incomodo. Na planilha1, como mencionado, esta o modelo que deve estar em todas as abas, e na aba 2GIVE esta montado do jeito que tentei explicar acima. O que já você já fez me ajudou demais, por favor, se for possível realizar o restante, ira resolver os meu problemas. Desde já, muito obrigado mesmo Osvaldo!!! Abraço GERAL.xlsx

@osvaldomp Boa tarde! Muito obrigado, o código apresenta um erro, mas ele funciona perfeitamente para o que eu preciso, existe apenas 2 detalhes: 1º : Ele tem limite de criação de abas com hyperlink? Pois preciso fazer isso com o conteúdo de mais de 1400 células. 2º : Existe algum complemento no código para que se houver células com conteúdo/nome repetido ele crie a aba, e faça o hyperlink de todas as repetidas no mesmo link? Segue exemplo abaixo: Desde Já, muito obrigado Osvaldo. Abraço

Boa noite pessoal! Estou criando centenas de abas com conteúdo em células através do comando abaixo, porém preciso que ao mesmo tempo que essas abas sejam criadas com os nomes contidos nas células, elas estejam com Hyperlink ativo, cada uma com o seu respectivo link de acordo com o nome. Sub AddSheets() 'Updateby Extendoffice 20161215 Dim xRg As Excel.Range Dim wSh As Excel.Worksheet Dim wBk As Excel.Workbook Set wSh = ActiveSheet Set wBk = ActiveWorkbook Application.ScreenUpdating = False For Each xRg In wSh.Range("A1:A7") With wBk .Sheets.Add after:=.Sheets(.Sheets.Count) On Error Resume Next ActiveSheet.Name = xRg.Value If Err.Number = 1004 Then Debug.Print xRg.Value & " already used as a sheet name" End If On Error GoTo 0 End With Next xRg Application.ScreenUpdating = True End Sub O mais perto que cheguei foi com este comando a seguir, porém ele só cria de uma unica célula, e não de uma seleção, exemplo: de A1:A10. 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 Ficando assim: É possivel criar e linkar da forma que eu desejo? Muito obrigado!