Usuário com melhor resposta
Se não digitar textbox inserir zero

Pergunta
-
Olá boa noite!
Gostaria de um código para que se o usuário não digitar nenhum número no textbox e este usuário clicasse em CommandButton1_Click inserisse na célula o numero zero.
Private Sub CommandButton1_Click() Range("R6") = TextBox1 End End Sub
Obrigado.
Respostas
-
Miguelinho,
cria um módulo e põe esse código....
Function funValorSeNulo(Valor As Variant, ValorSeNulo As Variant) As Variant If Valor = "" Or Valor = Null Then funValorSeNulo = ValorSeNulo Else funValorSeNulo = Valor End If End Function
Aí no seu commandbuttom você põe...
Range("A1").Value = funValorSeNulo(TextBox1.Value, "0")
Natan
- Marcado como Resposta miguelinho70 sábado, 6 de setembro de 2014 21:44
Todas as Respostas
-
-
Obrigado Michel Macário pela ajuda ate aqui. Não deu certo.
Na célula "R6" que recebe o numero do TexTbox não pode ficar vazia porque ha formula ligada a esta célula.
Então se o usuário não digitar nada e retirar o zero do TextBox e clicar em CommandButton1_Click vai da erro (###) em toda as formulas ligada à celular "R6".
Obrigado.
-
Miguelinho,
cria um módulo e põe esse código....
Function funValorSeNulo(Valor As Variant, ValorSeNulo As Variant) As Variant If Valor = "" Or Valor = Null Then funValorSeNulo = ValorSeNulo Else funValorSeNulo = Valor End If End Function
Aí no seu commandbuttom você põe...
Range("A1").Value = funValorSeNulo(TextBox1.Value, "0")
Natan
- Marcado como Resposta miguelinho70 sábado, 6 de setembro de 2014 21:44
-
Resolvido.
Obrigado Natan Silva.
-
-
Tenta assim Marcinha
For Each c In Me.Controls If TypeName(c) = "TextBox" Then If c.Value = "" Then c.Value = 0 End If Next
Natan
- Sugerido como Resposta MarcinhaRPVBA sábado, 6 de fevereiro de 2016 00:18
-