Macro Excel para insertar tres filas después de encontrar un valor

Tengo una tabla con valores numéricos (moneda) en la columna E, ordenados de mayor a menor y quiero insertar tres filas después del valor 250 y tres filas después del valor 25. No consigo hacerlo, el código que pongo es el siguiente:

Dim UFILA As Long
Dim men As Long
UFILA = Range("E" & Rows.Count).End(xlUp).Row
For men = 2 To UFILA
If Cells(men, 5) <= 250 Then
Rows(men).EntireRow.Insert shift:=xlDown
men = men - 1
End If
Next

Si alguien me puede ayudar.

1 respuesta

Respuesta
2

Prueba lo siguiente:

Sub Insertarfilas()
  Dim i As Long
  For i = Range("E" & Rows.Count).End(xlUp).Row To 2 Step -1
    If Range("E" & i).Value = 250 Or Range("E" & i).Value = 25 Then
      Range("E" & i).Offset(1).Resize(3).Insert Shift:=xlDown
    End If
  Next
End Sub

Veo que pusiste otra pregunta con "casi" el mismo requerimiento.

Pero en esta pregunta escribiste esto:

"Ordenados de mayor a menor y quiero insertar tres filas después del valor 250 y tres filas después del valor 25"

Si no interpreté bien lo que necesitabas, puedes comentar... y con gusto te apoyo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Bordes de celdas mediante vba excel 2003

Yo se como poner borde a un rango de celdas usando una macro y luego el modulo. Pero mi problema está en que nunca es un rango exacto, es una base de datos en una hoja que se va llenando mediante entradas en un formulario, yo uso el siguiente código:...
1 respuesta

Unir Rangos y pegarlos en forma Apilada en otra hoja

Tengo el siguiente proyecto, me genera el día Jueves bien, pero una segundo día ya me dice error 1004 Método PasteSpecial de la clase Range Llamo en lo individual y en un botón que me llama todas las macros juntas y es el mismo resultado. PARA MI...
1 respuesta

Separar registros insertando filas en excel

Estoy buscando una macro que me permita separar registros (filas) cada vez que un registro sea diferente a su consecutivo, en la red de todo expertos encontré este código, pero solo realiza la tarea con unos cuantos registros, y quería saber si la...
1 respuesta

Macro para colocar datos según cabecera de columna y fila ingresada.

Elabore un UserForm donde ingreso datos a una hoja de excel seleccionando los datos de un combobox y se va ingresando uno debajo de otro. Pero al tercer ingreso se empieza a grabar uno arriba de otro. Las columnas no siempre se llenan todas y...
1 respuesta

Macro para insertar fila según condición

Ingeniero Dante Amor Feliz de siempre contar con su ayuda, me podría ayudar con una macro para insertar fila si encuentra una palabra en especial, lo he intentado con el código que abajo muestro pero me inserta una fila por cada palabra encontrada y...
1 respuesta

Mejorara una macro_inserta 5 filas hacia arriba si es que encuentra datos en una columna

Como puedo mejorar esta macro: Tengo una tabla con datos del siguiente modo. A B C FECHA VENTA1 VENTA2 12/02/2014 34 45 45 50 15/02/2014 50 60 16/02/2014 80 90 ...... ..... ..... Lo que busco es insertar 5 filas arriba de cada fila con valores de...
3 respuestas

Error 1004 en tiempo de ejecución error definido por la aplicación o el objeto

No encuentro el error de acuerdo al código para comenzar en la fila 31 lo hace sin problemas pero a la hora de cerrar el formulario y abrirlo de n huevo con los datos insertados genera el error toca borrar y comenzar de la fila 31 de nuevo y ese no...
2 respuestas

Macro que copie encabezado de una hoja a otra

Sigo en la novatez con vba pero poco a poco le agarro el gusto a este lenguaje, sin embargo sigo topándome con cuestiones como ésta que les platico: Tengo un libro, donde en cada hoja que tiene algunas filas coloreadas, bien, estoy trabajando con una...
1 respuesta

Comparar datos de 2 hojas Excel y colorear los cambios

Tengo dos hojas excel con sendas tablas en un mismo archivo. La tabla contiene una columna en la que hay nombres y apellidos y en otras tres aparecen las palabras "CASADO" "SOLTERO" "VIUDO". Necesito que en la segunda hoja se marquen de color las...
1 respuesta

Macro que identifique y sume filas con características en común

Tengo un reporte del sistema de mi trabajo que arroja los resultados de partidas de un plan de cuentas. Cada partida está en una tabla. A su vez cada partida tiene composiciones donde aparecen los montos que quiero sumar. Quiero unificar partidas con...
2 respuestas