Insertas Filas con Formulas

22/11/2006 - 18:30 por Renzo Diez | Informe spam
Estimados tengo esta macro obtendida del foro

Sub NuevaFila()
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Selection.ClearContents
ActiveCell.Select
End Sub

la cual copia la celda con todos sus caracteristicas, eliminando
Selection.ClearContents se copía toda la fila. Lo que necesito es que
ejecute la macro antes mencionada y luego el cursor se coloque en la
siguente fila vacia.

Anticipadas gracias por su ayuda.

Saludos,
Renzo
 

Leer las respuestas

#1 Héctor Miguel
23/11/2006 - 00:24 | Informe spam
hola, Renzo !

... tengo esta macro obtendida del foro
Sub NuevaFila()
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Selection.ClearContents
ActiveCell.Select
End Sub
la cual copia la celda con todos sus caracteristicas
eliminando Selection.ClearContents se copía toda la fila.
Lo que necesito es que ejecute la macro antes mencionada y luego el cursor se coloque en la siguente fila vacia.



1) no me queda muy claro que signifique... 'la siguiente fila vacia' -?-
2) al insertar filas/columnas... la nueva insercion 'asume/hereda/contiene/...' los mismos formatos que su 'antecesora' ;)
es decir... si suponemos que ya tienes una 'determinada' fila con formatos personalizados aplicados...
lo unico que necesitas es...
a) seleccionar 'donde' se va a insertar una nueva fila [puede ser intermedia o -> la siguiente celda/fila 'vacia']
b) insertar la/ nueva/s fila/s
[p.e.] selecciona la siguiente fila libre bajo una fila con formatos y ejecutas una sola instruccion:
-> ActiveCell.EntireRow.Insert

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares