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