Insertar filas automaticas dependiendo de un valor determinado

27/05/2011 - 00:42 por hector777 | Informe spam
Hola,
Necesito insertar un numero de filas automáticas dependiendo de un valor determinado en una celda en especifico, ejemplo:

situación actual:

A B C
Pedro DE 2
Juan FD 3
Maria DE 4

Lo que se quiere:
A B C
Pedro DE 2
Pedro DE 2
Juan FD 3
Juan FD 3
Juan FD 3
Maria DE 4
Maria DE 4
Maria DE 4
Maria DE 4

Es de aclarar que en la primera situación aun no agregaría los valores de la columna C (2,3,y 4), desde el momento que agregue los valores en la columna C ejemplo: cuando inserte 2 la celda C2, insertar 2 filas seguidas de bajo de pedro copiando la fila de la celda 2.

También hacerlo todo de inmediato, donde al momento de agregar todos lo valores de la columna C copie inserte las distintas filas como en la segunda parte, lo que se quiere.

Preguntas similare

Leer las respuestas

#1 Cacho R
28/05/2011 - 17:00 | Informe spam
Hola! Héctor. Podrías incorporar a tu libro la siguiente macro:
_______________________

Sub InsertarFilasSegunParametro()
Dim C As Range
Application.ScreenUpdating = False

Set C = ActiveCell
Do While C <> Empty
If C.Offset(, 2) > 1 Then
C.Offset(1).Resize(C.Offset(, 2) - 1, 3).Insert xlShiftDown
C.Resize(C.Offset(, 2), 3).FillDown
End If
Set C = C.Offset(C.Offset(, 2))
Loop

Set C = Nothing
Application.ScreenUpdating = True
End Sub
_______________________

Tan solo selecciona la celda superior izquierda de tu rango (la que
contiene "Pedro", en tu ejemplo) y ejecutas el código proporcionado.

¿Es lo que estabas buscando?
Saludos, Cacho.

On 26 mayo, 19:42, hector777 wrote:
Hola,
 Necesito insertar un numero de filas automáticas dependiendo de un valor
 determinado en una celda en especifico, ejemplo:

 situación actual:

 A              B         C
 Pedro        DE       2
 Juan          FD       3
 Maria        DE        4

 Lo que se quiere:
 A              B         C
 Pedro        DE       2
 Pedro        DE       2
 Juan          FD       3
 Juan          FD       3
 Juan          FD       3
 Maria        DE        4
 Maria        DE        4
 Maria        DE        4
 Maria        DE        4

 Es de aclarar que en la primera situación aun no agregaría los
 valores de la columna C (2,3,y 4), desde el momento que agregue los valores en
 la columna C ejemplo: cuando inserte 2 la celda C2, insertar 2 filas seguidas
de
 bajo de pedro copiando la fila de la celda 2.

 También hacerlo todo de inmediato, donde al momento de agregar todos lo
 valores de la columna C copie inserte las distintas filas como en la segunda
 parte, lo que se quiere.
Respuesta Responder a este mensaje
#2 hector777
30/05/2011 - 16:02 | Informe spam
Cacho R escribió el 28/05/2011 17:00 :
Hola! Héctor. Podrías incorporar a tu libro la siguiente macro:
_______________________

Sub InsertarFilasSegunParametro()
Dim C As Range
Application.ScreenUpdating = False

Set C = ActiveCell
Do While C <> Empty
If C.Offset(, 2) > 1 Then
C.Offset(1).Resize(C.Offset(, 2) - 1, 3).Insert xlShiftDown
C.Resize(C.Offset(, 2), 3).FillDown
End If
Set C = C.Offset(C.Offset(, 2))
Loop

Set C = Nothing
Application.ScreenUpdating = True
End Sub
_______________________

Tan solo selecciona la celda superior izquierda de tu rango (la que
contiene "Pedro", en tu ejemplo) y ejecutas el código
proporcionado.

¿Es lo que estabas buscando?
Saludos, Cacho.

On 26 mayo, 19:42, hector777 wrote:
Hola,
 Necesito insertar un numero de filas automáticas dependiendo de
un valor
 determinado en una celda en especifico, ejemplo:

 situación actual:

 A              B      
  C
 Pedro        DE       2
 Juan          FD       3
 Maria        DE        4

 Lo que se quiere:
 A              B      
  C
 Pedro        DE       2
 Pedro        DE       2
 Juan          FD       3
 Juan          FD       3
 Juan          FD       3
 Maria        DE        4
 Maria        DE        4
 Maria        DE        4
 Maria        DE        4

 Es de aclarar que en la primera situación aun no agregaría
los
 valores de la columna C (2,3,y 4), desde el momento que agregue los
valores en
 la columna C ejemplo: cuando inserte 2 la celda C2, insertar 2 filas
seguidas
de
 bajo de pedro copiando la fila de la celda 2.

 También hacerlo todo de inmediato, donde al momento de agregar
todos lo
 valores de la columna C copie inserte las distintas filas como en la
segunda
 parte, lo que se quiere.




Gracias Cacho, es exactamente lo que estaba buscando.

Saludos
Héctor
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida