estoy haciendo una hoja de calculo que sera utilizada por otros usuarios y en la parte que se introducirán los datos tiene un formato de celda especifico .. el problema es que cuando se pegan de otro lado el formato de esa celda también se copia... intente con una macro que haga pegado especial pero no funciona si el pegado se hace desde el menu . así que se me ocurrió que talvez se podría hacer una macro que bloquee el formato de estas celdas donde se introducirán valores de manera que se puedan pegar datos de cualquier lado sin hacer pegado especial. pero no se me ocurre ninguna forma de hacerlo.

as que espero que tengan alguna solución para ayudarme.

Hola:

Esta macro hace el Pegado especial (Valores) de forma automática al seleccionar la celda de destino después del Copiar, con lo cual se eliminan el resto de opciones del Pegado especial.

Colócala en la hoja.

Dim Rango As Range


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.EnableEvents = False

If Application.CutCopyMode = xlCopy Then

   Target.Resize(Rango.Rows.Count, Rango.Columns.Count).Select

   Selection.Value = Rango.Value

   Application.CutCopyMode = xlCut

Else

   Set Rango = Selection

End If

Application.EnableEvents = True

End Sub[/CODE]

Saludos

no me funciono ....

Sube el archivo.

este es el archivo

los espacios en rojo son los que se van a modificar

consulta.rar