Notifications
Clear all

Chamada da userform após ativação da célula....

7 Posts
2 Usuários
0 Reactions
1,267 Visualizações
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Amigos, Boa Tarde!!!
Conseguem me ajudar?
Tenho uma planilha que tem um intervalo de C6 à C100...
....Gostaria que qdo qualquer célula deste intervalo fosse acionada (cursos/Mouse), fosse chamada a userform código e após o usuário escolher um dos códigos (Spin buton), a userform “ficasse oculta”.
Conseguem me auxiliar?

 
Postado : 27/08/2015 11:31 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

xandrinho, siga os passos e veja se é isto :

A )chamada o userform se umas das celulas no intervalo "C6 à C100" for selecionada
Coloque este código na aba que deseja :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Not Intersect(Target, Range("C6:C100")) Is Nothing Then
        UserForm1.Show
    End If

End Sub

B ) escolher um dos códigos (Spin buton), a userform “ficasse oculta.
No seu modelo você não tem nenhum "Spin Buton" e sim OptionButton, apesasr que as instruções abaixo são facilmente adaptadas a qualquer controle :
1º ) Crie um "Modulo de Classe" - clique com o botão direito na janela propriedade do VBE e selecione Insrir - Modulo de Classe e cole as rotinas abaixo :

Public WithEvents OptionGroup As MSForms.OptionButton

Private Sub OptionGroup_Click()
    'MsgBox "Você clicou no " & OptionGroup.Name
    UserForm1.Hide
End Sub

2º ) De dois Cliques no seu formulário e cole as instruções :

Option Explicit

Dim OptionsBt() As New Classe1

Private Sub UserForm_Initialize()
    Dim OptionsCount As Integer
    Dim ctl As Control

    For Each ctl In UserForm1.Controls
        
        If TypeName(ctl) = "OptionButton" Then
            OptionsCount = OptionsCount + 1
            ReDim Preserve OptionsBt(1 To OptionsCount)
            Set OptionsBt(OptionsCount).OptionGroup = ctl
            
        End If
        
    Next ctl

End Sub

Salve, faça os testes e veja se é isto.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/08/2015 12:57 pm
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Mauro primeiramente mto obrigado msm...mas esta quase lá...o código chama a userform1, mas dá erro...desculpa expressei mal... qdo o usuário clicar no OptionButton...esta informação, deveria ser gravada na célula...por favor...continua me Ajudando...
Obs: Obrigado pela dica em relação aos nomes ("Spin Buton" ...OptionButton)

 
Postado : 27/08/2015 1:32 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

No momento já estou saindo, mais tarde dou uma olhada.
Só me esclareça quanto a :
"qdo o usuário clicar no OptionButton...esta informação, deveria ser gravada na célula."
Qual informação tem de ir para a planilha e em qual celula ?

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/08/2015 2:00 pm
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

...São os codigos que estão no opitunbutton..qdo o usuarios escolher...a informação escolhida iria ser gravada no intervalo c6:c100 sempre na célula ativa.....Obrigado pela atenção...

 
Postado : 27/08/2015 4:39 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se seria isto.

OptionButton WithEvents

Se a dica foi útil não esqueça de clicar na mãozinha agradecendo.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/08/2015 9:18 pm
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Brother...sem palavras...Glória a DEUS Obrigado amigo..Obrigado mesmo que DEUS possa a cada dia prosperar grandemente o seus caminhos e de todos os que compartilham conhecimento neste imenso cana de informação. Mto obrigado mesmo Fantástico deu certo!!!!

 
Postado : 28/08/2015 4:13 am