Pessoal,
Sou muito noob, comecei ADS esse semestre e tem uma atividade que não consegui fazer de VBA e já vamos entrar em Access.
Eu preciso fazer um código que leia uma linha da planilha e na celular perfil pegar a célula que tem muitos valores separados por ponto e vírgula. Aí eu tenho que criar uma linha embaixo e colocar um por um até não ter mais, copiar os valores das outras células e partir para a próxima linha e fazer o mesmo. Linha modelo e como deve ficar abaixo. Estou ficando louco e não acho nada pra ler e tentar.
Código Funcionário Nome do Funcionário Dt.Demissão Sistema Perfil Dt_Registro Código Dependência Nome Dependência
3777448 JOSE MANOEL PEREIRA DA SILVA 11/05/2021 SSRH Opc1; Opc2; Opc3; Opc4; Opc5; Opc6; Opc7; Opc8; Opc9; Opc10; Opc11 17/05/2021 2507 CEASA RIO-URJ
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pegar uma célula de uma planilha e desmembrar em várias linhas
-
- Acabou de chegar
- Mensagens: 8
- Registrado em: Qua Nov 04, 2020 1:29 pm
-
- Acabou de chegar
- Mensagens: 8
- Registrado em: Seg Fev 15, 2021 6:33 pm
Re: Pegar uma célula de uma planilha e desmembrar em várias linhas
Boa noite, vi essa pergunta no fórum Script, vou repostar aqui, crie uma cópia do seu arquivo e teste esse código, por favor
(Não fiz referência a nenhuma planilha, pois não sei o nome ou codename da sua planilha)
(Não fiz referência a nenhuma planilha, pois não sei o nome ou codename da sua planilha)
Código: Selecionar todos
Sub preencher()
Dim VetorPerfil As Variant
Dim tlinha As Long, i As Long
VetorPerfil = Split(Range("e3").Value, ";")
tlinha = Range("a7").End(xlDown).Row + 1
For i = 0 To UBound(VetorPerfil)
Cells(tlinha, 1) = Range("A3").Value
Cells(tlinha, 2) = Range("b3").Value
Cells(tlinha, 3) = CDate(Range("c3").Value)
Cells(tlinha, 4) = Range("d3").Value
Cells(tlinha, 5) = VetorPerfil(i)
Cells(tlinha, 6) = CDate(Range("f3").Value)
Cells(tlinha, 7) = Range("g3").Value
Cells(tlinha, 8) = Range("h3").Value
tlinha = tlinha + 1
Next
End Sub
-
- Acabou de chegar
- Mensagens: 8
- Registrado em: Qua Nov 04, 2020 1:29 pm
Re: Pegar uma célula de uma planilha e desmembrar em várias linhas
Deu tudo certo. Muito obrigado Luana!