VAlor que se añade a otra celda.

1?. Tengo una funcion de VBA, que escribi hace mas de un ano, en una hoja
de
calculo, el caso es que le puse una contrasena, seguro que ya sabeis por
donde van los tiros, no me acuerdo de la contrasena y necesito
modificarla.
Podeis decirme como la abro, o la doy por perdida.?

2?. Tengo una hoja de calculo, que tiene 9 columnas de datos, (A, B, C, D,
E, F, G, H, I ) de ellas, dos son de datos diarios, (E y F), y otras dos
de
datos mensuales, ( G y H ). La pregunta es como puedo hacer para que los
valores que introduzca en E y F se sumen, (o resten si son negativos), a
los
que tengan G y H respectivamente.
Creo que me he expresado bien.

Hola Josearia,

> 1?. Tengo una funcion de VBA, que escribi hace mas de un ano, en una hoja
> de
> calculo, el caso es que le puse una contrasena, seguro que ya sabeis por
> donde van los tiros, no me acuerdo de la contrasena y necesito
> modificarla.
> Podeis decirme como la abro, o la doy por perdida.?

Si estas preparado a pagar 49 USD puedes usar esto:
http://www.elcomsoft.com/avpr.html
Esta cosa no falla porque no busca contrasenas sino que las sustituya usando
la "puerta de atras". Los temas legales y eticos los dejo a tu cargo :-)

> 2?. Tengo una hoja de calculo, que tiene 9 columnas de datos, (A, B, C, D,
> E, F, G, H, I ) de ellas, dos son de datos diarios, (E y F), y otras dos
> de
> datos mensuales, ( G y H ). La pregunta es como puedo hacer para que los
> valores que introduzca en E y F se sumen, (o resten si son negativos), a
> los
> que tengan G y H respectivamente.
> Creo que me he expresado bien.

Si los datos se introducen manualmente podrias probar el siguiente codigo
asignado al evento Cnahge de la hoja en cuestion (modulo VBA de la hoja).

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Intersect(Target, Me.Range("E:F")) _
Is Nothing Then Exit Sub
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
On Error Resume Next
For Each c In Intersect(Target, Me.Range("E:F"))
c.Offset(0, 2) = c.Offset(0, 2) + c
Next c
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub


Saludos,
KL

Hola Josearia,

> 1?. Tengo una funcion de VBA, que escribi hace mas de un ano, en una hoja
> de
> calculo, el caso es que le puse una contrasena, seguro que ya sabeis por
> donde van los tiros, no me acuerdo de la contrasena y necesito
> modificarla.
> Podeis decirme como la abro, o la doy por perdida.?

Si estas preparado a pagar 49 USD puedes usar esto:
http://www.elcomsoft.com/avpr.html
Esta cosa no falla porque no busca contrasenas sino que las sustituya usando
la "puerta de atras". Los temas legales y eticos los dejo a tu cargo :-)

> 2?. Tengo una hoja de calculo, que tiene 9 columnas de datos, (A, B, C, D,
> E, F, G, H, I ) de ellas, dos son de datos diarios, (E y F), y otras dos
> de
> datos mensuales, ( G y H ). La pregunta es como puedo hacer para que los
> valores que introduzca en E y F se sumen, (o resten si son negativos), a
> los
> que tengan G y H respectivamente.
> Creo que me he expresado bien.

Si los datos se introducen manualmente podrias probar el siguiente codigo
asignado al evento Cnahge de la hoja en cuestion (modulo VBA de la hoja).

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Intersect(Target, Me.Range("E:F")) _
Is Nothing Then Exit Sub
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
On Error Resume Next
For Each c In Intersect(Target, Me.Range("E:F"))
c.Offset(0, 2) = c.Offset(0, 2) + c
Next c
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub


Saludos,
KL