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:
Mostrar la cita
#2 hector777
30/05/2011 - 16:02 | Informe spam
Cacho R escribió el 28/05/2011 17:00 :
Mostrar la cita
Gracias Cacho, es exactamente lo que estaba buscando.

Saludos
Héctor
Ads by Google
Search Busqueda sugerida