Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Célula não reconhec...
 
Notifications
Clear all

Célula não reconhece como numero recebido do TextBox

 
2024 - VBA & Macros
Post Recente por Miguel 70 8 anos atrás
4 Posts
3 Usuários
0 Reactions
948 Visualizações
RSS
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Ola bom dia,
Como faço para a célula reconhecer como numero e não texto recebido do TextBox?

Private Sub Workbook_Open()
teste
End Sub

Public Sub teste()’módulo
If Range("D5") >= Range("D6") Then 'Verificação pela Data
MsgBox "Prazo vencido", vbInformation
End If
End Sub

Private Sub CommandButton1_Click()’ formulário
Range("D6") = TextBox1
End Sub
exemplo.xlsm
 
Postado : 06/08/2016 5:34 am
EdsonBR
 EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Olá, Miguel, bom dia

Para resolver isso, vc pode ou usar uma das funções de conversão de tipo:

Range("D6") = CSng(Textbox1)

Ou usar um artifício, que seria usar qualquer operação matemática que não afete o valor, por exemplo multiplicar por 1 ou somar com 0:

Range("D6") = Textbox1 * 1

 
Postado : 06/08/2016 7:20 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Olá, Miguel.

Experimente

Range("D6") = TextBox1.Value

ou

Range("D6") = CDbl(TextBox1.Value)

Osvaldo

 
Postado : 06/08/2016 7:26 am
 Miguel 70
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Obrigado EdsonBR, Osvaldomp, todos os exemplo deu certo. Resolvido.

 
Postado : 06/08/2016 9:18 am
Forum Jump:
  Tópico Anterior
Próximo Tópico