Radio Aportaciones NO PUEDO CONTRA ESTE SENTIMIENTO
REGLAMENTO DE USO (31 Mar 2011)

Recordatorio a todos los usuarios de los foros:

5. Está prohibido transmitir a través de estos foros cualquier contenido (información, datos, gráficos, texto, archivos, ligas, software u otro material) que viole cualquier derecho de propiedad industrial o intelectual. Se requiere mencionar al autor y el medio de publicación cuando se haga una referencia editorial.

VACIAR PORTAPAPELES CON CODIGO

Más
15 años 8 meses antes #67392 por JULIO
VACIAR PORTAPAPELES CON CODIGO Publicado por JULIO
BUENAS TARDES A TODOS TENGO UNA HOJA DE EXCEL LA CUAL DURANTE SU PROCESO HACE VARIAS VECES LA FUNCION DE COPIAR Y PEGAR Y QUICIERA SABER SI EXISTE ALGUNA INSTRUCCION QUE VACIE EL PORTAPAPELES DEL OFFICE E INTERCALARLA DENTRO DE MI CODIGO PARA NO SATURAR LA MEMORIA GRACIAS

Por favor, Conectar para unirse a la conversación.

Más
15 años 8 meses antes #67400 por OCruzG
Respuesta de OCruzG sobre el tema Re: VACIAR PORTAPAPELES CON CODIGO
Esto lo haces mediante API's

Option Explicit
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long

Public Function LimpiarPortapapeles()
OpenClipboard (0&)
EmptyClipboard
CloseClipboard
End Function

Sub ccc()
Call LimpiarPortapapeles
End Sub

o bien para limpiar el Portapapeles que envuelve varios copy-paste puedes usar esta opción despues de cada pegado:

Application.CutCopyMode = False

o tambien puedes omitir el usar el portapapeles si copias y pegas de la siguiente forma:

ActiveSheet.Cells.Copy Destination:=Sheets(2).Range("A1")

Usando esta última no hay ninguna necesidad de borrar el portapapeles.
Obed Cruz
www.exceltrabajaporti.com
Email: obed.cruz@exceltrabajaporti.com

Por favor, Conectar para unirse a la conversación.

Tiempo de carga de la página: 0.945 segundos
Gracias a Foro Kunena

Main Menu

Usuarios

Conectados