Notifications
Clear all

como separar em tópicos

5 Posts
2 Usuários
0 Reactions
952 Visualizações
valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

boa tarde pessoal

quando monto esta MsgBox, não fica separado por tópicos, como fazer para ficar um ítem sobre o outro?

Private Sub OptionButton1_Click()
Dim msg As String
If FrmInicio.OptionButton1.Value = True Then
msg = "Passos para elaboração do CHECK LIST:" & _
"1º - Após cadastrar clicando na figura INICIAR CHECKLIST, selecionar o botão do CHECK LIST correspondente;" & _
"2º - Se houver algum ítem Não Conforme, inserir informação no campo Observações no CHECK LIST ja elaborado;" & _
"3º - Salvar a planilha em PDF;" & _
"4º - Clicar no botão Voltar, na mesma planilha;" & _
"5º - Clicar no botão Gravar Plano de Ação;" & _
"6º - Selecionar o botão Plano de Ação, para ser enviado ao gestor da área (copiar e colar no corpo de email);" & _
"7º - Em seguida clicar no botão Plano de Ação acumulado, para que a(s) informação(ões) fique(m) gravada(s);" & _
"8º - Na sequência, clicar no botão Resumo Mensal das Atividades, para acumular as Não Conformidades inseridas;" & _
"9º - Conferir se as informações foram gravadas corretamente clicando no botão Resumo do CHECK LIST;" & _
"10º- Voltar para a tela inicia e SALVAR o arquivo antes de fechar."
End If
MsgBox msg
End Sub

 
Postado : 03/10/2014 12:28 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Para quebra de linha, use: vcCrLf

O código vai ficar assim:

Private Sub OptionButton1_Click()
Dim msg As String
If FrmInicio.OptionButton1.Value = True Then
msg = "Passos para elaboração do CHECK LIST:" & vbCrLf & _
"1º - Após cadastrar clicando na figura INICIAR CHECKLIST, selecionar o botão do CHECK LIST correspondente;" & vbCrLf & _
"2º - Se houver algum ítem Não Conforme, inserir informação no campo Observações no CHECK LIST ja elaborado;" & vbCrLf & _
"3º - Salvar a planilha em PDF;" & vbCrLf & _
"4º - Clicar no botão Voltar, na mesma planilha;" & vbCrLf & _
"5º - Clicar no botão Gravar Plano de Ação;" & vbCrLf & _
"6º - Selecionar o botão Plano de Ação, para ser enviado ao gestor da área (copiar e colar no corpo de email);" & vbCrLf & _
"7º - Em seguida clicar no botão Plano de Ação acumulado, para que a(s) informação(ões) fique(m) gravada(s);" & vbCrLf & _
"8º - Na sequência, clicar no botão Resumo Mensal das Atividades, para acumular as Não Conformidades inseridas;" & vbCrLf & _
"9º - Conferir se as informações foram gravadas corretamente clicando no botão Resumo do CHECK LIST;" & vbCrLf & _
"10º- Voltar para a tela inicia e SALVAR o arquivo antes de fechar."
End If
MsgBox msg
End Sub

No teu caso, sugiro usar 2x, para organizar emlhor:

Private Sub OptionButton1_Click()
Dim msg As String
If FrmInicio.OptionButton1.Value = True Then
msg = "Passos para elaboração do CHECK LIST:" & vbCrLf & vbCrLf & _
"1º - Após cadastrar clicando na figura INICIAR CHECKLIST, selecionar o botão do CHECK LIST correspondente;" & vbCrLf & vbCrLf & _
"2º - Se houver algum ítem Não Conforme, inserir informação no campo Observações no CHECK LIST ja elaborado;" & vbCrLf & vbCrLf & _
"3º - Salvar a planilha em PDF;" & vbCrLf & vbCrLf & _
"4º - Clicar no botão Voltar, na mesma planilha;" & vbCrLf & vbCrLf & _
"5º - Clicar no botão Gravar Plano de Ação;" & vbCrLf & vbCrLf & _
"6º - Selecionar o botão Plano de Ação, para ser enviado ao gestor da área (copiar e colar no corpo de email);" & vbCrLf & vbCrLf & _
"7º - Em seguida clicar no botão Plano de Ação acumulado, para que a(s) informação(ões) fique(m) gravada(s);" & vbCrLf & vbCrLf & _
"8º - Na sequência, clicar no botão Resumo Mensal das Atividades, para acumular as Não Conformidades inseridas;" & vbCrLf & vbCrLf & _
"9º - Conferir se as informações foram gravadas corretamente clicando no botão Resumo do CHECK LIST;" & vbCrLf & vbCrLf & _
"10º- Voltar para a tela inicia e SALVAR o arquivo antes de fechar."
End If
MsgBox msg
End Sub

Abs

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 03/10/2014 12:36 pm
valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

e se eu querer deixar esta caixa de informação até que termine os procedimentos.
qual o comando, ai quando eu der OK, ele fecha.

 
Postado : 03/10/2014 12:51 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Olha, na verdade, eu penso que este não é o melhor caminho.

O que eu faria seria inserir um botão "checklist", algo assim, que já tenha todos os procedimentos, sem que o usuário precise clicar aqui e ali.

Porém, se o usuário precisa acompanhar as tarefas, então, eu faria da seguinte forma, em cada código, termina informando o novo passo, ou seja, ele clica no botão "x", um código é executado, e, ao fim, uma msgbox aparece dizendo o próximo passo.

Lembrando que, eu nem sei o que vc está fazendo, mas, se deixar todos os passos visíveis para o usuário, com certeza alguém vai fechar a msgbox antes do que vc espera que ele o faça, e não vai funcionar como vc está planejando.

Para isso, seria o caso de vc incluir um botão "chamar informativo", apenas para exibir esta msgbox caso o usuário feche-a.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 03/10/2014 1:50 pm
valdecirrk
(@valdecirrk)
Posts: 230
Estimable Member
Topic starter
 

Ok, vou fazer isso, então.
Obrigado.

 
Postado : 03/10/2014 1:59 pm