convertir a euros
Publicado por alagones (1 intervención) el 08/01/2002 19:03:18
Tengo que convertir varias hojas de calculo de pesetas a euros.
Esoty tratando de hacer una macro que me recalcule las celdas seleccionadas mediante la plusación de un boton, pero no consigo más que me calcule la celda activa, tengo la necesidad de reclacular una selección de celdas dividiendo su valor por 166.366 y dejando el resultado de las mismas en cada celda.
Como puedo hacerlo.
He puesto las siguientes instrucciones y no lo consigo.
'ActiveCell.FormulaR1C1 = ActiveCell / 166.386
'Selection.Formula = "=EUROCONVERT(SELECTION.SELCT;'ESP';'EUR')"
'Selection.FormulaR1C1 = Selection.Select / 166.386
' Select.FormulaR1C1 = Selection / 166.386
'Selection.NumberFormat = "#,##0.00"
Esoty tratando de hacer una macro que me recalcule las celdas seleccionadas mediante la plusación de un boton, pero no consigo más que me calcule la celda activa, tengo la necesidad de reclacular una selección de celdas dividiendo su valor por 166.366 y dejando el resultado de las mismas en cada celda.
Como puedo hacerlo.
He puesto las siguientes instrucciones y no lo consigo.
'ActiveCell.FormulaR1C1 = ActiveCell / 166.386
'Selection.Formula = "=EUROCONVERT(SELECTION.SELCT;'ESP';'EUR')"
'Selection.FormulaR1C1 = Selection.Select / 166.386
' Select.FormulaR1C1 = Selection / 166.386
'Selection.NumberFormat = "#,##0.00"
Valora esta pregunta
0