none
Multiplicar Valor da Célula RRS feed

  • Pergunta

  • Pessoal, alguem tem ideia de como eu posso multiplicar o valor inserido em uma célula por 1000?

    Exemplificando: Digamos que na célula A1 eu insira o número 4 e tecle ENTER e, automaticamente, a célula A1 muda pra 4.000 (pois, 4*1000 = 4000)

    Alguém sabe fazer isso? Daria certo, tendo em vista q o valor poderia ficar se "auto-calculando"?

    Preciso disso em todas as células da planilha.. É q como são valores em milhares e redondos ficaria comodo na inserção dos dados


    Obrigado, Everton
    terça-feira, 23 de agosto de 2011 19:03

Respostas

  • Boa noite!!

    Não sei vai te ajudar....mas segue um exemplo

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        If Range("a1") <> "" Then

        Range("a1").Value = Range("a1") * 1000

        Else

        Exit Sub

        End If

    End Sub

     

    Att..


    zinho
    • Sugerido como Resposta Bruno S. Leite quinta-feira, 25 de agosto de 2011 15:45
    • Marcado como Resposta almeida.eas quinta-feira, 25 de agosto de 2011 15:49
    quarta-feira, 24 de agosto de 2011 22:16

Todas as Respostas

  • Boa noite!!

    Não sei vai te ajudar....mas segue um exemplo

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        If Range("a1") <> "" Then

        Range("a1").Value = Range("a1") * 1000

        Else

        Exit Sub

        End If

    End Sub

     

    Att..


    zinho
    • Sugerido como Resposta Bruno S. Leite quinta-feira, 25 de agosto de 2011 15:45
    • Marcado como Resposta almeida.eas quinta-feira, 25 de agosto de 2011 15:49
    quarta-feira, 24 de agosto de 2011 22:16
  • Boa noite!!

     

    Não sei vai te ajudar....mas segue um exemplo

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        If Range("a1") <> "" Then

        Range("a1").Value = Range("a1") * 1000

        Else

        Exit Sub

        End If

    End Sub

     

     

    Att..


    zinho


    Fala cara!!

     

    Consegui da seguinte forma:

    Private Sub Worksheet_Change(ByVal Target As Range)
    
      Dim Celula As Range
    
      On Error Resume Next
      Application.EnableEvents = False
      For Each Celula In Target
        Celula.Value = Celula.Value * 1000
      Next
      Application.EnableEvents = True
    
    End Sub
    
    
    

     

    marquei o seu como resposta..

    Obrigado..

    Abs

     


    Obrigado, Everton
    quinta-feira, 25 de agosto de 2011 15:49