Formulario Pegado especial con opciones combinables en Excel

Twittear este post

 Compartir en Facebook

Antes de Excel 2010 no había la manera de poder elegir combinaciones de pegado especial de datos, pero con la llegada de esa versión, el equipo de desarrollo pensó en tal necesidad. La cuestión es que ya se pueden hacer combinaciones, pero sólo de un par de opciones, de una lista de 4, lo cual lo hace realmente funcional, pero no suficiente.

Ante la necesidad de poder elegir más de una opción de pegado me di a la tarea de crear mi propio UserForm que realiza tal actividad, así danto oportunidad de poder elegir las combinaciones de mi agrado y necesidad.

Adjunto archivo de Excel para versión 2007 y 2010 con el ejemplo funcional. Con un poquito más de programación, se podrá poner la opción en el menú contextual para que lo tengamos a la mano.

Formulario en acción:

image

El botón insertado en la hoja ejecuta el siguiente código:

Private Sub CommandButton1_Click()
'Mandamos llamar al procedimiento.
Call EXCELeINFOPasteSpecial
End Sub

El código del procedimiento:

Option Private Module
Sub EXCELeINFOPasteSpecial()
'Si previamenente no se copió un rango, no se podrá continuar.
If Application.CutCopyMode = False Then
    MsgBox "No hay datos para pegar." & vbNewLine & vbNewLine & "Asegúrese de que haya utilizado Ctlr + V o Ctlr + Insert para copiar datos.", vbExclamation, "EXCELeINFO"
Else
    UserForm1.Show
End If
End Sub

El código del formulario se podrá consultar dentro del mismo archivo.

:: Descargar archivo con ejemplo.

You may also like...

Leave a Reply

Your email address will not be published.

%d bloggers like this: