Macros lotus 123 milenium

¿concoces los macros de 123?
si es asi ¿Tienes alguno para convertir un rango determinado de ptas a euros y viceversa?
Gracias
1

1 Respuesta

32.275 pts.
Desgraciadamente lotus no es mi fuerte. Yo te digo como se hace en excel. Esto te tiene que servir de guía, espero serte de utilidad.
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]_-;[email protected]_-"
End Sub
Conversión de euros a pesetas
Sub Peseta()
valor = ActiveCell.Value * 166.386
ActiveCell.Value = valor
Selection.Style = "Currency [0]"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas