Conversor de Pts a Euros en Excel
Hola:
He obtenido una macro para convertir Pts a Euros, con la única pega de que solo convierte una celda activa, y yo desearía convertir el rango que seleccionara libremente, y por pedir que se pudiera hacer un rango de diversos hojas del mismo libro.
La macro es:
Sub Euro()
valor = ActiveCell.Value / 166.386
ActiveCell.Value = valor
Selection.NumberFormat = _
"_-* #,##0.00 [$?-1]_-;-* #,##0.00 [$?-1]_-;_-* ""-""?? [$?-1]_-;_-@_-"
End Sub
Que instrucción falta para poder convertir todo el rango de celdas seleccionadas libremente por mi. En cada conversión el rango sera diferente, incluso en algunas ocasiones se tendría que poder seleccionar un rango en más de una hoja.
Muchas gracias por el interés.
mailto:[email protected]
He obtenido una macro para convertir Pts a Euros, con la única pega de que solo convierte una celda activa, y yo desearía convertir el rango que seleccionara libremente, y por pedir que se pudiera hacer un rango de diversos hojas del mismo libro.
La macro es:
Sub Euro()
valor = ActiveCell.Value / 166.386
ActiveCell.Value = valor
Selection.NumberFormat = _
"_-* #,##0.00 [$?-1]_-;-* #,##0.00 [$?-1]_-;_-* ""-""?? [$?-1]_-;_-@_-"
End Sub
Que instrucción falta para poder convertir todo el rango de celdas seleccionadas libremente por mi. En cada conversión el rango sera diferente, incluso en algunas ocasiones se tendría que poder seleccionar un rango en más de una hoja.
Muchas gracias por el interés.
mailto:[email protected]
1 Respuesta
Respuesta de valedor
1