Cambiar valor de otra celda de la fila activa

Probá con este código:

x = ActiveCell.Value
ActiveCell.Offset(0, -2).Range("A1").Select
y = ActiveCell.Formula
ActiveCell.Value = y & "+" & x
ActiveCell.Offset(0, 2).Range("A1").Select

Hola a todos.
¿cómo se podrà­a hacer mediante macro que cambie la

fórmula de la primera

columna de la celda activa?.Por ejemplo:
A1 B1 C1
Teniendo la celda C1 activa,al apretar a la macro que a

la celda A1 se le

aà±ada un valor a la formula.Y esto que se pudiera hacer

en cualquier fila.

Gracias a todos.

.

Gracias por responder.
Cuando ejecuto la macro me da un error:
"Error 1004 en tiempo de ejecucion: Error definido por el objeto o la
aplicación"
Este error se produce en esta parte del código si dicha celda ya tiene una
fórmula,si esta vacía no da ningún problema:
ActiveCell.Value = y & "+" & x
He cambiado lo de value por formula y tampoco funciona.
"David" escribió:

Probá con este código:

x = ActiveCell.Value
ActiveCell.Offset(0, -2).Range("A1").Select
y = ActiveCell.Formula
ActiveCell.Value = y & "+" & x
ActiveCell.Offset(0, 2).Range("A1").Select


>Hola a todos.
>¿cómo se podrà­a hacer mediante macro que cambie la
fórmula de la primera
>columna de la celda activa?.Por ejemplo:
>A1 B1 C1
>Teniendo la celda C1 activa,al apretar a la macro que a
la celda A1 se le
>aà±ada un valor a la formula.Y esto que se pudiera hacer
en cualquier fila.
>Gracias a todos.
>
>.
>

Sespir,

El codigo de David me funciona en XL2000. De todas formas lo he
desarroollado y limpiado un poco (p.ej. no es necesario seleccionar celdas
para manipularlas). Te lo adjunto mas abajo.
Saludos,
KL

'Inicio Codigo-
Sub test()
Dim x As Range, y As Range

Set x = ActiveCell
If x.Column <> 3 Then Exit Sub
If IsEmpty(x) Then Exit Sub
If Not IsNumeric(x) Then Exit Sub

Set y = ActiveCell.Offset(0, -2)

Select Case True
Case y.HasFormula
y.Formula = y.Formula & "+" & x
Case Not y.HasFormula
y.Formula = "=" & y & "+" & x
End Select
End Sub
'Fin Codigo-



"Sespir" wrote in message
news:

Gracias por responder.
Cuando ejecuto la macro me da un error:
"Error 1004 en tiempo de ejecucion: Error definido por el objeto o la
aplicacion"
Este error se produce en esta parte del codigo si dicha celda ya tiene una
formula,si esta vacia no da ningun problema:
ActiveCell.Value = y & "+" & x
He cambiado lo de value por formula y tampoco funciona.
"David" escribio:

Proba con este codigo:

x = ActiveCell.Value
ActiveCell.Offset(0, -2).Range("A1").Select
y = ActiveCell.Formula
ActiveCell.Value = y & "+" & x
ActiveCell.Offset(0, 2).Range("A1").Select


>Hola a todos.
>A?cA?mo se podrA-a hacer mediante macro que cambie la
fA?rmula de la primera
>columna de la celda activa?.Por ejemplo:
>A1 B1 C1
>Teniendo la celda C1 activa,al apretar a la macro que a
la celda A1 se le
>aA+ada un valor a la formula.Y esto que se pudiera hacer
en cualquier fila.
>Gracias a todos.
>
>.
>

Ya me funciona.
Gracias a los dos por la ayuda
:-)

"KL" escribió:

Sespir,

El codigo de David me funciona en XL2000. De todas formas lo he
desarroollado y limpiado un poco (p.ej. no es necesario seleccionar celdas
para manipularlas). Te lo adjunto mas abajo.
Saludos,
KL

'Inicio Codigo-
Sub test()
Dim x As Range, y As Range

Set x = ActiveCell
If x.Column <> 3 Then Exit Sub
If IsEmpty(x) Then Exit Sub
If Not IsNumeric(x) Then Exit Sub

Set y = ActiveCell.Offset(0, -2)

Select Case True
Case y.HasFormula
y.Formula = y.Formula & "+" & x
Case Not y.HasFormula
y.Formula = "=" & y & "+" & x
End Select
End Sub
'Fin Codigo-



"Sespir" wrote in message
news:
> Gracias por responder.
> Cuando ejecuto la macro me da un error:
> "Error 1004 en tiempo de ejecucion: Error definido por el objeto o la
> aplicacion"
> Este error se produce en esta parte del codigo si dicha celda ya tiene una
> formula,si esta vacia no da ningun problema:
> ActiveCell.Value = y & "+" & x
> He cambiado lo de value por formula y tampoco funciona.
> "David" escribio:
>
>> Proba con este codigo:
>>
>> x = ActiveCell.Value
>> ActiveCell.Offset(0, -2).Range("A1").Select
>> y = ActiveCell.Formula
>> ActiveCell.Value = y & "+" & x
>> ActiveCell.Offset(0, 2).Range("A1").Select
>>
>>
>> >Hola a todos.
>> >A?cA?mo se podrA-a hacer mediante macro que cambie la
>> fA?rmula de la primera
>> >columna de la celda activa?.Por ejemplo:
>> >A1 B1 C1
>> >Teniendo la celda C1 activa,al apretar a la macro que a
>> la celda A1 se le
>> >aA+ada un valor a la formula.Y esto que se pudiera hacer
>> en cualquier fila.
>> >Gracias a todos.
>> >
>> >.
>> >
>>