OreiaG

Olá, @Janilson Brito Veja se o código abaixo lhe atende. Sub BuscaData() Dim rng As Range Set rng = Sheets("DADOS - DIA").Rows(4).Find(Sheets("Passagem de Turno I").[D6]) If Not rng Is Nothing Then Sheets("DADOS - DIA").Activate: rng.Activate End Sub

Considerei que os nomes das planilhas (que você chama de abas) estão a partir de A3. =INDIRETO("'"&A3&"'!A1")

Experimente esta abaixo. Se não resolver, então anexe o arquivo com as fórmulas e informe a versão (versão de qual país) do seu Excel. =MID(B2;SEARCH("-";SUBSTITUTE(B2;C2;"");1)+3;5)

A mensagem que aparece ao clicar naquela figura indica que não existe uma macro associada a ela. Tradução: a figura é só um "enfeite" na planilha.

Possivelmente isso não seja um "bug", e sim uma macro mal elaborada ou elaborada para fins diferentes. Seria interessante você disponibilizar o código aqui no fórum. obs. após colar o código na janela de resposta, selecione-o e clique no ícone Code ( <> ) na Barra de Ferramentas da janela de resposta.

Em C2, retorna 10-01 =EXT.TEXTO(B2;LOCALIZAR("-";B2;1)-2;5) Em D2, retorna 07-01 =EXT.TEXTO(B2;LOCALIZAR("-";SUBSTITUIR(B2;C2;"");1)+3;5) Em E2, retorna 03-01 =EXT.TEXTO(B2;LOCALIZAR("-";SUBSTITUIR(SUBSTITUIR(B2;C2;"");D2;""))+8;5) Em F2, retorna 02-03 =EXT.TEXTO(B2;LOCALIZAR("-";SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(B2;C2;"");D2;"");E2;""))+13;5) Se precisar, selecione C2:F2 e arraste para baixo.

Olá, @tetchelex Anexe aqui o seu arquivo Excel com alguns exemplos representativos, não repetidos, e coloque o resultado desejado em cada exemplo.

Experimente: =MED(A3;C3) resultado 3,78% obs. a MEDIANA entre dois valores coincide com a MÉDIA entre dois valores. =MÉDIA(A3;C3) >>> resultado 3,78%

Segue uma sugestão: cole a fórmula abaixo em G4 da planilha do arquivo do post #1, arraste para a direita, arraste para baixo. =SE(E(TEXTO($D4;"ma")=TEXTO(G$2;"ma");$F4=0);TEXTO($D4+1;"dd/mm")&" "&TEXTO($E4;"0,00");SE(OU(FIMMÊS(G$2;0)<FIMMÊS($D4;1);FIMMÊS(G$2;0)>FIMMÊS($D4;$F4));"";TEXTO(DATA(ANO($D4);MÊS(G$2);DIA($D4));"dd/mm")&" "&TEXTO($E4/$F4;"0,00")))

Cole uma cópia da fórmula abaixo em C2 =ALEATÓRIOENTRE($A2/$B2-1;$A2/$B2+1) Cole uma cópia da fórmula abaixo em D2 e arraste até N2 =SE(COL(B1)=$B2;$A2-SOMA($C2:C2);SE(COL(B1)>$B2;"";ALEATÓRIOENTRE($A2/$B2-1;$A2/$B2+1)))

Olá, @Tentar Explique como você obteve os valores que você colocou em C15:N16.

Experimente o código abaixo. Sub ClassificaDados() [I1:J60].Copy: [I1].PasteSpecial xlValues [H1:J60].Sort Key1:=[J1], Order1:=xlAscending End Sub

Favor fornecer a informação solicitada na mensagem anterior, reproduzida acima.

Para facilitar o entendimento do que você deseja, anexe diretamente aqui no fórum o seu arquivo Excel. Se o arquivo não contém macros então não é necessário compactar. Além dos dados brutos, coloque também na planilha o resultado desejado, e informe se você quer que o resultado sobreponha os dados brutos ou se quer o resultado em outro intervalo. A macro a ser elaborada irá substituir as fórmulas pelos seus respectivos valores e em seguida irá Classificar a tabela. É isso que você deseja?

Para automatizar a operação ou todo o processo penso que teria que ser via macro. Como se trata de Google Planilhas eu não consigo lhe ajudar com a macro. Talvez se você procurar algum fórum especializado em Google Planilhas seja mais fácil obter ajuda.

