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
si es asi ¿Tienes alguno para convertir un rango determinado de ptas a euros y viceversa?
Gracias
Respuesta de javicc
1
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]_-;_-@_-"
End Sub
Conversión de euros a pesetas
Sub Peseta()
valor = ActiveCell.Value * 166.386
ActiveCell.Value = valor
Selection.Style = "Currency [0]"
End Sub
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
Conversión de euros a pesetas
Sub Peseta()
valor = ActiveCell.Value * 166.386
ActiveCell.Value = valor
Selection.Style = "Currency [0]"
End Sub
