Este fórum está sendo desativado

[Grau]

Boa tarde Pessoal,

Gostaria de uma informação. Eu consigo definir o valor de uma célula através de outra célula?

[alexandrevba]

Boa tarde!!

Eu não entendi....


Imagine que vc tem célua A1 e B1, dentro de A1 coloque =B1, terá o valor de de B1 em A1, se não for isso detalhe melhor sua dúvida.

Att

[Grau]

Desculpe, vou tentar explicar melhor!
Exemplo:Tipo definir o valor da célula A1 dentro da célula ou na célula B1.

[JorgeLuisNeves]

Não ficou claro a sua definição.

Se vc o valor de B1 em A1, coloque em A1 o seguinte: =B1

[Grau]

Não, tipo assim
Tipo na célula A1: Definir B1=150 e na célula B1 aparecer 150.
Acho que não é possivel

[daniexcel]

voce pode tentar fazer uma macro

[FelipeGualberto]

Você irá precisar de usar VBA. Cole o código abaixo na classe da planilha em que você altera o valor de A1:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim CellAddress As String
    Dim CellValue As Double
    Dim InputValue As Variant
    
    If Intersect(Range("A1"), Target) = "" Then Exit Sub
    
    Application.EnableEvents = False
    
    On Error GoTo ErrorHandler
    
    InputValue = Split(Range("A1"), "=")
    CellAddress = InputValue(0)
    CellValue = InputValue(1)
    
    Range(CellAddress).Value2 = CellValue
Quit:
    Application.EnableEvents = True
    Exit Sub
ErrorHandler:
    MsgBox "Entrada de dados incorreta. Digite, por exemplo, B1=150 na célula A1.", vbCritical
    Resume Quit
End Sub