Problemas con Fracciones

Hola Mirtha,

Si hay que hacerlo por codigo, yo lo haria asi:

Sub PROCESO()
[C5] = [A1] / [A2]
[C5].NumberFormat = IIf(([A1] Mod [A2]) = 0, "0", "?/?")
End Sub


Saludos,
KL


"Mirtha Velásquez" wrote in message news:

Hubo un error :( ... este es el final :)

Sub PROCESO()

Macro1 Macro
Application.ScreenUpdating = False
Dim A As Long
Cells.Select
Selection.NumberFormat = "General"
Range("A1").Select
If (A = (Range("A1").Value) Mod (Range("A2").Value)) <> 0 Then
Range("C5").Select
ActiveCell.Value = Range("A1") / Range("A2")
Else
Range("C5").Select
ActiveCell.Value = Range("A1") / Range("A2")
Selection.NumberFormat = "?/?"
End If
End Sub

Saludos.
Mirtha V.


"Mirtha Velásquez" escribió en el mensaje news:

Hola, gracias a los alcances que me dieron encontré una manera de hacer lo
que necesitaba. A ver si a alguien mas le es útil.

Sub PROCESO()
Application.ScreenUpdating = False
Dim A As Long
Cells.Select
Selection.NumberFormat = "General"
Range("A1").Select
If (A = (Range("A1").Value) Mod (Range("A2").Value)) <> 0 Then
Range("C5").Value = Range("A1") / Range("A2")
Else
Range("C5").Value = Range("A1") / Range("A2")
Selection.NumberFormat = "?/?"
End If
End Sub

Saludos

Mirtha V.









"Mirtha Velásquez" escribió en el mensaje
news:

Hola, desde ya gracias por la atención a la presente, tengo un problema,
necesito que al trabajar con fracciones no me redondee
Ejemplo :

Necesito que el resultado me salga 5/4 y no 1 1/4 que automáticamente me
pone el Excel. Otro ejemplo seria 7/2 y no 3 1/2.

Muchas gracias por la futua ayuda
Atte

Mirtha V.

no, mejor asi:

Sub PROCESO()
[C5] = [A1] / [A2]
[C5].NumberFormat = IIf([A1] Mod [A2], "?/?", "0")
End Sub


Saludos,
KL


"KL" wrote in message news:

Hola Mirtha,

Si hay que hacerlo por codigo, yo lo haria asi:

Sub PROCESO()
[C5] = [A1] / [A2]
[C5].NumberFormat = IIf(([A1] Mod [A2]) = 0, "0", "?/?")
End Sub


Saludos,
KL


"Mirtha VelАsquez" wrote in message news:

Hubo un error :( ... este es el final :)

Sub PROCESO()

Macro1 Macro
Application.ScreenUpdating = False
Dim A As Long
Cells.Select
Selection.NumberFormat = "General"
Range("A1").Select
If (A = (Range("A1").Value) Mod (Range("A2").Value)) <> 0 Then
Range("C5").Select
ActiveCell.Value = Range("A1") / Range("A2")
Else
Range("C5").Select
ActiveCell.Value = Range("A1") / Range("A2")
Selection.NumberFormat = "?/?"
End If
End Sub

Saludos.
Mirtha V.


"Mirtha VelАsquez" escribiС en el mensaje news:

Hola, gracias a los alcances que me dieron encontrИ una manera de hacer lo
que necesitaba. A ver si a alguien mas le es Зtil.

Sub PROCESO()
Application.ScreenUpdating = False
Dim A As Long
Cells.Select
Selection.NumberFormat = "General"
Range("A1").Select
If (A = (Range("A1").Value) Mod (Range("A2").Value)) <> 0 Then
Range("C5").Value = Range("A1") / Range("A2")
Else
Range("C5").Value = Range("A1") / Range("A2")
Selection.NumberFormat = "?/?"
End If
End Sub

Saludos

Mirtha V.









"Mirtha VelАsquez" escribiС en el mensaje
news:

Hola, desde ya gracias por la atenciСn a la presente, tengo un problema,
necesito que al trabajar con fracciones no me redondee
Ejemplo :

