Página 1 de 1

Um CÉLULA definir o valor de outra celula

Enviado: 08 Jan 2016 às 11:46
por Grau
Boa tarde Pessoal,

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

Re: Um CÉLULA definir o valor de outra celula

Enviado: 08 Jan 2016 às 11:57
por 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

Re: Um CÉLULA definir o valor de outra celula

Enviado: 08 Jan 2016 às 12:15
por Grau
Desculpe, vou tentar explicar melhor!
Exemplo:Tipo definir o valor da célula A1 dentro da célula ou na célula B1.

Um CÉLULA definir o valor de outra celula

Enviado: 08 Jan 2016 às 15:42
por JorgeLuisNeves
Não ficou claro a sua definição.

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

Um CÉLULA definir o valor de outra celula

Enviado: 08 Jan 2016 às 15:57
por 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 :(

Re: Um CÉLULA definir o valor de outra celula

Enviado: 08 Jan 2016 às 16:57
por daniexcel
voce pode tentar fazer uma macro

Um CÉLULA definir o valor de outra celula

Enviado: 08 Jan 2016 às 17:04
por 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