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.
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 respuesta
Respuesta de valedor
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...
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...
