Ignasi Latorre
Esmeralda
Buenas tardes.
Me estoy peleando con una macro de Excel para tratar los datos de esfuerzos de salida de CYPE 3D y, a pesar de tener toda la macro lista y funcionando, me encuentro con un problema cuando trato los datos de entrada.
Intento explicarlo para que se entienda.
1.- Copio la tabla de esfuerzos por combinaciones desde la exportación de CYPE.
2.- Dado que CYPE usa "." como separador de decimales lo tengo que substituir por una ",".
En Excel veo esto:
y donde dice #¡CAMPO! hay el siguiente texto:
Previo a intentar solucionar el problema yo ya he cambiado el formato de todas las celdas a número sin separador de miles.
Aplico el siguiente código:
Dim m As Integer
For m = 4 To intMivalor
Cells(m, 3).Select
Selection.Replace What:=".", Replacement:=",", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="=", Replacement:=" ", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next m
Donde m es un contador desde la fila 4 hasta la última fila (se entra a mano).
Con cells(m,3).select selecciono una celda.
sustituyo el punto por la coma
borro el igual
y avanzo
Me funciona perfecto hasta que, llegada la fila 52
No sé a qué se debe que de golpe y porrazo, dentro del mismo for, deje de hacer la sustitución.
¡Gracias por vuestra ayuda!
Me estoy peleando con una macro de Excel para tratar los datos de esfuerzos de salida de CYPE 3D y, a pesar de tener toda la macro lista y funcionando, me encuentro con un problema cuando trato los datos de entrada.
Intento explicarlo para que se entienda.
1.- Copio la tabla de esfuerzos por combinaciones desde la exportación de CYPE.
2.- Dado que CYPE usa "." como separador de decimales lo tengo que substituir por una ",".
En Excel veo esto:

y donde dice #¡CAMPO! hay el siguiente texto:

Previo a intentar solucionar el problema yo ya he cambiado el formato de todas las celdas a número sin separador de miles.
Aplico el siguiente código:
Dim m As Integer
For m = 4 To intMivalor
Cells(m, 3).Select
Selection.Replace What:=".", Replacement:=",", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="=", Replacement:=" ", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next m
Donde m es un contador desde la fila 4 hasta la última fila (se entra a mano).
Con cells(m,3).select selecciono una celda.
sustituyo el punto por la coma
borro el igual
y avanzo
Me funciona perfecto hasta que, llegada la fila 52

No sé a qué se debe que de golpe y porrazo, dentro del mismo for, deje de hacer la sustitución.
¡Gracias por vuestra ayuda!