Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Insertar Filas en otra hoja

28/07/2009 - 20:22 por JForero | Informe spam
Ayuda Hacer una pregunta
Buen día grupo

Deseo realizar lo siguiente:

En la hoja2 tengo las columas A, B C D E y F diligenciadas con cierto numero
de registros, las columnas B C D E y F estan formuladas con operaciones
matematicas y buscarv apuntando a la hoja3. la fila 1 y 2 son de titulos

En la hoja1 tengo en las celdas:

a3 nombre empresa
a4 nombre cliente
a5 direccion electronica
fila 6 en blanco
fila 7 en blanco
fila 8 en blanco
a9 a la a11 textos informativos para el cliente

en la hoja1 tengo insertado un boton del cuadro de controles en el que
necesito realizar lo siguiente:

copiar las columnas B C D y F (la A y la E no las necesito) desde la fila2
que corresponde a los titulos (la fila 1 no la necesito copiar) hasta el
ultimo registro diligenciado por ejemplo hasta la fila 15 e insertarlas en
la hoja1 en la fila 7 es decir, en la fila 7 me quedara el primer registro
de la hoja2 y asi sucesivamente... la fila 23 estara en blanco (antes la
fila 8) y en las celdas siguientes de la columna A, la informacion que
estaba en las celdas a9 a la a11.

se debe tener en cuenta que el copiado debe hacerse con todos los formatos y
caracteristicas ya que por ejemplo las celdas estan con fondo en colores,
hay bordes al rededor de las celdas, hay texto ajustado porlo amplio de la
descripcion del producto etc..

gracias por la ayuda que me puedan brindar
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 JForero
31/07/2009 - 19:04 | Informe spam
Hola Hector, muchas gracias funciona bien, pero atendiendo tu observación
(OJO), hay posibilidad que en el mismo botón, después de insertar las filas,
las borre inmediatamente??.

lo digo porque posterior a esto, a traves de codigo en el mismo bóton me
crea una hoja de calculo para cada vez que se genere una cotizacion (es
decir click en el boton) entonces me quedaria guardada la info del a hoja1
en la hojan (que se van creando con un numero cosecutivo)

Gracias
Jorgef.


"Héctor Miguel" escribió en el mensaje de
noticias news:OJ%23CHU%
hola, Jorge !

al boton de la hoja1 le asignas el siguiente codigo en el evento '_click'

Dim nFilas As Integer
Application.ScreenUpdating = False
With ActiveCell
With Worksheets("hoja2").Range("a2")
nFilas = .CurrentRegion.Rows.Count - 1
Range("a8").Resize(nFilas - 2).EntireRow.Insert
.Offset(, 1).Resize(nFilas - 1, 3).Copy
Range("a7").PasteSpecial xlPasteFormats
Range("a7").PasteSpecial xlPasteValues
.Offset(, 5).Resize(nFilas - 1, 1).Copy
Range("d7").PasteSpecial xlPasteFormats
Range("d7").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
.Select
End With

OJO: la segunda vez (y posteriores) que la ejecutes ya deberas haber
"limpiado" los datos copiados previamente
(es decir, volver a tener las filas 6, 7 y 8 "en blanco")

saludos,
hector.

__ OP __
En la hoja2 tengo las columas A, B C D E y F diligenciadas con cierto
numero de registros
las columnas B C D E y F estan formuladas con operaciones matematicas y
buscarv apuntando a la hoja3. la fila 1 y 2 son de titulos

En la hoja1 tengo en las celdas:
a3 nombre empresa
a4 nombre cliente
a5 direccion electronica
fila 6 en blanco
fila 7 en blanco
fila 8 en blanco
a9 a la a11 textos informativos para el cliente

en la hoja1 tengo insertado un boton del cuadro de controles en el que
necesito realizar lo siguiente:
copiar las columnas B C D y F (la A y la E no las necesito) desde la
fila2 que corresponde a los titulos
(la fila 1 no la necesito copiar) hasta el ultimo registro diligenciado
por ejemplo hasta la fila 15
e insertarlas en la hoja1 en la fila 7 es decir, en la fila 7 me quedara
el primer registro de la hoja2 y asi sucesivamente
... la fila 23 estara en blanco (antes la fila 8) y en las celdas
siguientes de la columna A, la informacion que estaba en las celdas a9 a
la a11.

se debe tener en cuenta que el copiado debe hacerse con todos los
formatos y caracteristicas ya que por ejemplo
las celdas estan con fondo en colores, hay bordes al rededor de las
celdas, hay texto ajustado porlo amplio de la descripcion del producto
etc.




Preguntas similares

 

Busqueda sugerida :