............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro para insertar filas de acuerdo a una condición

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro para insertar filas de acuerdo a una condición

Mensaje por juan_trm el Vie Jun 16, 2017 3:23 pm

Hola amigos soy nuevo en este foro y ojala me pudieran ayudar, no se si lo que estoy intentando hacer sea muy complicado.

Tengo una base de datos de excel a la cual le tengo que insertar una fila, siempre que en la columna A se encuentre el valor "P" y que esa fila insertada tenga el valor "FE"

Ej:

A

M1
M2
M3
P (arriba de esta insertar una fila con el valor "FE")
S1
P (arriba de esta insertar una fila con el valor "FE")
M3
W
S1
W
R
M1
M1
P  (arriba de esta insertar una fila con el valor "FE")

Todos los datos se encuentran en la columna A

Muchas gracias por su atención, espero contar con su apoyo.

Saludos.

juan_trm

Masculino Cantidad de envíos : 2
Edad : 32
Ciudad - Pais : Ciudad de México - Mexico
Version de Excel : 2016
Fecha de inscripción : 16/06/2017

Volver arriba Ir abajo

Re: Macro para insertar filas de acuerdo a una condición

Mensaje por moises melgar el Dom Jun 18, 2017 11:38 pm

bienvenido, lamento la tardanza
esta macro hace lo que buscas

Código:
Sub INSER()
For x = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Range("A" & x).Value = "P" Then
    'Range("A" & x).Insert Shift:=xlDown '<---mover celdas hacia abajo (solo afecta la columna A)
    Range("A" & x).EntireRow.Insert'<---inserta toda una nueva fila
    Range("A" & x).Value = "FE"
End If
Next x
End Sub

Es un bucle for next que va desde la fila de la ultima celda no vacia de la columna "A" hasta la fila 1
evalua si el valor de la celda es "P" con IF y si la condicion es verdadera inserta la fila y le da un valor a la celda

Si quieres que se solo se desplacen las celdas de A hacia abajo sin mover lo demas:
   Range("A" & x).Insert Shift:=xlDown
Si quieres que se inserta toda una nueva fila:
   Range("A" & x).EntireRow.Insert

adjunto ejemplo
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 563
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Macro para insertar filas de acuerdo a una condición

Mensaje por juan_trm el Lun Nov 06, 2017 2:58 pm

Wooow! Sos un mago, muchísimas gracias era tal como lo necesitaba...

Saludos.

juan_trm

Masculino Cantidad de envíos : 2
Edad : 32
Ciudad - Pais : Ciudad de México - Mexico
Version de Excel : 2016
Fecha de inscripción : 16/06/2017

Volver arriba Ir abajo

Re: Macro para insertar filas de acuerdo a una condición

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.