Formulario Pegado especial con opciones combinables en Excel
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:
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.
