Macro complicada

24/05/2005 - 18:18 por xuancar | Informe spam
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

Preguntas similare

Leer las respuestas

#1 Manuel Romero
24/05/2005 - 20:12 | Informe spam
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




Respuesta Responder a este mensaje
#2 xuancar
24/05/2005 - 21:55 | Informe spam
Primero darte las gracias por tu respuesta, pero me da error;

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Worksheets("Grafico2").Activate
For Each col In Range("d5:n5")
val1 = col.Value
For Each fil In Range("c6:c28")
val2 = fil.Value
Application.StatusBar = "val1=" & Val & ", val2=" & val2 <
línea de error: da error en Val, dice que el argumento no es opcional.
Worksheets("npv").Activate
[c13] = val1
[c15] = val2
res = [c37]
Worksheets("Grafico2").Activate
Cells(fil.Row, col.Column).Value = res
Next
Next
Application.StatusBar = False

End Sub

Por cierto que intentas hacer en esa línea con Application.StatusBar?






"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








Respuesta Responder a este mensaje
#3 Manuel Romero
25/05/2005 - 03:00 | Informe spam
Disculpa, es val1, no Val

Lo que hace StatusBar es mostrar un mensaje en la barra de estado del Excel
mientras la macro corre, lo puedes quitar si quieres. La razon es que como
tiene el screenupdating en false va mostrando por donde va.

"xuancar" escribió en el mensaje
news:vELke.819777$
Primero darte las gracias por tu respuesta, pero me da error;

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Worksheets("Grafico2").Activate
For Each col In Range("d5:n5")
val1 = col.Value
For Each fil In Range("c6:c28")
val2 = fil.Value
Application.StatusBar = "val1=" & Val & ", val2=" & val2 <
línea de error: da error en Val, dice que el argumento no es opcional.
Worksheets("npv").Activate
[c13] = val1
[c15] = val2
res = [c37]
Worksheets("Grafico2").Activate
Cells(fil.Row, col.Column).Value = res
Next
Next
Application.StatusBar = False

End Sub

Por cierto que intentas hacer en esa línea con Application.StatusBar?






"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












Respuesta Responder a este mensaje
#4 xuancar
25/05/2005 - 06:02 | Informe spam
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








Respuesta Responder a este mensaje
#5 Manuel Romero
25/05/2005 - 06:18 | Informe spam
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












Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida