Euro

Hola,
Me gustaría saber como crear un botón que me convirtiera todo lo que tengo seleccionado de pesetas a euros (o sea *166,386.)
Lo he conseguido celda a celda, pero no un bloque.
Gracias.
1

1 Respuesta

200.775 pts.
Por lo que me dices, supongo que el problema no es el botón ni la macro, sino solo el algoritmo para resolverlo, prueba lo siguiente...
Public Sub Euro()
Dim Valor As Single
Dim c As Range
For Each c In Selection
'Aqui si es multiplicaion, solo cambia el operador
Valor = c.Value / 166.386
c.Value = Valor
Next c
End Sub
Asigna esta macro a tu botón y listo...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas