Saltar al contenido

¿como mantener el formato de una celda de excel?


car93saul

Recommended Posts

publicado

es que estoy haciendo una hoja de calculo y donde se van a introducir los valores tienen un formato de celda especifico... cuando el usuario de la hoja pegue los datos esta pierde el formato porque se pega el formato existente.... conozco la forma de pegado especial y pegar solo los valores

pero eso no me sirve porque si otra persona usa la hoja no ara ese procedimiento.

Lo que quiero es que no sea necesario hacer eso para que solo se peguen los valores. alguna configuración que haya que hacerle a la celda.

Espero sus respuestas

publicado

Asi a bote pronto, si solo fueran a usar CONTROL+V, podria hacerse algo como en el adjunto.

Una macro que hace un pegado especial de valores y esta asociada a CONTROL+V, de esta manera, solo se pegaran los valores en caso de usar esta combinacion. Lo malo es que no funcionaria si usan los menus para pegar, cosa que es muy probable.

En el ejemplo, copia y pega las celdas con formatos en otras areas usando ctrl+v, veras como solo pega los formatos.

La solucion a usar los menus, podria ser una historia que usaba Macro Antonio por ahi que cambiaba los menus del excel, quizas editando esos menus y haciendo que desaparezca el "pegar" de dicho menu...

A ver si alguien conoce algun metodo mas sencillo.

Saludos

PegadoEspecialValores.xls

publicado

gracias

verzulsan esta muy buena tu sugerencia..... pero tiene ese inconveniente con la que no funciona si se pega del menu... e intentado modificar la macro para que funcione si se usa el menu pero no e podido.. talvez usando la opcion que me dijiste para cambiar el menu y quitar la opcion de pegar... pero no s bien como hacerlo

publicado

He buscado un poco por la web y he encontrado algunas maneras para deshabilitar dichos menús en el libro, se reactivan al abandonar la hoja.

La estructura general del código (que esta vez esta en ThisWorkBook), la he sacado de esta página:

Excel VBA: Disable Cut/Copy in Excel Workbook. Stop Cutting/Copying Cells in Excel

Solo funcionará si el usuario tiene las macros activadas, en caso contrario, podrá copiar y pegar libremente.

Al estar los menús deshabilitados, solo se permite pegar con Control+v, que llamará a la macro del primer post para hacer un pegado especial de valores. Para copiar, usar Control+c.

En el adjunto va la idea.

Saludos.

PD:

Dejo algunos links que he estado mirando por si quieres investigar más:

Protect / Prevent Cell Formatting / Pasting

Disable paste but allow pastespecial values

Disable Cut, Copy, Paste And Force Enable Macros Microsoft Excel Help - KnowExcel.com

PD2:

Acabo de darme cuenta que en Office 2007, los menús de la cinta Ribbon (arriba izquierda) siguen habilitados. Si esto es un inconveniente tendrías que buscar también la manera de deshabilitarlos. Te dejo un enlace con algo de información, parece que usan xml pero yo no tengo ni idea de donde tocar ya que soy usuario de excel 2003 y el 2007 solo lo toco para casos de emergencia:

Excel 2007: How to Disable the buttons Cut, Copy, Paste and Format from Ribbon Clipboard Group?

Pegado Especial Solo Valores - Necesita Macros Activadas.xls

publicado

esta muy buena tu respuesta pero tiene unos inconvenientes.

cuando copias datos otra hoja no los puedes pegar ni si quiera haciendo control + v.

asi que queda des-habilitado todo lo lo que es pegar.

si tienes tiempo seria bueno que lo revisaras

intente corregirlo yo mismo pero no le entendí mucho ya que había muchas funciones que no conocía.

me sirvió para darme cuenta que todavía se muy poco.

adjunte el archivo con los datos para que lo compruebes tu mismo

Desktop.rar

publicado

Necesitas aplicar algo adicional al color rojo de la fuente?

No tengo claro cual debe ser el formato especifico pero una forma seria aplicar el formato a la hoja consulta y copiar y pegar todo.

Otra forma seria usar una macro que aplique el formato despues de pegar.

publicado

Pegar desde un libro (un archivo excel) a otro libro (un segundo archivo excel), es una operacion totalmente distinta a la que se ha planteado en la solucion, excel hace esto automaticamente al copiar de un libro a otro y es transparente al usuario, pero mediante macros, solo se me ocurre transferir variables entre archivos por medio del portapapeles y es un tanto rebuscado.

Quizas estas planteando mal el problema de lo que quieres hacer ya que seguramente podria obtenerse mejor solucion con la exportacion e importacion de datos entre libros, o quizas estoy espeso y no te entiendo bien.

A ver si alguien mas inspirado se le ocurre algo.

Por cierto. La macro en tu libro no te funciona por que has copiado los modulos tal cual, pero no has asignado la tecla de control V a la macro en cuestion.

Saludos.

Espera que te construyo un copiador de portapapeles, en 10 min estoy de vuelta.

- - - - - Mensaje combinado - - - - -

He tardado mas de la cuenta pero me he topado con el inconveniente de que deja una columna a la derecha auxiliar que pisa los datos, no he sabido quitarla.

Adjunto tu archivo, CONTROL+C envia las celdas al portapapeles y lo puedes pegar en cualquier cosa ya sea excel o no.

Si vas a copiar el codigo a otra hoja, debes adjudicar una combinacion de macros a la macro en cuestion que es la CopyFormula().

En caso de que de fallo la macro, debes agregar la lib correspondiente, está explicado arriba del modulo todo.

Saludos.

consulta2.xls

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      98
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    4    1

  • Crear macros Excel

  • Mensajes

    • Hola, veo que tienes 365, así que esta forma funcionará   Almacen.xlsx
    • Buenos días  @LeandroA espero estes bien Tengo un caso idéntico al planteado en la siguiente pregunta: Sin embargo, a diferencia de quien planteo originalmente la pregunta al correr el código no obtengo ningún resultado podrían ayudarme a resolver este inconveniente y que al hacer click en el Botón Guardar (CommandButton3) del Formulario RCS (frmrcs) el archivo pdf quede configurado con orientación vertical, márgenes superior, inferior, derecho e izquierdo = 1 y en página tamaño carta. Si acaso influye uso Microsoft Excel LTSC MSO (versión 2209 Compilación16.0.1.15629.20200) de 64 bits Mucho le sabre agradecer la ayuda que me pueda dar  RCS PRUEBA - copia.xlsm
    • @JSDJSDCon gusto mi estimado Para la opción 1: Sub Surtirhastadondealcanse() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 4 Dim filaFin As Integer: filaFin = 7 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Else solicitudes(i) = 0 End If surtido(i) = "POR FALTA STOCK" Next i ' Surtir de acuerdo al inventario disponible For i = 1 To numClientes If solicitudes(i) > 0 Then If inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) ElseIf inventario > 0 Then surtido(i) = inventario totalSurtido = totalSurtido + inventario inventario = 0 Else surtido(i) = "POR FALTA STOCK" End If End If Next i ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = "POR FALTA STOCK" Then .Value = surtido(i) .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Para la opción 2:   Sub surtirenpartesiguales() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets(1) Dim filaInicio As Integer: filaInicio = 13 Dim filaFin As Integer: filaFin = 16 Dim colInventario As Integer: colInventario = 2 Dim colSolicitudesInicio As Integer: colSolicitudesInicio = 4 ' Columna C Dim colResultadoInicio As Integer: colResultadoInicio = 9 ' Columna I Dim colTotalSurtido As Integer: colTotalSurtido = 12 ' Columna L Dim colFinalInventario As Integer: colFinalInventario = 13 ' Columna M Dim numClientes As Integer: numClientes = 3 Dim fila As Integer, i As Integer For fila = filaInicio To filaFin Dim inventario As Double inventario = Val(ws.Cells(fila, colInventario).Value) Dim solicitudes(1 To 3) As Double Dim surtido(1 To 3) As Variant Dim totalSurtido As Double: totalSurtido = 0 Dim totalPedido As Double: totalPedido = 0 ' Leer solicitudes For i = 1 To numClientes If IsNumeric(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) Then solicitudes(i) = CDbl(ws.Cells(fila, colSolicitudesInicio + i - 1).Value) totalPedido = totalPedido + solicitudes(i) Else solicitudes(i) = 0 End If surtido(i) = 0 Next i ' Si hay suficiente inventario, surtir lo que el cliente pide If inventario >= totalPedido Then For i = 1 To numClientes If solicitudes(i) > 0 And inventario >= solicitudes(i) Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) End If Next i Else ' Reparto base igualitario Dim baseSurtido As Long baseSurtido = Int(inventario / numClientes) For i = 1 To numClientes If solicitudes(i) > 0 Then If solicitudes(i) <= baseSurtido Then surtido(i) = solicitudes(i) inventario = inventario - solicitudes(i) totalSurtido = totalSurtido + solicitudes(i) Else surtido(i) = baseSurtido inventario = inventario - baseSurtido totalSurtido = totalSurtido + baseSurtido End If End If Next i ' Repartir sobrante restante uno por uno, respetando lo pedido Do While inventario > 0 For i = 1 To numClientes If surtido(i) < solicitudes(i) Then surtido(i) = surtido(i) + 1 totalSurtido = totalSurtido + 1 inventario = inventario - 1 If inventario = 0 Then Exit For End If Next i Loop End If ' Escribir resultados en las columnas correspondientes para cada cliente For i = 1 To numClientes With ws.Cells(fila, colResultadoInicio + i - 1) If surtido(i) = 0 Then .Value = "POR FALTA STOCK" .Font.Color = vbRed Else .Value = surtido(i) .Font.Color = vbBlack End If End With Next i ' Escribir total surtido y existencia final ws.Cells(fila, colTotalSurtido).Value = totalSurtido ws.Cells(fila, colFinalInventario).Value = inventario Next fila MsgBox "Resultado surtido cargado con éxito...", vbInformation End Sub Saludos, Diego
    • Buenos dias.  Estoy trabajando en una hoja para poder llevar un control de un pequeño almacén.  Tengo un pedido con varias líneas y "lotes" y necesito sacar las ubicaciones que coincidan con la referencia y lote que pone en el pedido. El problema viene cuando tengo la misma referencia y mismo lote en ubicaciones diferentes y necesito sacar la información en columnas diferentes. No se si  me he explicado bien, pero creo que con el ejemplo adjunto se entiende mejor. Agradecería mucho si me pudieran ayudar  Libro1.xlsx
    • Exelente solución mil gracias 
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.