saludos
alguien me podria ayudar complementando el sgte codigo
lo que trato es cada vez que inserte un conjunto de filas, éstas tambien incluyan el mismo formato y formulas de la fila 5
en el archivo que adjunto esta el ejemplo, sin embargo tengo que mencionar que este no me presenta problema sino otro archivo con mas registros,, y cada vez que inserto filas no me copia las formulas ni mucho menos el formato,
de antemano gracias
a continuacion el codigo que estoy usando para insertar las filas
Sub Insertar_Filas()
Dim numFilas As Long
'Preguntar al usuario por el número de filas a insertar
numFilas = Application.InputBox(Prompt:="Filas a insertar:", Type:=1)
'Validar si el número de filas indicado es superior a cero
If numFilas > 0 Then
'Insertar filas
Application.ScreenUpdating = False
Rows(ActiveCell.Row & ":" & ActiveCell.Row + numFilas - 1).Insert
End If
End Sub
Adjunto | Tamaño |
---|---|
inserta_fila_con_formulas.xlsm | 28.17 KB |
Donde estás insertando las filas es en medio de una tabla. El comportamiento por defecto es copiar formatos y fórmulas.
Si en el otro archivo no lo hace es porque el formato está definido en celdas sueltas, pero no en toda la tabla, y lo mismo con las fórmulas. así qeu cuando insertas nuevas filas le aplica el formato de la tabla, que por lo que comentas es distinto de lo que tú crees que es el formato de la tabla.
Prueba a redefinir el formato de la tabla que te da problemas.
------
Ya sé Excel, pero necesito más.
gracias por tu respuesta paco
me resulto, quitandole el formato y agregandolo nuevamente a toda la fila (el problema del formato esta resuelto)
sin embargo, el problema de la formula no esta resuelto
es posible agregarle al codigo, una instruccion para que luego de insertar las filas ( o seleccion cualquiera)
las formulas de la fila que estan debajo del encabezado, se peguen en las filas insertadas
Rayner VZ
Cuando una fórmula se define en una tabla, se extiende también automáticamente a las nuevas filas, así que imagino que habrá fórmulas que no se aplican a toda la columna y por eso no las está considerando como algo general para toda la tabla.
Intenta redefinir la fórmula, selecciona una celda con fórmula, pulsa [F2] para editarla, y pulsa Intro a continuación para introducirla; te debería aparecer un mensaje dando la posibilidad de sobrescribir toda la columna con esa fórmula. Aparece como un icono junto a la celda tras introducir la fórmula.
tras hacer esto, la fórmula se aplicará a toda la columna, y también a las nuevas filas que se vayan insertando.
------
Ya sé Excel, pero necesito más.
Disculpe la molestia, no soy muy buena en VBA. Si yo solo quiero insetar una fila (siempre esa misma fila)
Hola Paco,
estuve tratando de resolver este mismo problema y sin ser experto me parece que el camino que indicas es el correcto, sin embargo no logro conseguir que me aparesca el cuadro que dice sobrescribir todas las celdas en esta columna con esta fórmula. Solo me aparece lo siguiente:
Existe algún otro camino para esto?.
saludos