capturar el mismo valor varias veces

03/09/2008 - 23:02 por riveraulloa | Informe spam
necesito capturar datos que se repiten,trabajo con tallas por ejemplo 35
individuos de 70 mm, actualmente los capturo asi: escribo 70 y lo arrastro 35
celdas, si existe alguna manera de poner en una columna el numero de
individuos y en otra la talla y que excel los coloque en una tercera columna,
les agradecere la informacion.
mi programa es excel2003

Preguntas similare

Leer las respuestas

#1 Ivan
04/09/2008 - 00:26 | Informe spam
hola,

: escribo 70 y lo arrastro 35
celdas, si existe alguna manera de poner en una columna el numero de
individuos y en otra la talla y que excel los coloque en una tercera columna,



aunque seguramente 'tu hoja' no sea tan sencilla como la pintas, e
incluya otra serie de campos, etc, como ejemplo totalmente generico
para que adaptes, puedes probar algo asi via codigo VBA (me da la
impresion de que tambien via formulas es posible), aunque creo que en
cualquier caso faltan datos en 'terminos de excel' para poder
acercarse mas a la realidad =>

(para las pruebasyo usaria un libro nuevo)

1º) en una hoja en blanco pon en A1 "Talla", en B1 "Cantidad" y en C1
"Desglose Tallas"

nota: la verdad es que este punto 1º es totalmente opcional, pero
quedaria mas claro

2º) abre el editor de VBA haciendo click secundario en la pestaña de
la hoja => Ver codigo

copia/pega el siguiente codigo en la ventana que se te habra abierto

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [a2:b2]) Is Nothing Then
[c1].EntireColumn.Clear
If [a2] = "" Or Not IsNumeric([b2]) Or [b2] < 1 Then Exit Sub
[c1] = "Desglose"
[c2] = [a2]
[c2].AutoFill Range([c2], Cells([b2] + 1, 3)), xlFillCopy
End If
End Sub

3º) vuelve a excel (cerrando el editor o con Alt+F11 si quieres volver
a el mas tarde) y prueba a escribir la talla en A2 y las canidades en
B2, y le das intro a ver que tal


como te digo es muy generico pero para algo mas concreto faltarian
bastantes detalles concretos

espero te ayude
Un saludo
Ivan
Respuesta Responder a este mensaje
#2 MRoCFe
04/09/2008 - 06:46 | Informe spam
Una alternativa a lo que te sugiere Ivan es incorporar esta otra
macro:


Sub Repeticiones()
Rep = Application.InputBox(Prompt:="Indique Repeticiones", Type:=1)
If Rep = False Then Exit Sub
ActiveCell.Copy Range(ActiveCell, ActiveCell.Offset(Rep - 1))
End Sub


Y también debes incorporar el "botón de macro" que la ejecute.
La idea es sencilla:

a) Escribes "70" como actualmente.
b) Teniendo seleccionada esa celda, ejecutas la macro que te
preguntará cuantas veces quieres repetir el valor.
Naturalmente tu respuesta será: 35.


Y allí se termina la acción.

Saludos para todos, Cacho.
Respuesta Responder a este mensaje
#3 victorbcn1952
04/09/2008 - 12:56 | Informe spam
Otra posibilidad, sin macros: Introduce en [A1] 70, en [B1] 35, y en
[C1] esta fórmula:

=SI(FILA(A1)>$B$1;"";$A$1)

y cópiala hacia abajo hasta la fila 100, 200, o más si es necesario.
En la columna 3 te aparecerá desde [C1] hasta [C35] lo que hayas
introducido en [A1], 70 en este caso.

:-)
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida