Notifications
Clear all

ajuda com Sheets("Plan14").Select

18 Posts
4 Usuários
0 Reactions
3,067 Visualizações
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Pessoal,

por favor, como faço para poder escolher uma planilha que será aberta?

eu tenho esse código:

    Sheets("Plan14").Select

porém ele só funciona se a planilha se chamar Plan14 (existe a possibilidade de abrir uma janela para o usuário escolher o nome da planilha existente na pasta de trabalho).

exemplo:

Sheets("Aqui ele vai poder escolher a planilha existente na pasta de trabalho").Select

Muito obrigado a todos.

 
Postado : 29/03/2018 9:43 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Não sei se eu entendi mas...

Tente algo assim:

Sub Mudar_Plan()
sh = Application.InputBox("Digite o nome da Plan")
Sheets(sh).Select
End Sub

Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 29/03/2018 10:21 am
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Olá, obrigado pela ajuda, era isso mesmo :) :)

Só um dúvida com relação a janela que é aberta.

seria possível remover os botões existentes na janela?

exemplo: obrigar o usuário a escolher pelo menos uma planilha existente na pasta de trabalho.

caso não seja possível remover todos os botões, seria possível remover pelo menos o botão de ajuda deixando assim apenas o botão de fechar?

muito obrigado

 
Postado : 29/03/2018 11:23 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Olha , remover esse botões eu não sei mas.

você pode usar esse código:

Sub Mudar_Plan()
On Error Resume Next
Do
sh = Application.InputBox("Digite o nome da Plan")
Sheets(sh).Select
If ActiveSheet.Name <> sh Then
MsgBox "Digite um nome válido!", vbCritical
End If
Loop Until ActiveSheet.Name = sh
End Sub

O que ele faz?

Ele fará com que a pessoa seja obrigada a inserir um nome válido de planilha. Caso contrário a janela, simplesmente não sairá da tela.

Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 29/03/2018 12:42 pm
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Agradeço pela atenção.

Por favor, então seria possível abrir planilhas conforme está na imagem anexa?

 
Postado : 29/03/2018 12:58 pm
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Perfeitamente Possível.

Por exemplo.

ao selecionar a planilha carrega o comando.

sub Abre_Plan()
Unload Userform1
Sheets(objetoalvo.vlaue).Activate
End Sub

onde objeto alvo seria o objeto que carrega o nome da plan escolhida.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 29/03/2018 1:05 pm
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

ótimo :D

por favor, você poderia enviar um modelo?

com apenas 3 planilhas mesmo, ai eu faço adaptação aqui.

ou se puder fazer a gentileza de passar os passos eu tento fazer aqui ( o arquivo modelo e é mais fácil para que eu posso entender :oops:

 
Postado : 29/03/2018 1:13 pm
(@lustosag)
Posts: 39
Eminent Member
 

Amigo... é possível fazer o seguinte.... criar uma lista como na imagem abaixo, imagine que lá estará listado todas as guias existentes e quando a pessoa der 2 cliques será redirecionada para a que ele escolher.
É isso que deseja?

Att

Lustosa

 
Postado : 29/03/2018 1:22 pm
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

Sim , isso mesmo que preciso :) :)

você poderia enviar um exemplo?

Muito obrigado

 
Postado : 29/03/2018 1:33 pm
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Ai vai da sua criatividade. Eu faria mais ou menos assim...

Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 29/03/2018 1:46 pm
(@lustosag)
Posts: 39
Eminent Member
 

Essa é a planilha do xlarruda editada com a adição de um botão que mostra o formato em lista.. espero que tenha resolvido sua questão

att

Lustosa

 
Postado : 29/03/2018 2:02 pm
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

ótimo modelo, só um detalhe :roll: :roll:

eu estou usando um código para ocultar a planilha quando ele for aberta.

ThisWorkbook.Application.Visible = False

UserForm1.Show

e eu gostaria de fazer assim:

a planilha será aberta porém inicialmente apenas o form será exibido, e o usuário vai usar a lista para escolher qual planilha ele quer exibir.

nessa caso eu só preciso inserir um código para abrir a planilha que foi selecionada, isso mesmo?

 
Postado : 29/03/2018 2:05 pm
(@lustosag)
Posts: 39
Eminent Member
 

Segue a planilha com as ultimas alterações pedidas ...

PS: Se o usuário fechar a FORM irá abrir a planilha de maneira padrão, para evitar que isto aconteça é necessário adicionar um código que não deixe o usuário fechar pelo [ X ] e a FORM só saia quando selecionar uma aba na lista.
Deseja que eu adicione esse recurso ?

att

Lustosa

 
Postado : 29/03/2018 2:15 pm
(@jnexcel)
Posts: 298
Reputable Member
Topic starter
 

apenas um detalhe, eu criei uma nova planilha (planilha teste), porém essa planilha não aparece na listagem (não aparece para o usuário escolher para abrir).

Em anexo segue a imagem.

 
Postado : 29/03/2018 2:25 pm
(@lustosag)
Posts: 39
Eminent Member
 

Isto por que toda vez que for criada uma nova aba deve ser acrescentada o nome dela na guia "Plans" para então, aparecer na lista.

EDIT: Não havia visto sua foto, é possível sim porém agora estou saindo do serviço, deixe em aberto que provavelmente alguém pode te ajudar nesta questão.

att

Lustosa

 
Postado : 29/03/2018 2:31 pm
Página 1 / 2