pegar

6 envíos / 0 nuevos
Último envío
Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
pegar

Buenas tardes
Tengo el siguiente código:

Sub copiartkt()

Sheets("BOLETOS").Select

vuf = Range("d" & Rows.Count).End(xlUp).Row

Range("d3:o" & vuf).Select

        Selection.Copy

 

End Sub

bueno el cual selecciona y esta listo para copiar, este código lo tengo en mi libro 1 y lo que quiero es pegarlo en mi libro 2 a la hoja activa, en la hoja activa tengo un formato de kardex y bueno hice el siguiente código:

Sub pegar()

Dim n As Long

countult = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select

  Selection.PasteSpecial Paste:=xlPasteAll

    Application.CutCopyMode = False

    Range("a1").End(xlDown).Select

 

End Sub

El cual no funiona :( , que estoy haciendo mal ?? ayuda por favor y gracias
Jesús

 

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 21 horas 25 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
¿qué es lo que no funciona?

¿qué es lo que no funciona?

¿no pega donde se supone que debería pegar?

¿da algún error?

 

------
Ya sé Excel, pero necesito más.

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Pegar en otro libro

Estimado Paco buenos días:

Tengo la siguiente macro en mi libro caja jesus 2015.xlsm 

Sub copiartkt()

Sheets("BOLETOS").Select

vuf = Range("d" & Rows.Count).End(xlUp).Row

Range("d3:o" & vuf).Select

        Selection.Copy

End Sub

el cual selecciona lo que quiero copiar, despues quiero ir a mi otro libro cuentas por cobrar 2015.xlsm en el cual tengo tengo diferentes hojas de calculo, y bueno una vez seleccionado el rango lo que quiero copiar de mi libro caja jesus 2015.xlsm con mi macro, quiero ir a cualquiera de las hojas de mi otro libro y pegar lo seleccionado en la ultima celda de la columna A que cuenta desde la celda A7 para abajo y pegar lo seleccionada en mi otro libro (caja jesus 2015.xlsm) copie a este mi otro libro (cuentas por cobrar 2015.xlsm) en cualquier de las hojas que yo seleccione, algo asi como copiar y pegar.

Gracia

Jesús

Jesus Martinez Plantarosa

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 21 horas 25 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Tu macro debería funcionar

Tu macro debería funcionar.

Sólo se me ocurre que puede estar pasando lo siguiente:

Puede que al realizar determinadas operaciones se pierda el portapapeles de windows, es decir, se pierde lo que habías copiado.
Ocurre igual si lo haces a mano. En Excel cuando copias aparece un punteado alrededor de lo que has copiado. mientras está ese punteado puedes pegarlo en cualquier lado, pero si por ejemplo editas una celda, entonces el punteado desaparece, ya no puedes pegar lo que habías copiado.

¿estás haciendo algo desde que copias hasta que intentas pegar que puede "quitar ese punteado"? 

 

 

 

 

------
Ya sé Excel, pero necesito más.

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Pegar en otro libro

Estimado Paco, si siguen los puntitos en mi libro caja que es donde quiero copiar y voy directo a mis cuenta por cobrar, solo que mediante una macro quiero que busque desde la celda a7 la ultima celda vacia de esa columna y pegue todo lo seleccionado.

Ayuda por favor

Jesús 

Jesus Martinez Plantarosa

Jesús Martínez
Imagen de Jesús Martínez
Offline
última acción: Hace 3 años 9 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 5008
Archivos

Estos son los archivos, en resumen

AdjuntoTamaño
File caja.xlsm24.34 KB
File cuentas.xlsx68.67 KB

Jesus Martinez Plantarosa