Verificar si hay algo en el Portapaeles

Camilo,

?Que tal esto?

Function PortapapelesVacio() As Boolean
PortapapelesVacio = (Application.ClipboardFormats(1) = -1)
End Function

Sub test()
MsgBox PortapapelesVacio
End Sub

Saludos,
KL
(XL 97, 2000, 2002)

Ojo - mi separador de argumentos en las formulas es la coma ",".
Puede q necesites cambiarla por punto y coma ";".

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"Camilo Báthory" wrote in message
news:0aa801c4ee92$57978440$

Estoy utilizando el codigo de Pegado especial Valores:

Cells(7, 1).PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Pero antes de hacerlo me gustaria verificar si realmente
hay algo que pegar. Es decir, como puedo hacer para
verificar si el Portapapeles (Clipboard) esta vacio o
tiene algo para pegar.

Gracias,

Excelente... muchas gracias.

Lo aplique así:
If (Application.ClipboardFormats(1) = -1) Then
Cells(7, 1).PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If

Podrias explicarme mejor que hace esta opción:
Application.ClipboardFormats(1) = -1
Y porque lo igualas a -1?

Gracias

Camilo,

?Que tal esto?

Function PortapapelesVacio() As Boolean
PortapapelesVacio = (Application.ClipboardFormats(1)

= -1)

End Function

Sub test()
MsgBox PortapapelesVacio
End Sub

Saludos,
KL
(XL 97, 2000, 2002)

Ojo - mi separador de argumentos en las formulas es la

coma ",".

Puede q necesites cambiarla por punto y coma ";".

Para usar mi direccion de correo electronico privada
borra "NOSPAM" y "PLEASE" antes de usarla.

"Camilo Báthory" wrote in message
news:0aa801c4ee92$57978440$

Estoy utilizando el codigo de Pegado especial Valores:

Cells(7, 1).PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Pero antes de hacerlo me gustaria verificar si

realmente

hay algo que pegar. Es decir, como puedo hacer para
verificar si el Portapapeles (Clipboard) esta vacio o
tiene algo para pegar.

Gracias,

.

Muchas gracias... todo quedo comprendido y OK.
ademas y pude ver los tipos que devuelve ClipBoarFormats
por la ayuda de VBA.

Saludos \m/

Camilo,

Podrias explicarme mejor que hace esta opción:
Application.ClipboardFormats(1) = -1
Y porque lo igualas a -1?

La propiedad ClipboardFormats devuelve una matriz de

valores numericos correspondientes a los formatos de
datos almacenados en Portapapeles. Algunos estan
disponibles en Wndows y Mac, otros solo en Windows o solo
en Mac. Si el Portapapeles esta vacio el primer miembro
de la matriz devuelve -1.

Saludos,
KL