CheckBox

2024 - VBA & Macros

Post Recente por Handred 8 anos atrás

3 Posts

2 Usuários

0 Reactions

794 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

or a = 1 to cont (exemplo)

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

obrigado.

Postado : 09/11/2016 4:20 pm

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 7: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 9:59 am