Tengo dos columnas consecutivas (a y B) que tras unas instrucciones previas, he de inscribir dos fórmulas (una por columna), en la columna "A" =SI.ERROR(INDICE(ListarHojas;FILA());"") , y en la columna B =HIPERVINCULO("#"&A1&"!A1";""&A1).
Como copiar (con la misma macro)...
Primero.- La formula de "A" en la siguiente celda de "A" consecutiva y que está vacia.
Segundo.-La fórmula de "B" en la siguiente celda de "B" consecutiva, vacia, y cumpliendo con la autonumeración de que necesita la instrucción de incrementarse en un +1 en las tres citas de "A_" ("#"&A_&"!A_";""&A_).
No puedo dejar la hoja con el arrastre de las formulas en las columnas indicadas, pues tengo otras operaciones que buscan celdas vacias en estas columnas, y si las dejo con las fórmulas no las considera vacias. He de añadir las fórmulas en cada instrucción de añadir datos según necesidad.
Puedes hacer lo siguiente:
Localizar la última fórmula en la columna A. Está en la fila "ultfila", así que:
cells(ultfila + 1,1).formula = cells(ultfila,1).formula
La columna B es un poco más elaborada:
cells(ultfila + 1, 2).formula = replace(cells(ultfila,2).formula,ultfila,ultfila+1)
Utilizo replace para sustituir la fila, porque sé que solamente está en donde lo queremos cambiar.
Un saludo