Ver originales (Francés)

División automática de una columna entre 1000

Resuelto
PAtrick -  
 PAtrick -
Hola,

A menudo necesito dividir números por 1000. En general, utilizo el menú de pegado especial, pero eso lleva tiempo.
Por lo tanto, quiero crear un atajo en la barra superior de Excel para poder dividir automáticamente por 1000 las celdas que elija.

Gracias por tu ayuda

Configuración: Windows Vista / Internet Explorer 7.0

3 respuestas

  1.
    eriiic Mensajes publicados 24581 Fecha de registro   Estado Colaborador Última intervención   7 281
     
    Hola,

    ¿Realmente quieres dividir por 1000?
    Si es así y el pegado especial te cansa, será en VBA.

    De lo contrario, si es para la visualización y puedes mantener tus valores, puedes hacer un formato personalizado: un espacio después del formato divide por 1000 (2 espacios por 1000000, etc.)
    También puedes agregar la unidad en el formato, ejemplo:
    0 " k€"

    Si prefieres una macro, indícalo en el próximo mensaje.

    eric
    1
    1. PAtrick
       
      Gracias por su respuesta.
      Sí, si es posible hacer una macro, es perfecto. Pero no sé cómo hacerlo...

      Gracias de antemano.
      0
  2. eriiic Mensajes publicados 24581 Fecha de registro   Estado Colaborador Última intervención   7 281
     
    Re,

    Una macro para poner en la hoja o en un módulo: 
    Sub div1000() Dim c As Range If MsgBox("¿División por 1000 de las celdas de la selección?", vbYesNo + vbExclamation, "ATENCIÓN") = vbYes Then For Each c In Selection If IsNumeric(c) Then c = c / 1000 Next c End If End Sub


    Siguiendo el mismo modelo, puedes hacer una que multiplique por 1000 en caso de accidente.
    En una macro no hay opción de deshacer por excel.

    eric
    1