Se não digitar textbox inserir zero

Question

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.

Answer 1

Não seria isto:

Range("R6")=0

Não seria melhor usar o evento Exit da TextBox? Aí você pode colocar uma condição assim:

If TexBox1.Value = "" Then
	Range("R6")=0
End If

Att. Michel Macário

Answer 2

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.

Answer 3

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

Answer 4

Resolvido.

Obrigado Natan Silva.

Answer 5

Teria como fazer essa função para inserir 0 em todos os textbox que estiverem vazios ?

Answer 6

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

Answer 7

Perfeito Natan !

Obrigada