Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Atualizar celula ap...
 
Notifications
Clear all

Atualizar celula após uso de checkbox

 
2024 - VBA & Macros
Post Recente por klarc28 7 anos atrás
9 Posts
4 Usuários
0 Reactions
1,464 Visualizações
RSS
 gustavomm
(@gustavomm)
Posts: 9
Active Member
Topic starter
 

Galera, boa tarde.
Estou tendo um problema com o seguinte codigo, ele é funcional, porem so funciona se eu edito a celula O71.
Precisava que após a condição dada na checkbox, eu conseguisse levar o valor de 071/2 para a celula w71, preenchendo 071 depois do checkbox.

Private Sub CheckBox8_Click()
If CheckBox8.Value = True Then Range("w71") = Range("O71").Value / 2

End Sub

Alguem sabe como faço para corrigir esse probleminha ?
Tentei usar o evento change da planilha na celula 071, porem não obtive sucesso.

 
Postado : 21/03/2018 9:33 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

gustavomm,

Boa tarde!

Por gentileza, anexe seu arquivo aqui no fórum, compactado com .ZIP.

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 : 21/03/2018 11:38 am
 gustavomm
(@gustavomm)
Posts: 9
Active Member
Topic starter
 

Olá, não consegui anexar o arquivo, diz que este é muito grande.
Fiz o upload dele no 4shared, segue !
https://www.4shared.com/file/QwbS_adwca/proposta.html
Muito obrigado pela resposta

 
Postado : 21/03/2018 11:54 am
 gustavomm
(@gustavomm)
Posts: 9
Active Member
Topic starter
 

Galera, consegui o que queria, mas mais ou menos.

Usei o seguinte code: 

Private Sub Worksheet_Change(ByVal Target As Range)
    If CheckBox8.Value = True Then Range("w71") = Range("O71").Value / 2
End Sub

O que eu queria como objetivo final, era que acionar um checkbox e a celula W71 recebecesse o valor de o71/2, o code esta fazendo o que desejo, porem me aparece o seguinte erro:

ERRO EM TEMPO DE EXECUÇÃO "-2147417847(80010108)'
O METODO "_DEFAUT" DO OBJETO "RANGE" FALHOU

e o excel fecha. O que estou fazendo de errado ?

 
Postado : 22/03/2018 7:14 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Será que é isso?

Private Sub Worksheet_Change(ByVal Target As Range)
    If CheckBox8.Value = True Then 
    Range("w71").Value = Range("O71").Value / 2
    End If
End Sub

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 22/03/2018 7:31 am
 gustavomm
(@gustavomm)
Posts: 9
Active Member
Topic starter
 

Acontece o mesmo problema usando esse code que vc passou xlaruda, ele faz o que inicialmente preciso, porem o excel fecha !

 
Postado : 22/03/2018 7:59 am
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Não conheço esse erro mas , parece estar relacionado à Userforms

https://social.msdn.microsoft.com/Forums/pt-BR/40ea7c09-7e6d-4efe-bd19-53f233f4a011/erro-em-tempo-de-execuo-2147417848-80010108-erro-de-automao-o-objeto-chamado-foi?forum=vbapt

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 22/03/2018 8:39 am
 gustavomm
(@gustavomm)
Posts: 9
Active Member
Topic starter
 

Massa ! Eu não estou usando USERFORM, a planilha de cadastro é gerada em planilhas mesm, ela so repassa a informação de uma para outra !

 
Postado : 22/03/2018 8:45 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Private Sub CheckBox8_Change()
If CheckBox8.Value = True Then
    Range("w71").Value = Range("O71").Value / 2
    End If
End Sub
 
Postado : 23/03/2018 5:48 am
Forum Jump:
  Tópico Anterior
Próximo Tópico