Macro complicada

Mandalo a (quitale los subrayados y el NO
SPAM) y miro a ver que pasa

"xuancar" escribió en el mensaje
news:7NSke.826595$

Manuel, puse val1 en lugar de Val y me sigue dando error. He quitado lo
de application.statusbar y ya no da error, pero no me rellena la tabla y
me borra los datos de la hoja "npv". Quieres que te mande el fichero para
ver que puedes hacer? dame una dirección y te lo envio.

Mil gracias por tu ayuda.

"Manuel Romero" escribió en el mensaje
news:

Lo estoy escribiendo de memoria, me comentas como te fue

sub llenartabla()
application.screenupdating=false
worksheets("grafico 1").activate
for each col in range("b1:f1")
val1=col.value
for each fil in range("a2:a5")
val2=fil.value
application.statusbar="val1=" & val & ", val2=" & val2
worksheets("npv").activate
[c13]=val1
[c15]=val2
res=[c37]
worksheets("grafico 1").activate
cells(fil.row,col.column).value=res
next
next
application.statusbar=false
end sub

"xuancar" escribió en el mensaje
news:HtIke.817727$

Buenas a todos,

A ver si me podéis echar una mano con una macro.

Tengo que rellenar esta tabla (esta en la hoja "Grafico 1"):

A B C D E <--columnas
filas 10 12 14 16 18
1 50.000
2 75.000
3 100.000
4 125.000

es decir en la celda (b1 está el 10 y en la celda a2 el 50000)

, y lo quisiera hacer automáticamente con una macro. Los valores term y
amount los tengo en la hoja "npv", en las celdas c13 y c15
respectivamente. En ellas pongo por ejemplo 10 y 50.000 y despues de
unos cálculos me da en la celda c37 de la hoja "npv" el resultado, ese
resultado tendría que ir en la celda(1,1) de la tabla, y así con el
resto. Como podría hacer para mediante una macro me lo realizara
automáticamente?

Si necesitais el archivo, darme una dirección de e-mail y os lo envío.


Muchísimas gracias a todos.

Juan Carlos

Gracias, ya te lo he enviado.

"Manuel Romero" escribió en el mensaje
news:

Mandalo a (quitale los subrayados y el NO
SPAM) y miro a ver que pasa

"xuancar" escribió en el mensaje
news:7NSke.826595$

Manuel, puse val1 en lugar de Val y me sigue dando error. He quitado lo
de application.statusbar y ya no da error, pero no me rellena la tabla y
me borra los datos de la hoja "npv". Quieres que te mande el fichero
para ver que puedes hacer? dame una dirección y te lo envio.

Mil gracias por tu ayuda.

"Manuel Romero" escribió en el mensaje
news:

Lo estoy escribiendo de memoria, me comentas como te fue

sub llenartabla()
application.screenupdating=false
worksheets("grafico 1").activate
for each col in range("b1:f1")
val1=col.value
for each fil in range("a2:a5")
val2=fil.value
application.statusbar="val1=" & val & ", val2=" & val2
worksheets("npv").activate
[c13]=val1
[c15]=val2
res=[c37]
worksheets("grafico 1").activate
cells(fil.row,col.column).value=res
next
next
application.statusbar=false
end sub

"xuancar" escribió en el mensaje
news:HtIke.817727$

Buenas a todos,

A ver si me podéis echar una mano con una macro.

Tengo que rellenar esta tabla (esta en la hoja "Grafico 1"):

A B C D E <--columnas
filas 10 12 14 16 18
1 50.000
2 75.000
3 100.000
4 125.000

es decir en la celda (b1 está el 10 y en la celda a2 el 50000)

, y lo quisiera hacer automáticamente con una macro. Los valores term
y amount los tengo en la hoja "npv", en las celdas c13 y c15
respectivamente. En ellas pongo por ejemplo 10 y 50.000 y despues de
unos cálculos me da en la celda c37 de la hoja "npv" el resultado, ese
resultado tendría que ir en la celda(1,1) de la tabla, y así con el
resto. Como podría hacer para mediante una macro me lo realizara
automáticamente?

Si necesitais el archivo, darme una dirección de e-mail y os lo envío.


Muchísimas gracias a todos.

Juan Carlos