Vou tentar resumir o que estou tentando fazer:
Fiz um userform para que meu usuário insere dados que vão alimentar uma tabela, ele pode colocar "n" informações e a tabela vai se formando de acordo com o volume de dados que ele preencher.
Após isso, quando ele terminar e clicar em FIM, quero que outro userform abra na tela com uma frase concatenando os dados que foram inseridos, seguindo uma lógica pré determinada.
Por exemplo, após os inputs a planilha ficou assim:
O que eu quero é que meu próximo userform traga o seguinte concatenado:
'Teste' -x "1111|2|66","2222|2|77","3333|3,88","4444|3|99" -n
Os termos que preciso adicionar com & eu consigo, mas nao sei como concatenar desta maneira os valores de cada coluna seguindo a sequência e parando até o ponto em que não existir mais informação na planilha.
Outro detalhe seria ter essa separação por , entre cada concatenado
O trecho onde quero colocar o comando para concatenar isso está aqui:
Private Sub sair_click()
Dim parse As String
parse = "concatenado"
Unload Me
code.console = parse
code.Show
End Sub
(depois que ele clica no botão FIM "sair" abre meu userform "code" com a variável "parse" que deve ter esse resultado concatenado.
Após utilizar a solução apresentada eu substituí o “sub ShowWithMessage” para a chamada do meu ultimo Userform, pois atendeu a demanda necessária (espera-se que meu user possa copiar o resultado para colar em outro local). Talvez seja algum erro que cometi, para ilustrar melhor, a sequencia esperada é o seguinte:
1º Userform: O usuário insere o título, após clicar em enter, outro userform abre;
2º Userform: O usuário insere as três informações necessárias para preencher as colunas da tabela quantas vezes necessário (Clicando em Enter após cada preenchimento). Ao terminar ele clica em FIM que traz o ultimo Userform com uma caixa de texto contendo o resultado concatenado.
Neste exemplo simulei o caso onde apenas uma linha fosse inserida pelo usuário.
+---+------------------+----------------+-----------+
| | A | B | C |
+---+------------------+----------------+-----------+
| 1 | Nome da Planilha | Teste' | |
| 2 | Node da Aula | Tipo da Tarefa | Agrupador |
| 3 | "1111| | 2| | 66" |
| | | | |
+---+------------------+----------------+-----------+
3º Userform: Como dito acima o resultado final da inserção de apenas uma linha completa na tabela ficou desta maneira:
O script do botão "FIM" está da seguinte maneira, utilizando a solução proposta neste tópico:
Private Sub sair_click()
Dim parse As String
Dim ws As Worksheet
Dim UltimaLinhaPlanilha As Long, Linhas As Long, Colunas As Long
Set ws = ThisWorkbook.Sheets("ADAE")
UltimaLinhaPlanilha = ws.UsedRange.Rows.Count
parse = ws.Range("B1") & " -x "
For Linhas = 3 To UltimaLinhaPlanilha
For Colunas = 1 To 3
parse = parse & ws.Cells(Linhas, Colunas)
Next Colunas
If Linhas <> UltimaLinhaPlanilha Then parse = parse & ","
Next Linhas
parse = parse & " -n"
Unload Me
code.console = parse 'Aqui eu chamo o ultimo userform "code" com o que estará escrito dentro da caixa de texto "console" no caso a variável "parse"
code.Show
End Sub