Macro para convertir Euros a pesetas y viceversa.

    Dentro de poco tendremos necesidad de convertir nuestras hojas de cálculo, normalmente realizadas en pesetas a euros, con lo que deberemos realizar multitudes de conversiones. 

    Las macros que explicaremos a continuación nos facilitarán mucho este trabajo ya que nos permitirá convertir la celda en la que nos encontramos a Pesetas o Euros según decidamos y a la vez cambiará su formato. 

    Estas macros se pueden realizar para cualquier otra moneda, lo único que deberemos cambiar será el tipo de conversión y el formato con el que deseamos trabajar. 

    Antes de escribir las macros necesarias recordemos que para pasar de pesetas a euros deberemos dividir por 166.386 y para pasar de euros a pesetas deberemos multiplicar por esta cantidad.

Conversión de pesetas a euros

                    Sub Euro()
                        valor = ActiveCell.Value / 166.386
                        ActiveCell.Value = valor
                        Selection.NumberFormat = _
                            "_-* #,##0.00 [$€-1]_-;-* #,##0.00 [$€-1]_-;_-* ""-""?? [$€-1]_-;_-@_-"
                    End Sub

    En la primera línea de esta Macro lo único que hacemos es mirar el valor que hay en la celda activada y dividirlo por 166.386, seguidamente asignamos este valor a una variable. A continuación esta variable la asignamos a la misma celda en la que nos encontramos. De esta forma lo que hacemos es reemplazar un valor por otro. Seguidamente lo único que hacemos es cambiar el formato de la celda pasándola de un formato de pesetas a un formato de Euro, con dos decimales y con el símbolo €.

Conversión de euros a pesetas

                    Sub Peseta()
                        valor = ActiveCell.Value * 166.386
                        ActiveCell.Value = valor
                        Selection.Style = "Currency [0]"
                    End Sub

    Esta segunda Macro funciona exactamente igual que la primera, podríamos decir que el único cambio que hay es que en esta se realiza una multiplicación y que el formato de celda que se selecciona es de pesetas, sin decimales y con Pts al final de la cifra.

    Para facilitar el uso de estas macros os recomiendo creéis unos botones en vuestra barra de herramientas y así las conversiones serán mucho más rápidas

[INDICE LECCIONES]