none
Se não digitar textbox inserir zero RRS feed

  • 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.

    sábado, 6 de setembro de 2014 00:06

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
    sábado, 6 de setembro de 2014 20:37

Todas as Respostas

  • 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

    sábado, 6 de setembro de 2014 18:34
  • 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.

    sábado, 6 de setembro de 2014 19:33
  • 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
    sábado, 6 de setembro de 2014 20:37
  • Resolvido.

    Obrigado Natan Silva.

    sábado, 6 de setembro de 2014 21:44
  • Teria como fazer essa função para inserir 0 em todos os textbox que estiverem vazios ?
    sexta-feira, 5 de fevereiro de 2016 03:31
  • 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
    sexta-feira, 5 de fevereiro de 2016 10:17
  • Perfeito Natan !

    Obrigada

    sábado, 6 de fevereiro de 2016 00:18