Macro para trabajo repetitivo

[home can]

Hola amigos.

Necesito asesoramiento con una macro para realizar un trabajo repetitivo.

Se trata de seleccionar la celda activa del cursor, que siempre será en la misma columna pero en distintas líneas cada vez, y realizar una serie de acciones (combinar celdas, aplicar referencia fija, insertar línea, borrar formato y agrupar líneas).

Saludos.

trabajo repetitivo.xlsx

[Israel Cassales]

Hola trate de seguir los puntos pero el resultado fue extraño, te dejo una sentencia que intenta hacer lo que dices aunque tengo dudas que desglosare por partes para ser lo más claro posible.

Inserta un módulo:

Sub Macro1()
    Dim fila As Integer
    fila = InputBox("Ingresa el número de fila")
    Range("A" & fila & ":B" & fila).Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Selection.Offset(1, 0).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A" & fila + 1 & ":D" & fila + 1).Select
    Selection.ClearFormats
    Range("A" & fila & ":B" & fila + 1).Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
End Sub

 

[Israel Cassales]

Primera duda:

Cita

1. Selecccionar la celda activa del cursor, siempre en la columna A pero en líneas variables. (p.e. A1 y después A5)

De que siempre sea en la columna A es posible, pero para saber la fila hay que "decirle" a la sentencia cuál, pudiera ser la que este seleccionada pero hay detalles ¿Cómo ejecutaras el VBA? Por botón, eso mueve el cursor. ¿Por combinación de teclas? Así que ante la duda puse un mensaje donde le indicas que fila es.

[Israel Cassales]

Segunda duda:

Cita

3. Aplicar a la celda resultante la función de la tecla F4 para quedar como referencia fija. (p.e. $A$1)

Aquí no entendí muy bien, yo entiendo como referencia absoluta cuando una celda "apunta" a otra, entiendo que en este caso a las que se acaban de agrupar ¿Pero cual es esa celda que apuntara? También le podemos dar un nombre, para que ante la incógnita se puede usar ese rango.

[Israel Cassales]

El libro donde estuve haciendo pruebas.

 

trabajo repetitivo - Ayuda Excel.xlsb

[Israel Cassales]

¿Por que no intentas grabar una macro paso a paso y vas pidiendo ayuda donde sea necesario?

[home can]

Gracias por tu aporte, Israel.

Lo primero que intenté fue grabar una macro paso a paso. Pero siempre actuaba sobre la misma celda. De ahí mi petición de ayuda y la referencia a "la celda activa del cursor".

Respecto a tus dudas:

1ª. La idea es que la macro se active mediante un botón.

2ª. La referencia ya estará indicada en la celda. Lo que falta es hacerla "referencia fija" añadiendo el símbolo "$".

Respecto a tu código, podría servir, pero...

Lo ideal sería que actuase sobre la celda marcada por el cursor, pero puede valer indicarle la celda como tu haces.  El problema es que creo que confundes dos pasos: 

Uno es COMBINAR celdas (A1+B1)

Otro es AGRUPAR líneas (A1+A2).

Lo que hace tu macro es COMBINAR el rango A1:B2 (A1, B1, A2, B2)

Gracias.

[Israel Cassales]

Espero haber entendido ahora:

Sub Macro1()
    Dim fila As Integer
    fila = ActiveCell.Row
    Range("A" & fila & ":B" & fila).Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Selection.Offset(1, 0).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A" & fila + 1 & ":D" & fila + 1).Select
    Selection.ClearFormats
    Range("A" & fila & ":B" & fila + 1).Select
    
    Rows(fila & ":" & fila + 2).Group
    
End Sub

Este lo puedes agregar a un botón.

[Israel Cassales]

Adjunto el libro de pruebas

trabajo repetitivo - Ayuda Excel.xlsb

[Israel Cassales]

hace 36 minutos , home can dijo:

2ª. La referencia ya estará indicada en la celda. Lo que falta es hacerla "referencia fija" añadiendo el símbolo "$".

De ese punto lo lamento, no termino de entenderlo. Puedo hacerla absoluta sí como bien dices con F4, pero eso es cuando la indico dentro de una función en otra celda que ese valor es fijo. No es que tenga seleccionada la celda y al darle F2 para editar la convierta en fija, ahí es donde me pierdo.

Saludines.

[home can]

Israel,

Esto mejora. Cambiando un par de conceptos sin importancia en las instrucciones funciona mejor. Pero hay algo que no consigo.

Hace correctamente el borrado de formato en la línea insertada, pero también borra el formato de la "celda activa". ¿Se puede modificar esto? Con ello, dejando de lado el asunto de la referencia fija, haría el trabajo requerido.

Gracias.

 

[home can]

Ya encontré el error. Solucionado.

Tema cerrado.

Gracias Israel.

[Israel Cassales]

Y justo estaba por preguntar paso a paso cuál modificar.

Qué bueno que con algunas ediciones haya quedado como necesitas.

Saludines.

[home can]

Si. Conste que el error estaba en mi hoja. Tu código funciona a la perfección.

Gracias Israel.