Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pegar uma célula de uma planilha e desmembrar em várias linhas

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
esteves.arthur
Acabou de chegar
Acabou de chegar
Mensagens: 8
Registrado em: Qua Nov 04, 2020 1:29 pm

Pegar uma célula de uma planilha e desmembrar em várias linhas

Mensagem por esteves.arthur »

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
WhatsApp Image 2021-06-22 at 12.25.43.jpeg
WhatsApp Image 2021-06-22 at 12.25.43.jpeg (60.51 KiB) Exibido 1446 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


LuanaBailon
Acabou de chegar
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

Mensagem por LuanaBailon »

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)

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


esteves.arthur
Acabou de chegar
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

Mensagem por esteves.arthur »

Deu tudo certo. Muito obrigado Luana!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder