Notifications
Clear all

Checkbox sai 0 e 1 em vez de Sim e Não

7 Posts
4 Usuários
0 Reactions
1,606 Visualizações
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Boa tarde minha boa gente.
Usei o seguinte para executar o tópico só que quando grava na plan fica "0" e "-1"

If CheckBox1.Value= False Then
CheckBox1="Sim"
Else
CheckBox1="Não"
End If

Podem ajudar?
Obrigado.
Abraço,
RM

 
Postado : 25/02/2018 8:45 am
(@pasedo)
Posts: 90
Trusted Member
 

Veja se este exemplo ajuda você.

 
Postado : 25/02/2018 11:47 am
(@klarc28)
Posts: 971
Prominent Member
 

Rui, por que não anexou o arquivo? É necessário explicar o que deseja fazer, pois esse código que postou está incompreensível.

If CheckBox1.Value= False Then
plan1.range("A1").value="Sim"
Else
plan1.range("A1").value="Não"
End If
 
Postado : 25/02/2018 1:31 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Rui Maciel,

Boa tarde!

Não sei se entendi... segue minha sugestão.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 25/02/2018 1:35 pm
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Boa noite
Desculpem mas ficou o aplicativo por anexar e talvez não me tenha explicado bem. Ora, pretendia que o checkbox1 do userform2 transitasse para a planilha fosse como sim ou não, pois, está a sair "0" e "-1". Obrigado desde já. "ADM" e "1234".
Abraço,
RM

 
Postado : 25/02/2018 2:23 pm
(@klarc28)
Posts: 971
Prominent Member
 
 If CheckBox1.Value = True Then
        Sheets("Paroquianos").Cells(linha, 7).Value = "SIM"
        Else
                Sheets("Paroquianos").Cells(linha, 7).Value = "NÃO"

        End If
       
 
Postado : 25/02/2018 5:05 pm
(@rui-maciel)
Posts: 190
Reputable Member
Topic starter
 

Obrigado a todos.

 
Postado : 26/02/2018 2:27 pm