Notifications
Clear all
2024 - VBA & Macros
2
Posts
2
Usuários
0
Reactions
888
Visualizações
Topic starter
Preciso colar cada linha de uma celula em uma celula diferente, é possivel?
Por Exemplo:
A celula A1 possui 4 nomes, um em cada linha da celula... Como faço para colocar cada nome em uma celula diferente quando eu clicar no botao "Copiar"?
Por Exemplo "Joao Silva" ir para a celula B1, "Thiago" para a celula B2, "Pedro Pereira Santos" pra celula B3 e "Henrique" para a celula B4
Postado : 04/04/2015 11:37 am
O código a seguir faz o que vc quer. No modeo em anexo vc pode ver funcionando:
Sub separar_por_linha_GT()
Dim linhas() As String
Dim i As Long
linhas() = Split(Range("A1"), Chr(10))
For i = LBound(linhas()) To UBound(linhas())
Cells(i + 1, "B").Value = linhas(i)
Next i
End Sub
Se deu certo, amigo, lembre de agradecer, clicando na mãozinha.
Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.
Gilmar
Postado : 05/04/2015 10:33 am