Olá, @Fernando Cardoso de Melo Antes de Classificar é preciso substituir as fórmulas das colunas I:J pelos seus respectivos valores. Para isso, copie H1:J60 e cole como Valores nesse mesmo intervalo ou em outro intervalo da planilha e em seguida classifique os dados colados. obs. grafia correta >>> adjacentes

A solução é criar um novo arquivo formado somente com cópias das Planilhas, dos Módulos e dos Formulários de interesse que estão no arquivo atual e em seguida Salvar Como esse novo arquivo com o nome do atual. Para copiar/colar Módulos e Formulários de forma fácil: primeiro abra um novo arquivo, em seguida acesse o Editor de VBA e arraste individualmente cada Módulo e cada Formulário do arquivo atual para o novo. E para fazer cópias das Planilhas clique com o direito na Guia de cada Planilha / Mover ou Copiar / selecione o nome da nova pasta / Criar uma cópia / OK

@Batista.fcm Que bom que funcionou. Ficamos contentes por você ter encontrado uma solução. Deus lhe abençoe também, saúde, paz e sucesso.

Segue um código meio que na adivinhação pois o layout é totalmente diferente do modelo simplificado anexado ao post #7 e você não colocou o resultado desejado e não passou qualquer explicação. Sub ReplicaDados_V2() Dim cO As Long, i As Long, v As Long, LC As Long, dtO As Range Dim cD As Long, rD As Long, k As Long, Narr(1 To 16000) [D20:AOP25] = "" Application.ScreenUpdating = False k = Application.CountA(Range("D3:AOP16")) LC = Rows("3:16").Find(what:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column For cO = 4 To LC If Application.CountA(Cells(3, cO).Resize(14)) > 0 Then For Each dtO In Cells(3, cO).Resize(14).SpecialCells(2) Narr(i + 1) = dtO.Value: i = i + 1 Next dtO End If Next cO For v = LBound(Narr) To UBound(Narr) Cells(20 + rD, 4 + cD) = Narr(v): rD = rD + 1 If v = k Then Exit Sub ElseIf v Mod 6 = 0 Then rD = 0: cD = cD + 1 End If Next v End Sub obs. 1. antes de testar remova o texto FIM da célula AOP16 2. para o correto funcionamento do código acima as células à direita de AOP3:AOP16 deverão permanecer vazias 3. "Destino a partir de D20:AOP25" >>> a partir de D20:D25

Olá, @Batista.fcm "aproveito também para deixar a imagem caso sirva de ajuda." Não é possível testar macros em imagens, então precisamos do arquivo Excel com os dados relevantes e o resultado desejado na planilha.

Sim, podemos tentar ajudar, mas precisamos que você nos Informe com exatidão o significado de "atender um numero maior de celulas". (células)

Olá, @Batista.fcm Segue uma solução, caso você queira experimentar. Considerei a origem dos dados em D11:O16 e o destino a partir de AF11:AF16. Retorne se precisar ajustes nesses intervalos. Sub ReplicaDados() Dim cO As Long, rO As Long, i As Long, v As Long Dim cD As Long, rD As Long, k As Long, Narr(1 To 100) [AF11:AM16] = "" k = Application.CountA(Range("D11:O16")) For cO = 4 To 15 For rO = 11 To 11 + Application.CountA(Cells(11, cO).Resize(6)) - 1 Narr(i + 1) = Cells(rO, cO).Value: i = i + 1 Next rO Next cO For v = LBound(Narr) To UBound(Narr) Cells(11 + rD, 32 + cD) = Narr(v): rD = rD + 1 If v = k Then Exit Sub ElseIf v Mod 6 = 0 Then rD = 0: cD = cD + 1 End If Next v End Sub

Em todo o Projeto VBA fiz a substituição de Planilha5xxx por Sheets("Relatorio") e o erro não ocorre. Veja se funciona aí. 1. abra o editor de VBA 2. aperte Ctrl+l para abrir a caixa Localizar/Substituir 3. no campo Localizar coloque Planilha5111 4. no campo Substituir coloque Sheets("Relatorio") 5. marque Projeto atual 6. clique em Substituir todas Repita a sequência acima duas vezes mudando somente para Planilha511 e por último para Planilha51 Em seguida faça os testes.