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.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 16/05/2012 11:41 am