ingresar datos hoja 1 y desplegarlos en hoja 2 con formato

17/12/2003 - 20:31 por emailnovalido | Informe spam
hola amigos..
necesito urgentemente de su valiosa ayuda con el siguiente problema..

en la hoja 1 de un archivo excel necesito ingresar datos..
para luego con esos datos crear una plantilla que se desplegara en la
hoja 2

lo primero que debo hacer es solicitar al usuario la cantidad de
periodos a ingresar , que seran las columnas en la hoja 2..
por ejemplo ..


cuantos periodos necesita ingresar?


N

deberia por cada item (fila) solicitarme N datos
una ves que los datos estan ingresados..
voy a la hoja 2 y estan los datos ordenados


les dejo un ejemplo por si no quedo claro
^

=[hoja 1]

cuantos periodos necesita ingresar ?
3

ingrese los datos para item "tuercas"
tuerca periodo 1 tuerca periodo 2 tuerca periodo 3
ingrese los datos para item "pernos"
pernos periodo 1 pernos periodo 2 pernos periodo 3
ingrese los datos para item
...

[hoja 2]

periodo 1 periodo 2 periodo 3
tuercas
pernos
item...
item...
=


amigos necesito alguna orientacion o mucho mejor un ejemplo
para hacer esto...
ya que esta en juego mi puesto de trabajo :(

muchisimas gracias de antemano
 

Leer las respuestas

#1 Benito Merino
17/12/2003 - 22:23 | Informe spam
Hola Paula.

La siguiente macro realiza algo que igual te vale.

He definido en ella una lista de productos como una matriz
y no como un rango de celdas.

Sub tuercasypernos()

Sheets("Hoja1").Select 'selecciona la hoja1 aunque no hace
referencia a la misma

numeroperiodos = InputBox("Introduce el número de períodos
a ingresar", "INDICAR EL NÚMERO DE PERIODOS") 'capta el
valor del número de periodos)
listaproductos = Array
("Tuercas", "Pernos", "Tornillos") 'relación de productos
sobre los que preguntar
For Each producto In listaproductos 'inicio del bucle
de producto
ordenproductos = ordenproductos + 1 'contador de
productos
valorproducto = UCase(producto) 'captar valor producto
Sheets("Hoja2").Range("A1").Offset(ordenproductos,
0).Value = valorproducto 'introduce el valor del producto
en celda de hoja2

For bucle = 1 To numeroperiodos 'inicio bucle periodos
numperiodos = numperiodos + 1 'contador periodos
cadenapregunta = "INTRODUCE VALOR DE " &
valorproducto 'construcción cadena del mensaje
Sheets("Hoja2").Range("B1").Offset(ordenproductos,
bucle - 1).Value = InputBox("Valor del Período nº" &
numperiodos, cadenapregunta) 'capta el valor del input box
y lo coloca en hoja2
Next bucle
numperiodos = 0
Next producto


End Sub

Espero que te sirva de guía.

Atentamente,

Benito Merino
Barcelona


hola amigos..
necesito urgentemente de su valiosa ayuda con el


siguiente problema..

en la hoja 1 de un archivo excel necesito ingresar


datos..
para luego con esos datos crear una plantilla que se


desplegara en la
hoja 2

lo primero que debo hacer es solicitar al usuario la


cantidad de
periodos a ingresar , que seran las columnas en la hoja


2..
por ejemplo ..

cuantos periodos necesita ingresar?


N

deberia por cada item (fila) solicitarme N datos
una ves que los datos estan ingresados..
voy a la hoja 2 y estan los datos ordenados


les dejo un ejemplo por si no quedo claro
^

=>[hoja 1]

cuantos periodos necesita ingresar ?
3

ingrese los datos para item "tuercas"
tuerca periodo 1 >tuerca periodo 2 >tuerca periodo 3 >
ingrese los datos para item "pernos"
pernos periodo 1 >pernos periodo 2 >pernos periodo 3 >
ingrese los datos para item


[hoja 2]

periodo 1 periodo 2 periodo 3
tuercas
pernos
item...
item...
=>


amigos necesito alguna orientacion o mucho mejor un


ejemplo
para hacer esto...
ya que esta en juego mi puesto de trabajo :(

muchisimas gracias de antemano
.

Preguntas similares