Batista.fcm

@OreiaG ! Perfeito amigo!!! Ficou exatamente como o esperado. Mais uma vez tenho que agradecer muito por existir esse clube do Hardware e também por existirem pessoas como você e os demais amigos que dedicam parte do seu tempo para poder ajudar aos outros!!! Fico feliz e agradecido porque realmente eu não tenho capacidade nenhuma de criar um codgo assim, sou apenas usuário da ferramenta do Excel. Mais uma vez obrigado @OreiaG e que Deus continue te abençoando com sabedoria, forte abraço.

Ola bom dia @OreiaG ! tudo certo, segue-se em anexo ja formatado no padrão final: AUTO.PREENCHIMENTO.CLUBE.DO.HARDWARE.xlsm.zip

Opa boa noite amigo! obrigado por manter contato, Verdade né, preciso especificar melhor isso. Vamos la: Aproveitando sua introdução, " 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." Formatei o layout da Planilha e então ficou assim os dados: Origem dos dados em D3:AOP16 Destino a partir de D20:AOP25 aproveito também para deixar a imagem caso sirva de ajuda. Precisando de mais informações por favor sinta-se a vontade para perguntar.

@OreiaG! Muito obrigado por entrar em contato! Sim você consegui-o entender perfeitamente a minha ideia. Tentei fazer uma modificação no codgo, para que ele pudesse atender um numero maior de celulas, porém ele da um erro que não consigo encontrar como corrigir. Alterei o codgo dessa maneira: 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) [BN11:DK16] = "" k = Application.CountA(Range("D11:BJ16")) For cO = 4 To 61 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, 66 + 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 e nessa foto é o erro que esta dando: Por gentileza, consegue ajudar

Ola @Midori tudo bem com você, espero que sim!!!! Ja utilizei bastante a solução que você conseguiu para mim através do codgo VBA. Infelizmente não possuo a versão 365 da microsoft. Gostaria muito de poder contar com sua ajuda novamente, preciso de algo que imagino ser simples para vocês mas que eu não sei fazer.... Gostaria apenas de mudar a posição das informações conforme o anexo do arquivo. a imagem também ajuda a mostrar a alteração que gostaria que pudesse fazer no codgo VBA: TESTE_VBA_AUTO.PREENCHIMENTO(1).xlsx

@Midori , bom dia! Excelente! 100% de acerto, ficou perfeito e era exatamente minha necessidade... Muito, mas muito obrigado mesmo por sua ajuda! Parabéns também pela existência desse grupo, por muitas vezes vejo soluções e ideias de outros problemas que eu também posso aplicar em minhas necessidades e é fantástico observar que ainda hoje em dia existam pessoas contribuem ajudem o próximo, mesmo que para isso elas tenham de abrir mao de um tempo seu para ajudar a um outro. Muito obrigado!

ola saudações @Midori ! Muito obrigado por retornar uma resposta a minha duvida, agradeço sinceramente pela sua disposição e tempo dedicados para me responder. Infelizmente sou usuário básico de Excel, para fazer um Procx eu já tenho dificuldades, imagina então tentar ler e entender uma lógica de programação como a sua sugestão. Nesse caso eu não consigo avançar na minha solução para o problema apresentado... Caso desejar e se for possível, consegue testar essa macro no arquivo em anexo - de antemão sou agradecido pela a ajuda.

Ola Prezados! Estou tentando buscar uma solução seja por formula ou VBA para executar auto preenchimento. A ideia é que pegue os dados que sao inseridos manualmente em uma coluna e os copie de maneira ordenada em uma tabela vertical. Será que isso é possível dentro do Excel ou será que existe uma outra função para esse fim? Para facilitar o entendimento estou anexando uma imagem explicando o passo a passo da mecânica e também disponibilizando o arquivo em Excel caso alguém possa me ajudar com as suas habilidades e conhecimentos. Desde já agradeço pelo help! TESTE_VBA_AUTO.PREENCHIMENTO.xlsx

@OreiaG Show de bola!!! Muitíssimo obrigado por solucionar minha duvida. Sua dica atendeu exatamente essa a minha necessidade, muito bom poder contar com essa comunidade e com seus valiosos membros.

Ola Prezados! Estou tentando utilizar a função "MAIOR" e gostaria que ela me retorna-se além do valor, retornar também a cor da célula. Será que isso é possível dentro do Excel sem a utilização de VBA e será que existe uma outra função para esse fim? Estou tentando =MAIOR(B5:D5;1) mas não sei como poderia fazer para ela trazer a cor também! Estou deixando em anexo também o arquivo em Excel caso alguém possa me ajudar FUNCAO MAIOR RETORNAR COM A COR DA CELULA.xlsx