Multiplicar Valor da Célula

Question

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

Answer 1

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

Answer 2

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