Página 1 de 1
Separar conteúdo de linhas em colunas condicionando
Enviado: 22 Nov 2019 às 16:55
por Vidoti
Fala galera, preciso de uma ajuda, preciso passar o conteúdo de algumas linhas para colunas, até ai seria fácil, o problemas é que essa separação tem que acontecer nos blocos separados por uma carácter como por exemplo "!", segue exemplo:
A planilha viria assim:
!
Maria
Josefa
Anezia
Matilde
!
Matheus
Carlos
Cafu
Dedé
!
Macaco
Leão
Curubira
Saci
!
Eu preciso separar esses blocos em colunas quebrando exatamente nos "!", ficado assim como esse exemplo:
Maria Josefa Anezia Matilde
Matheus Carlos Cafu Dedé
Macaco Leão Curubira Saci
Alguém consegue me ajudar??
Separar conteúdo de linhas em colunas condicionando
Enviado: 22 Nov 2019 às 17:45
por WillianVictor
@Vidoti, envie sua planilha ou um modelo e já aplicamos a solução diretamente.
Abs.
Re: Separar conteúdo de linhas em colunas condicionando
Enviado: 22 Nov 2019 às 19:00
por WillianVictor
@Vidoti,
Bom.. tenta essa solução pra ver se lhe atende.
Qualquer coisa, avisaê.
Abs.
Separar conteúdo de linhas em colunas condicionando
Enviado: 25 Nov 2019 às 09:38
por Vidoti
@WillianVictor, cara obrigado pela ajuda!!!!
Não consegui executar o "script", da erro na linha "Sheets("_transpor").Cells(lin, col).Value = Sheets(actWorksheet).Cells(l, 1).Value"*
Estou dando uma pesquisada para ver o que pode ser.
* essa é a linha que ele mostra ao depurar o erro
Agradeço a ajuda!!!
Re: Separar conteúdo de linhas em colunas condicionando
Enviado: 25 Nov 2019 às 09:49
por Diego100ges
Bom dia.
É sempre em intervalo de 4?
Separar conteúdo de linhas em colunas condicionando
Enviado: 25 Nov 2019 às 10:03
por Vidoti
@Diego100ges, não o intervalo é variável
Re: Separar conteúdo de linhas em colunas condicionando
Enviado: 25 Nov 2019 às 10:11
por Diego100ges
Tenta esse código, e me diz se deu certo
Código: Selecionar todosSub Acerta()
Application.ScreenUpdating = False
Dim UltimaLinha As Integer
Dim Lin As Integer
Dim Col As Integer
UltimaLinha = Cells(Rows.Count, 1).End(xlUp).Row
Lin = 1
Col = 1
Sheets("Plan1").Select ''Em "Plan1" Nome da sua planilha de origem
For i = 1 To UltimaLinha
If i = 1 And Sheets("Plan1").Cells(i, 1).Value = "!" Then
ElseIf Sheets("Plan1").Cells(i, 1).Value = "!" Then
Lin = Lin + 1
Col = 1
Else
Sheets("Base").Cells(Lin, Col).Value = Sheets("Plan1").Cells(i, 1).Value ''Em "Base" Nome da planilha ondem ficaram os dados
Col = Col + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Separar conteúdo de linhas em colunas condicionando
Enviado: 25 Nov 2019 às 10:41
por Vidoti
@Diego100ges, Obrigado!!
Ficou show, funcionou exatamente como eu precisava, preciso fazer mais algumas alterações e filtrar informações que irão aparecer na planilha nova, mas vou dar uma estudada e quebrar a cabeça e tentar fazer sozinho, se eu ficar perdido novamente eu volto ao fórum, mas agradeço a Você e ao @WillianVictor que me ajudaram muito!!!