Notifications
Clear all

Salvar em Sheet diferente de acordo com a seleção da Cobobox

5 Posts
1 Usuários
0 Reactions
821 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde a todos!

Estou precisando, mais uma vez, da ajuda de vocês.
Eu tenho um formulário para preenchimento de uma pesquisa de satisfação.
Essa pesquisa funciona da seguinte maneira:
Tenho vários treinamentos e instrutores para avaliar, então na 1ª tela seleciono o treinamento e o instrutor. Aqui surge o meu problema.
Quando eu selecionar o treinamento ele vai ter que salvar as informação em uma determinada sheet, por exemplo, na plan1.
Ai quando eu selecionar outro treinamento, em uma próxima pesquisa, e clicar no botão iniciar ele vai ter que salvar as informações em outra sheet, e assim vai para todos os treinamentos.

A planilha está em anexo. Se puderem me ajudar...

Valeu!!!

 
Postado : 11/05/2012 10:53 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alguém conseguiu dar uma olhada?
Precisaria disso para finalizar a planilha.
Obrigado!

 
Postado : 15/05/2012 10:57 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Danilo, abri seu arquivo aqui, dei uma olhada no código pra entender mas ainda preciso saber: essa lógica de "salvar numa planilha diferente", como funcionaria? Teria que criar outra sheet? Porque aqui eu só vejo a Acesso, Resultados e a Base.

De qualquer forma, você pode tratar onde salvar suas informações utilizando a estrutura Select Case se por exemplo:

'caso o usuário escolha as opções A, J, C ou E, salve na planilha "123".
Select Case nomedacombo.Text
         Case A, J, C, E 
                sheets("123").activate
         Case B,D,K   'outros casos quaisquer
                sheets("456").activate
         Case Else 'Caso a entrada não faça parte das opções possíveis
                msgbox "Opção inválida!",vbcritical+vbokonly,"Erro"
End Select

Ou ainda, se o nome da planilha será EXATAMENTE o conteúdo da combo, nada mais simples do que:


       Sheets(NomeDaCombo.Text).activate
       'seu código de salvamento aqui

Espero ter ajudado.

Abraços.

 
Postado : 16/05/2012 11:41 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Valeu kdu.bmartins

Sua resposta caiu como uma luva!
Consegui terminar a planilha.

Fiz o seguinte:

Private Sub Salvar_Click()

Dim LastRow As Long

If ValidarDados = False Then
Exit Sub
End If

LastRow = Worksheets(r23.Text).Cells(Worksheets(r23.Text).Rows.Count, 23).End(xlUp).Row + 1
Worksheets(r23.Text).Cells(LastRow, 23).Value = r23.Value
Worksheets(r23.Text).Cells(LastRow, 24).Value = r24.Value

Obrigado!

 
Postado : 16/05/2012 12:48 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Beleza man, abraços!

 
Postado : 16/05/2012 1:02 pm