Necesito que el resultado me salga 5/4 y no 1 1/4 que automАticamente me
pone el Excel. Otro ejemplo seria 7/2 y no 3 1/2.

Muchas gracias por la futua ayuda
Atte

Mirtha V.

hola, chicos !

1) si NO es necesario utilizar codigo ?...
ya intentaron a 'exagerar' el numero de 'caracteres/numeros/...' para el 'dividendo/divisor' ? [p.e.]

-> formato numerico personalizado [fracciones]: -> ????/?

-> numero: 1 1/4 expresion 'devuelta': -> 5/4
-> numero: 3 1/2 expresion 'devuelta': -> 7/2

2) si es necesario aplicarlo por codigo... [igual] :))

saludos,
hector.

KL escribio en el mensaje ...
no, mejor asi:

Sub PROCESO()
[C5] = [A1] / [A2]
[C5].NumberFormat = IIf([A1] Mod [A2], "?/?", "0")
End Sub

Si hay que hacerlo por codigo, yo lo haria asi:
Sub PROCESO()
[C5] = [A1] / [A2]
[C5].NumberFormat = IIf(([A1] Mod [A2]) = 0, "0", "?/?")
End Sub

Mirtha Velasquez escribio en el mensaje ..

Necesito que el resultado me salga 5/4 y no 1 1/4 que automaticamente me pone el Excel.
Otro ejemplo seria 7/2 y no 3 1/2.

Hola HM,

El problema esta en que Mirtha quiere que tambien ...

4 devuelva 4 (y no 4/1)


Saludos,
KL


"Héctor Miguel" wrote in message news:

hola, chicos !

1) si NO es necesario utilizar codigo ?...
ya intentaron a 'exagerar' el numero de 'caracteres/numeros/...' para el 'dividendo/divisor' ? [p.e.]

-> formato numerico personalizado [fracciones]: -> ????/?

-> numero: 1 1/4 expresion 'devuelta': -> 5/4
-> numero: 3 1/2 expresion 'devuelta': -> 7/2

2) si es necesario aplicarlo por codigo... [igual] :))

saludos,
hector.

KL escribio en el mensaje ...
no, mejor asi:

Sub PROCESO()
[C5] = [A1] / [A2]
[C5].NumberFormat = IIf([A1] Mod [A2], "?/?", "0")
End Sub

Si hay que hacerlo por codigo, yo lo haria asi:
Sub PROCESO()
[C5] = [A1] / [A2]
[C5].NumberFormat = IIf(([A1] Mod [A2]) = 0, "0", "?/?")
End Sub

Mirtha Velasquez escribio en el mensaje ..

Necesito que el resultado me salga 5/4 y no 1 1/4 que automaticamente me pone el Excel.
Otro ejemplo seria 7/2 y no 3 1/2.

5

Ese era mi problema desde un inicio


"KL" escribio en el mensaje
news:

Hola HM,

El problema esta en que Mirtha quiere que tambien ...

4 devuelva 4 (y no 4/1)


Saludos,
KL


"Héctor Miguel" wrote in message
news:

hola, chicos !

1) si NO es necesario utilizar codigo ?...
ya intentaron a 'exagerar' el numero de 'caracteres/numeros/...' para
el 'dividendo/divisor' ? [p.e.]

-> formato numerico personalizado [fracciones]: -> ????/?

-> numero: 1 1/4 expresion 'devuelta': -> 5/4
-> numero: 3 1/2 expresion 'devuelta': -> 7/2

2) si es necesario aplicarlo por codigo... [igual] :))

saludos,
hector.

KL escribio en el mensaje ...
no, mejor asi:

Sub PROCESO()
[C5] = [A1] / [A2]
[C5].NumberFormat = IIf([A1] Mod [A2], "?/?", "0")
End Sub

Si hay que hacerlo por codigo, yo lo haria asi:
Sub PROCESO()
[C5] = [A1] / [A2]
[C5].NumberFormat = IIf(([A1] Mod [A2]) = 0, "0", "?/?")
End Sub

Mirtha Velasquez escribio en el mensaje ..

Necesito que el resultado me salga 5/4 y no 1 1/4 que
automaticamente me pone el Excel.
Otro ejemplo seria 7/2 y no 3 1/2.

5