Saltar al contenido

Agregar y eliminar conjuntos de filas con reorganización


bomec

Recommended Posts

Estimados amigos:

Aprovechando vuestra amabilidad y conocimientos, lanzo otra petición de ayuda por si alguno puede echarme un cable.

En la hoja de Excel que estoy diseñando (la misma que he enviado en otra consulta anterior), los datos vienen agrupados en items de cuatro filas (esto se ve mejor en el archivo que adjunto). El caso es que necesitaría alguna macro que me permitiera insertar un nuevo item (las cuatro filas) entre otros dos items. Además, las fórmulas, lógicamente, deben conservarse y hacer referencia al nuevo ítem insertado. Por último, al haber incluido ese nuevo elemento, será necesario reorganizar el resto de items para que cada uno haga referencia a sus propias fórmulas.

Si además fuera posible, necesitaría también lo contrario: es decir: borrar un ítem (las cuatro filas) y reorganizar todos los demás automáticamente para que las fórmulas hagan referencia a sus respectivos items.

Quizá lo que cuento resulta algo enrevesado, pero creo que en el archivo que adjunto, la cosa queda bastante más clara.

Muchas gracias por adelantado por vuestra ayuda.

Saludos.

Insertar item entre otros dos.xls

Enlace a comentario
Compartir con otras webs

Estimado Riddle:

Muchas gracias por tu solución. Es sencillamente PERFECTA, justo lo que necesitaba. :congratulatory: Tan solo hay un par de problemas que no consigo resolver. Espero que puedas ayudarme. Mi hoja no tiene solo 6 columnas como envié en el ejemplo, sino 18 (llega hasta la R). Al aplicar tu código a mi hoja, evidentemente hay celdas que no tiene en cuenta y no las trata adecuadamente. Aunque he intentado retocar el código para modificar los offset, no logro que funcione correctamente, porque tampoco soy un gran experto en código VBA. La cosa quizá se complica porque hay filas dentro de los ítems que van combinadas (en la columna E y en la R). En esta última columna, además, hay una fórmula bastante compleja que es indispensable conservar con el mismo patrón. Como mi hoja es más compleja que la que envié en un primer momento, adjunto ahora la versión final por si resultara útil.

Por otro lado, también se me plantea otro pequeño problema y es que mi hoja normalmente está bloqueada, para que los usuarios no borren las fórmulas por accidente. Así que antes de insertar o eliminar ítems habría que desbloquear la hoja y luego volver a bloquearla.

¿Te sería muy costoso hacer los ajustes al código para que tuviera en cuenta estos aspectos?

Quedo a la espera de tu respuesta, con mi agradecimiento por adelantado.

Saludos.

Insertar item entre otros dos (ver2).xls

Enlace a comentario
Compartir con otras webs

Hola, te dejo el archivo modificado con la solución a los 2 problemas que tienes, el libro esta protegido pero sin contraseña para protegerlo con contraseña tienes que escribirla entre los paréntesis dentro del código donde te señalo.

Comentas como te fue.

Salu2

Insertar item entre otros dos.xls

Enlace a comentario
Compartir con otras webs

Muchas gracias, Riddle.

La macro es realmente fantástica y resuelve casi completamente lo que necesito. Pero no todo iba a ser perfecto... :playful:

Hay un problema al insertar la columna R. Se copia aparentemente bien, pero la fórmula de esa columna no funciona correctamente porque no se copia con el mismo patrón que la anterior. Al ser bastante compleja, Excel se vuelve un poco loco y modifica las referencias a su gusto. He comprobado que una vez acabada la operación de inserción de filas, si se copia y se pega (así de sencillo) la celda de la fórmula desde el ítem previo entonces sí que funciona bien. Quizá habría algún modo de incorporar esa operación a la macro.

Por otro lado, la macro, como te digo, funciona a la perfección, pero hay un pequeño detalle que no puede resolverse tal y como está diseñada... Y es insertar un ítem ANTES del ítem nº 1. No tiene mayor importancia, pero si por casualidad se te ocurre un modo sencillo de hacerlo, sería fantástico.

