Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
CheckBox
 
Notifications
Clear all

CheckBox

 
2024 - VBA & Macros
Post Recente por Handred 8 anos atrás
3 Posts
2 Usuários
0 Reactions
725 Visualizações
RSS
 Handred
(@handred)
Posts: 2
New Member
Topic starter
 

Boa tarde,

Estou criando uma planilha onde há vários checkbox, porém não queria fazer uma macro para cada um quando fosse clicado, e sim que ele informasse quais estão clicados.

me perdoem a ignorância, mas tentei utilizar o mesmo método que utilizo para sheets

f

or a = 1 to cont (exemplo)

if checkbox(A).value = true then
msgbox "OK"
end if

obrigado.

 
Postado : 09/11/2016 1:20 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 


Handred, veja se o arquivo anexo está de acordo com o que pretende.

Por exemplo:

If Me("CheckBox" & i).Value = True Then

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

 
Postado : 09/11/2016 4:07 pm
 Handred
(@handred)
Posts: 2
New Member
Topic starter
 

Edson,

realmente funcionou, mas agora me vi em outro impasse.

conforme a formula abaixo, ele não está identificando o value do produto.

Dim a As Long


[b]produto1 [/b]= Sheets("Dados").Range("C5")
produto2 = Sheets("Dados").Range("C6").Value
produto3 = Sheets("Dados").Range("C7").Value


For a = 1 To 4

resultado = Me("CheckBox" & a).Value



If resultado = True Then
On Error Resume Next
If TextBox1.Value = "" Then
TextBox1.Value = CCur([b]Me("produto" & a).Value)[/b]
Else
TextBox1.Value = CCur(TextBox1.Value) + CCur(produto)
End If
ElseIf CheckBox1.Value = False Then
On Error Resume Next
TextBox1.Value = CCur(TextBox1.Value) - CCur(produto)
End If

Next
 
Postado : 10/11/2016 6:59 am
Forum Jump:
  Tópico Anterior
Próximo Tópico