ppeterk

Avaliadores.xlsx Veja dessa forma!

@Rochenfels Mas você observou o q o código faz? Ele separa em colunas todas as "quebras de texto". Veja: Primeiro você escolhe a coluna que deseja separar as quebras e depois da OK". Veja o resultado na imagem

Execute a macro veja se algo desse estilo lhe atende. Base.rar

@Naejcarlos Acrescentei as alterações que o @Patropi recomendou e coloquei a condição "Vazio" caso seja "D". Calculo.xlsx

Da uma olhada nesse aí. Observação: eu tirei a soma dos valores da células"I3+J3+K3", uma vez que o resultado delas dá 19,11. Esse valor está correto? Pelo que vi, você deseja apenas os 15% e não 1911% Calculo.xlsx

@Naejcarlos Deseja fazer a soma do resultado da coluna "RESTOU" com "RESULT"? Ou seja, deseja somar os dois em uma célula só?

Já tentou utilizar "Texto para coluna"? Uma vez que os nomes seguem um padrão, você pode definir uma separação para eles. Se quiser, poste sua planilha de exemplo demonstrando como era e como deseja que seja!

Poste o arquivo em anexo, por gentileza.

Obrigado, Osvaldo!

@osvaldomp Muito obrigado pelo retorno. As coisas mudaram um pouco aqui, pois você se tornou membro VIP. Que bacana e parabéns! Quanto ao arquivo, eu consegui "fuçando" algumas ideias no VBA, visto que necessitava urgentemente no hospital que trabalho. Segue o código que utilizei e a planilha com o código. Se tiver uma sugestão de melhora, fico agradecido. Sub organizar() Range("A3").Select ultimo = Selection.End(xlDown).Row contar = 3 Cells(1, contar).Select For y = 1 To 1000 If Cells(1, contar) = "" Then Exit Sub Else '----- TESTE DO LOCALIZAR 'If Left(Cells(1, contar), InStr(Cells(1, contar), "-") - 1) = Left(Cells(3, contar), InStr(Cells(3, contar), "-") - 1) Then '----- FIM TESTE DO LOCALIZAR If Cells(1, contar) = Cells(3, contar) Then contar = contar + 1 Else If Cells(3, contar) = "" Then contar = contar + 1 Else ActiveSheet.Range(Cells(3, contar), Cells(ultimo, contar)).Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove End If End If End If Next y End Sub Abraços e muito obrigado. adicionado 8 minutos depois Organizar planilha.rar

Amigos, boa tarde! Todo mês tenho que formatar uma planilha pra que ela fique num padrão. Esse padrão consiste em colocar os dados sempre em suas respectivas colunas. Observem o exemplo da imagem: Note que a primeira linha é o "Padrão". Os dados abaixo dela devem se "deslocar" para sua respectiva coluna. No final tem que ficar assim: Gostaria de um código que comparasse com o padrão e o organizasse as colunas. Todo mês tenho que fazer o mesmo processo, sendo que o padrão nunca muda (primeira linha). Segue em anexo o arquivo exemplo. Desde já agradeço muito! Organizar planilha.xlsx

Nossa! Perfeito. É exatamente isso. Muito obrigado, @Patropi!

Amigos, boa tarde! Gostaria de um código que acrescentasse uma linha em branco a cada variação/mudança de código da coluna A (É tipo um subtotal). Exemplo: - Após o final do código A, adicione uma linha - Após o final do código B, adicione uma linha Pesquisei, mas só encontrei arrays definidos (a cada 100 linhas, a cada 25 linhas). Desde já agradeço

Ele rodaria esses jogos que citei?

Galera, boa tarde! Pretendo comprar algum PC pronto, mas estou muito em dúvida. Pesquisei muito e encontrei esses 3. Gostaria da opinião de vocês! Qual o melhor? Recomendam algum outro? Obs: Pretendo jogar just cause 3, The Witcher - talvez um just cause 4 no mínimo rsrs. https://www.terabyteshop.com.br/produto/6858/PC-Gamer-T-Soldier-LVL-1-Intel-Core-I5-Placa-de-Video-Nvidia-GeForce https://www.pichau.com.br/computador-pichau-gamer-bastet-ryzen-3-2200g-geforce-gtx-1050-ti-4gb-pny-ram-8gb-ddr4-hd-1tb-500w-si-5100 https://www.pichau.com.br/computador-pichau-rtb-moba-intel-i3-7100-geforce-gtx-1050-ti-4gb-pny-ram-8gb-ddr4-hd-1tb-500w-si-5100#Customize

Muito Obrigado, Patropi!

Galera, boa tarde! Tenho uma planilha com duas abas. Eu preciso que toda vez que seja digitado um valor na aba "analítica" seja preenchido automaticamente na aba "sintética", mas apenas valores exclusivos. No exemplo em anexo eu relaciono a forma que deve aparecer os dados... obrigado dados.xlsx

Veja! postei errado, desconsidere!

Poste uma planilha de exemplo e onde deseja que o resultado apareça (Não necessita ter todos os dados)!

Pelo que entendi... Veja se lhe atende a coluna B e as médias! Exemplo_Ppeterk.rar Edit: Estou relendo seu post... você deseja realizar as médias de todas as linhas que se encontram no horário desejado?

Poste um exemplo zipado para facilitar!

@THAAISBAT Não é muito complicado de entender. Inclusive, quem me demonstrou a base para criar isso foi nosso amigo - Méritos a ele -@osvaldomp. Mas tentando explicar o que o código faz (Alt + F11 para acessar o código). Dim x As Long, y As Long 'Aqui eu digo que x e y são variáveis do tipo Long (Números inteiros e longos). x = Range("B3:B30").Find(Range("B33").Value).Row 'Aqui eu digo que a variável x buscará o número de B33 entre as linhas B3 à B30 y = Range("C2:AD2").Find(Range("C33").Value).Column 'Aqui eu digo que a variável y buscará o número de C33 entre as colunas C2 à AD2 Range("D33").Value = Cells(x, y).Value 'Por fim. Aqui eu digo que a célula D33 receberá o valor encontrado na linha x e na coluna y. Espero não ter dito bobeira e espero que você tenha entendido.

Veja se lhe atende! Ofício_Ppeterk.rar

Veja se lhe atende! ORIGEM DESTINO_Ppeterk.rar

para facilitar, poste a planilha zipada no próprio tópico.