Copiar y pegar

[mllaveria]

Buenas tardes. Esta es mi primera aparición por este gran foro.
Tengo un problema. Necesito una macro que despues insertarí­a en un boton que me copie lo que hay en las celdas B2 a la la última...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Creedence]

A ver si le atiné.

 

[Creedence]

Perdón... BIENVENIDO compañero.

 

[mllaveria]

Gracias compañero.
No era eso lo que querí­a. Lo que quiero es que desde B2 hasta la última celda con valor se pegen en A2, etc.
Por ejemplo, B2 se copia y pega en A2, B3 en A3 hasta que...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Creedence]

A ver esta.

 

[Creedence]

Checate esta otra.

 

[mllaveria]

Muchas gracias. Es lo que querí­a.
¿Alguien me podrí­a dar una breve explicación del funcionamiento de la macro para entenderla?
Lo pregunto porque esto me lo voy a llevar a un Excel mucho mas...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[mllaveria]

Compañeros, he encontrado un pequeño problema. Sucede que si encuentra como valor 0 no lo pega, se detiene. ¿Serí­a posible que aunque fuera cero el valor lo pegara? Solo me interesa que no se...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Prueba esto:

Sub copiar()
Dim rw As Long, rngExt As Range
On Error GoTo errorHnd

With Application
AppCalc = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False


Set...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[mllaveria]

Lo he probado y copia aunque sea cero. Pero me copia toda la columna, y solo quiero que copie hasta que llegue a una celda vací­a, porque mas abajo tengo anotaciones y subtotales.
Los otros...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[mllaveria]

He probado así­ y ya me funciona:
Sub CopiarPegar()
Range("q2").Select
While ActiveCell <> ""
ActiveCell.Copy Destination:=ActiveCell.Offset(0, -10)
ActiveCell.Offset(1, 0).Activate
Wend...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

A partir de qué celda tienes otros datos?

 

[mllaveria]

Puede variar. Esto lo tengo que llevar a otro Excel donde tengo una lista de personal con una producción que hacen y que la lista puede variar cada mes en función de los empleados que haya. Puede...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Creedence]

De esa manera es como se aprende compañero mllaveria, modificando los códigos ya hechos (aunque a veces nos marquen "errores"), sigue intentando y veras que vas a aprender muchas cosas mas.

 

[mipega62]

buenos dias..
una pequeña sugerencia.. si no hay celdas intermedias en blanco yo usaria la siguiente linea ,

Range("b2", Range("b2").End(xlDown)).Copy Destination:=Range("a2")

esto tiene puntos...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[mllaveria]

Magní­fico. Es rapidí­simo.
Muchas gracias.
Gracias a todos, sois unos maestros.
Conocéis los códigos a la perfección. Con lo que me gusta el lenguaje de programación os envidio.

Gracias.