Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

VAlor que se añade a otra celda.

09/07/2005 - 19:34 por josearia | Informe spam
Ayuda Hacer una pregunta
Hola que tal por esta comunidad, hacía mucho tiempo que no entraba en ella y
veo que ha cambiado mucho.
Quisiera hacer una pregunta, para ver si alguno podeís ayudarme. Bueno mejor
dicho tengo dos.

1º. Tengo una función de VBA, que escribí hace más de un año, en una hoja de
cálculo, el caso es que le puse una contraseña, seguro que ya sabeís por
donde van los tiros, no me acuerdo de la contraseña y necesito modificarla.
Podeís decirme como la abro, o la doy por perdida.?

2º. Tengo una hoja de cálculo, 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.
Gracias por todo.
Un saludo.
Josearia


Josearia
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
09/07/2005 - 20:14 | Informe spam
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

Preguntas similares

 

Busqueda sugerida :