No quiero robarte más tiempo. ¡Bastante me has ayudado ya!, así que si no puedes ocuparte de lo que te digo, lo entiendo perfectamente. :apthy:

En cualquier caso, puedas o no puedas ayudarme, te lo agradezco igual.

Saludos.

Enlace a comentario
Compartir con otras webs

  • 4 months later...

Estimado Riddel (y resto de compañeros):

Hace unos meses me ayudaste a resolver un problema con un código que necesitaba para insertar y eliminar ítems en una hoja de cálculo. Fue en este mismo hilo. Tu ayuda me ha servido de mucho y utilizo el código a menudo; pero tengo un pequeño problema que a lo mejor puedes ayudarme a resolver puesto que tú hiciste el código. Mira, cuando inserto (o elimino) un elemento, la hoja vuelve siempre a la celda A6, o sea, al principio. Si hay pocas filas, no pasa nada, porque puedo ir al nuevo ítem insertado rápidamente; pero mi hoja ya tiene bastantes elementos y cuando quiero insertar, por ejemplo, un ítem en la posición 80, entonces tengo que bajar un montón de filas hasta llegar a ese nuevo elemento. ¿Habría alguna forma de que al insertar un nuevo ítem, la hoja se posicionara justamente en ese nuevo elemento? E igualmente, si borro algún ítem, ¿podría modificarse el código para que la hoja fuera automáticamente a la línea anterior o posterior a la borrada?

Más arriba está el archivo que tú mismo me enviaste hace unos meses.

Espero haberme explicado y que puedas echarme una mano.

Muchas gracias por adelantado.

Saludos cordiales.

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 93 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • No va a ser necesario distinguir el tipo de proceso entre 1 y 2. Revisa el adjunto a ver si es eso lo que quieres. Function MediaAttention(mImp As Range, _ q25 As Range, q50 As Range, _ Optional q75 As Range, _ Optional q100 As Range) As Double '-- Opción 1 If q75 Is Nothing And q100 Is Nothing Then MediaAttention = q25 / q50 Exit Function End If '-- Opción 2 MediaAttention = ((0.25 * (q25 - q50)) / mImp) + _ ((0.5 * (q50 - q75)) / mImp) + _ ((0.75 * (q75 - q100)) / mImp) + _ (q100 / mImp) End Function   Media Attention Formula 1.2.xlsb
    • Gracias tomarse el tiempo de leer por responder Maestro @Antoni Adjunto el archivo con la idea a la que deseo llegar, sigo atento. Mil gracias por el tiempo y la ayuda brindada   Media Attention Formula 1.2.xlsb
    • He analizado la UDF y entiendo perfectamente lo que hace, lo que no entiendo es lo que pretendes hacer. Mejor sube un ejemplo resuelto de  como debería funcionar la UDF con los nuevos parámetros solicitados. 
    • Gracias, ya lo conseguí solucionar
    • Hola a todos Primero que nada deseo agradecer el tiempo en leer este post, Muchas Gracias. Me acerco a ustedes para pedir su ayuda para lo siguiente: Tengo una UDF, la cual tiene dos escenarios: 1.- Si Tiempo Promedio y Duración del Video son diferentes de 0, hacer el calculo 2.- Si lo anterior es igual a 0, se realiza el otro calculo por cuartiles. El detalle es que son muchas celdas a seleccionar, lo cual creo puede ser engorroso, entonces, pensando en simplificar la función, me pregunte si fuera posible: a.- Colocar 1 al principio de la función y después solo seleccionar 2 celdas correspondientes (Rango continuo o discontinuo) b.- Colocar 2 al principio de la función y después seleccionar las 5 celdas correspondientes (Rango continuo o discontinuo) Espero me puedan ayudar y/o orientar al respecto, quedo atento para cualquier duda, de antemano les agradezco cualquier ayuda brindada. Mil Gracias!! Media Attention Formula 1.1.xlsb  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.