Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Vinculo de valor de...
 
Notifications
Clear all

Vinculo de valor de célula com caixa de seleção

 
2024 - VBA & Macros
Post Recente por DouglasJef 7 anos atrás
4 Posts
2 Usuários
0 Reactions
772 Visualizações
RSS
 DouglasJef
(@douglasjef)
Posts: 3
New Member
Topic starter
 

Boa tarde!

Sou novo por aqui e preciso de ajuda.
Meu conhecimento com VBA é bem limitado e estou desenvolvendo uma planilha para controle de horas de funcionários, estou utilizado a UserForm e o código escrito para a mesma está praticamente concluído a não ser por um detalhe, preciso que o valor retornado pela CheckBox1_Click() seja um valor Fixo, por exemplo "0001" ao invés de verdadeiro quando selecionado, este valor pode estar lincado a célula que corresponde na planilha de trabalho ou até mesmo estar definido dentro da macro.
Alguém consegue me ajudar?
Segue abaixo os comandos que já estão funcionando:

Private Sub CheckBox1_Click()
(preciso fazer este cara entender que existe um valor para ele diferente de verdadeiro ou falso para ele retornar estes valores ao executar a Sub CommandButton1_Click() logo mais abaixo)
End Sub

Private Sub UserForm_Activate()
ComboBox1.AddItem "HE - Extra"
ComboBox1.AddItem "HB - Positivo"
ComboBox1.AddItem "HB - Negativo"

End Sub

Private Sub CommandButton1_Click()

Dim nPlan As String
nPlan = ActiveSheet.Name
Sheets("BD_HISTÓRICO").Select
Range("a65000").End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(0, 0).Value = Me.CheckBox1.Value
ActiveCell.Offset(0, 1).Value = Me.TextBox2.Value
ActiveCell.Offset(0, 2).Value = Me.TextBox3.Value
ActiveCell.Offset(0, 3).Value = Me.TextBox4.Value
ActiveCell.Offset(0, 4).Value = Me.ComboBox1.Value
Unload Me

Range("a65000").End(xlUp).Offset(1, 0).Select
ActiveCell.Offset(0, 0).Value = Me.CheckBox2.Value
ActiveCell.Offset(0, 1).Value = Me.TextBox2.Value
ActiveCell.Offset(0, 2).Value = Me.TextBox3.Value
ActiveCell.Offset(0, 3).Value = Me.TextBox4.Value
ActiveCell.Offset(0, 4).Value = Me.ComboBox1.Value
Unload Me
Sheets(nPlan).Select

End Sub
 
Postado : 07/04/2018 11:22 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
IF ME.CHECKBOX1.VALUE = TRUE THEN
VALOR = "00001"
END IF
 
Postado : 07/04/2018 11:29 am
 DouglasJef
(@douglasjef)
Posts: 3
New Member
Topic starter
 

Klarc28
Obrigado por me responder, mas ainda está me retornando um valor falso dentro da execução:
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
VALOR = "0001"
End If

End Sub

Algo que fiz errado?

 
Postado : 07/04/2018 11:49 am
 DouglasJef
(@douglasjef)
Posts: 3
New Member
Topic starter
 

Amigos, bom dia!

Andei trabalhando em minha planilha, aparentemente consegui solucionar meu problema. Ainda estou fazendo testes, mas segue abaixo o código criado que está me resultando em que preciso:

Private Sub UserForm_Activate()
ComboBox1.AddItem "HE - Extra"
ComboBox1.AddItem "HB - Positivo"
ComboBox1.AddItem "HB - Negativo"

End Sub

Private Sub CommandButton1_Click()

Dim nPlan As String
nPlan = ActiveSheet.Name
Sheets("BD_HISTÓRICO").Select
Range("a65000").End(xlUp).Offset(1, 0).Select
If Me.CheckBox1.Value = True Then
ActiveCell.Offset(0, 0).Value = "1297"
ActiveCell.Offset(0, 1).Value = Me.TextBox2.Value
ActiveCell.Offset(0, 2).Value = Me.TextBox3.Value
ActiveCell.Offset(0, 3).Value = Me.TextBox4.Value
ActiveCell.Offset(0, 4).Value = Me.ComboBox1.Value
Unload Me
    End If

Range("a65000").End(xlUp).Offset(1, 0).Select
If Me.CheckBox2.Value = True Then
ActiveCell.Offset(0, 0).Value = "1522"
ActiveCell.Offset(0, 1).Value = Me.TextBox2.Value
ActiveCell.Offset(0, 2).Value = Me.TextBox3.Value
ActiveCell.Offset(0, 3).Value = Me.TextBox4.Value
ActiveCell.Offset(0, 4).Value = Me.ComboBox1.Value
Unload Me
        End If
Sheets(nPlan).Select

End Sub

Abraços.

 
Postado : 10/04/2018 7:41 am
Forum Jump:
  Tópico Anterior
Próximo Tópico