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
¿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.
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
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.
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
Estos son los archivos, en resumen
Jesus Martinez Plantarosa