Ayuda en la siguiente instrucción

2 envíos / 0 nuevos
Último envío
JORDI MES
Imagen de JORDI MES
Offline
última acción: Hace 1 año 4 meses
alta: 06/02/2019 - 11:32
Puntos: 115
Ayuda en la siguiente instrucción

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.

Cron
Imagen de Cron
Offline
última acción: Hace 1 día 21 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12715
Puedes hacer lo siguiente

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