Ingresar un valor a una celda con macro

27/07/2007 - 07:38 por Gerardo Roda | Informe spam
Hola a todos, tengo dos preguntas:
1- Tengo un macro que me imprime un informe, quiero agregarle a ese macro
que me ponga en una celda la fecha y hora de la impresion, y que no se
modifique hasta que ejecute de nuevo ese macro.
Probe con poner "Ahora" y funciona en el macro, pero cada vez que abro la
planilla se actualiza y no quiero eso. El ideal seria poner el valor de
"ahora", como lo hago?
2- Tambien dentro de un macro quiero a una celda que tiene un valor
numerico sumarle otro valor. Por ejemplo si la celda tiene 30 yo quiero que
el macro le agregue 30 mas, el resultado deberia ser el v alor de celda 60.-
Gracias

Gerardo Roda
 

Leer las respuestas

#1 David
27/07/2007 - 17:06 | Informe spam
Hola, Gerardo.

Pregunta 1:
Puedes utilizar la función Date y Time desde VBA. Estas funciones te
devolverán la fecha y hora como una constante tipo string, que puedes asignar
a una celda de tu hoja. Por ejemplo, si como dices lo quieres poner en "una
celda", podrías utilizar una línea como la siguiente:

Sheets("Hoja1").range("C5").value = Date & ", " & Time

o si lo quieres más elegante:

sheets("Hoja1").range("C5").value = Format(Date,"dddd dd"" de ""mmmm"" de
""yyy") & ", " & Time



Pregunta 2:
Dependiendo de lo que quieras sumar, podrías utilizar algo como lo siguiente:

-Suponiendo que quieres sumar 30 a la celda A1:
sheets("Hoja1").range("A1").value=sheets("Hoja1").range("A1").value+30
o si tu código corre sólo en una hoja, bastaría con:
range("A1").value=range("A1").value+30
aún cuando algunos suelen hacerlo simplemente así:
[A1]=[A1]+30


-Suponiendo que quieres sumar el valor de A2 a la celda A1:
sheets("Hoja1").range("A1").value=sheets("Hoja1").range("A1").value+sheets("Hoja1").range("A2").value
o si tu código corre sólo en una hoja:
range("A1").value=range("A1").value+range("A2").value
o en la forma abreviada:
[A1]=[A1]+[A2]

Una última observación. Trata de plantear solamente una pregunta a la vez,
así es más fácil para las personas que están utilizando la búsqueda el
localizar la respuesta a su consulta.

No olvides comentar los resultados. Saludos.



"Gerardo Roda" escribió:

Hola a todos, tengo dos preguntas:
1- Tengo un macro que me imprime un informe, quiero agregarle a ese macro
que me ponga en una celda la fecha y hora de la impresion, y que no se
modifique hasta que ejecute de nuevo ese macro.
Probe con poner "Ahora" y funciona en el macro, pero cada vez que abro la
planilla se actualiza y no quiero eso. El ideal seria poner el valor de
"ahora", como lo hago?
2- Tambien dentro de un macro quiero a una celda que tiene un valor
numerico sumarle otro valor. Por ejemplo si la celda tiene 30 yo quiero que
el macro le agregue 30 mas, el resultado deberia ser el v alor de celda 60.-
Gracias

Gerardo Roda



Preguntas similares