Macros en excel
Tengo una macro que me convierte un rango de celdas de pesetas a euros.
Cuando las celdas contienen datos funciona a la perfección. Pero no ocurre lo mismo si alguna de las celdas es el resultado de una fórmula.Por ejemplo, tengo un rango de celdas A1:A8, en las que las celdas A1 hasta A7 son datos y la celda A8 es el resultado de sumar las anteriores. Si ejecuto la macro en el rango A1:A8, la conversión la hace bien en las celdas A1 hasta A7, pero no en la A8 que no entiendo qué es lo que hace.
Por favor ¿qué puedo hacer? Dame alguna pista
Saludos
Cuando las celdas contienen datos funciona a la perfección. Pero no ocurre lo mismo si alguna de las celdas es el resultado de una fórmula.Por ejemplo, tengo un rango de celdas A1:A8, en las que las celdas A1 hasta A7 son datos y la celda A8 es el resultado de sumar las anteriores. Si ejecuto la macro en el rango A1:A8, la conversión la hace bien en las celdas A1 hasta A7, pero no en la A8 que no entiendo qué es lo que hace.
Por favor ¿qué puedo hacer? Dame alguna pista
Saludos
1 Respuesta
Respuesta de valedor
Para decirte que es lo que hace, necesitaría ver la macro, no se que es lo que haga sin verla, pero si solo quieres que cambie las celdas que tengan valores y no las que tengan fórmulas, hay que hacer unos cambios en la macro, que no son difíciles, pero si tengo que verla...
La macro que tengo es la siguiente:
Sub euroconvert()
Dim valor as single
Dim c as Range
for each c in selection
valor=c.value/166.386
c.value=valor
c.numberformat="#,##0,0000"
next c
End Sub
Sub euroconvert()
Dim valor as single
Dim c as Range
for each c in selection
valor=c.value/166.386
c.value=valor
c.numberformat="#,##0,0000"
next c
End Sub
Public Sub EuroConvert()
Dim Valor As Single
Dim c As Range
'Con esta linea seleccionas las celdas que tengas constantes
'o sea que no sean números, de esta manera tus formulas
'las respetara
Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each c In Selection
Valor = c.Value / 166.386
c.Value = Valor
c.NumberFormat = "#,##0.0000"
Next c
Dim Valor As Single
Dim c As Range
'Con esta linea seleccionas las celdas que tengas constantes
'o sea que no sean números, de esta manera tus formulas
'las respetara
Selection.SpecialCells(xlCellTypeConstants, 23).Select
For Each c In Selection
Valor = c.Value / 166.386
c.Value = Valor
c.NumberFormat = "#,##0.0000"
Next c
