Insertar filas a dedo un especifico
Hola JCGonzalez31, necesito mucha ayuda, necesito copiar filas e insertarlas de acuerdo a un valor indicado en una celda especifica, por ej: A B C
1 1001 AB43191 002
2 1002 PHY5119 001
3 1003 AB1419B 077
El valor especifico lo encuentro en la columna C, entonces necesito saber como puedo hacer que cuando la columna C indique valor superior a 1 copie e inserte los datos de A y B en una nueva fila tantas veces como indique C seria ideal que fuera automatizado con una macro.
Ya llevo tiempo realizando el mismo proceso pero manual ya que no han sido más de 50 filas entonces le agregaba una coma al final de la columna B y utilizaba la función repetir y después los separaba en editor de texto y volvía para copiarlos en Excel hacia abajo, uff pero ahora eso me ha tomado mucho tiempo ya que como muestra mi ejemplo existen filas con más de 100
Agradezco desde ya su ayuda.
Muchísimas gracias!
1 1001 AB43191 002
2 1002 PHY5119 001
3 1003 AB1419B 077
El valor especifico lo encuentro en la columna C, entonces necesito saber como puedo hacer que cuando la columna C indique valor superior a 1 copie e inserte los datos de A y B en una nueva fila tantas veces como indique C seria ideal que fuera automatizado con una macro.
Ya llevo tiempo realizando el mismo proceso pero manual ya que no han sido más de 50 filas entonces le agregaba una coma al final de la columna B y utilizaba la función repetir y después los separaba en editor de texto y volvía para copiarlos en Excel hacia abajo, uff pero ahora eso me ha tomado mucho tiempo ya que como muestra mi ejemplo existen filas con más de 100
Agradezco desde ya su ayuda.
Muchísimas gracias!
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
No entiendo bien. ¿Quieres decir que si en la celda C3 tienes 077, se deben copiar los datos de A3 y B3 77 veces?
[email protected]
[email protected]
Si correcto!
Agradezco mucho tu disponibilidad!
Agradezco mucho tu disponibilidad!
Otra cosa amigo. ¿Esos datos deben ir en la misma hoja debajo de los que ya están, en otra columna o en otra hoja?
[email protected]
[email protected]
Seria ideal tenerlos en la misma hoja debajo de los que ya están, pero también creo que los puedo tener en otra hoja, lo estoy haciendo en excel 2007 ya que el excel anterior lo tenia que dividir hasta en tres hojas por la capacidad de las filas.
Aquí tienes una macro para tu problema.
Sub CopiaDatos()
Dim Cant As Long
Dim i As Long
Dim R1 As Range
Cant = ActiveCell.Value
ActiveCell.Offset(0, -2).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
For i = 0 To Cant - 1
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Next i
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
End Sub
[email protected]
Sub CopiaDatos()
Dim Cant As Long
Dim i As Long
Dim R1 As Range
Cant = ActiveCell.Value
ActiveCell.Offset(0, -2).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
For i = 0 To Cant - 1
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Next i
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
End Sub
[email protected]
Ohh muchísimas gracias, pero solo tengo una duda detalle como hacer para que inserte las filas copiadas sin que sobrescriba en los datos que existen abajo
Solo eso y seras mi héroe Gracias!
Solo eso y seras mi héroe Gracias!
No entiendo. ¿Acaso lo vas a aplicar en filas aleatorias en las cuales debajo de ellas hay datos?
[email protected]
[email protected]
Si, hay más datos, ¿envío un archivo a su correo?
Gracias!
Gracias!
Ya te envié el correo.
