- Mensajes: 6964
- Gracias recibidas: 0
REGLAMENTO DE USO (31 Mar 2011)
Recordatorio a todos los usuarios de los foros:
5. Está prohibido transmitir a través de estos foros cualquier contenido (información, datos, gráficos, texto, archivos, ligas, software u otro material) que viole cualquier derecho de propiedad industrial o intelectual. Se requiere mencionar al autor y el medio de publicación cuando se haga una referencia editorial.
¡HOLA A TODOS! ME PRESENTO CON UNA DUDA
- sosgtorreon
- Fuera de línea
- Administrator
-
- Al opinar no soy objetivo, xq soy sujeto no objeto
Hay una persona que tiene la relacion de rfc y montos en un archivo que hace para el pago provisional... el detalle es que en ese archivo tiene las cantidades con centavos... ¿como puede hacerle para cargarlas al archivo de CHELAS en pesos?...
Es decir, evitarse el teclear... digo, copiar el listado es mas simple que tener que volver a teclear...
Tengo entendido que se puede usar la funcion \"redondear\"... pero ni idea de como... si tiene que insertar dicha funcion en cada celda de su archivo o lo puede hacer para todo el rango...
Saludos.
Por favor, Conectar para unirse a la conversación.
- Daniel_Gtz
- Fuera de línea
- Moderator
-
- No es lo mismo dame, que ayudame.
- Mensajes: 3500
- Gracias recibidas: 0
sosgtorreon escribio:
Tengo entendido que se puede usar la funcion \"redondear\"... pero ni idea de como... si tiene que insertar dicha funcion en cada celda de su archivo o lo puede hacer para todo el rango...
Saludos.
puede usa la funcion Redondear, en la siguiente columna disponible a donde tenga los importes, por cada renglon.
=Redondear((CELDA DONDE ESTE EL DATO),0)
y al momento de pegar la informacion en la otra hoja de excel, tendria que hacer \"pegado especial\" de \"solo valores\".
No se si se pueda mediante una macro.. es ya son palabras mayores para mi.
Por favor, Conectar para unirse a la conversación.
- sosgtorreon
- Fuera de línea
- Administrator
-
- Al opinar no soy objetivo, xq soy sujeto no objeto
- Mensajes: 6964
- Gracias recibidas: 0
Saludos.
Por favor, Conectar para unirse a la conversación.
- ByPaco
- Fuera de línea
- Moderator
-
- Mensajes: 330
- Gracias recibidas: 0
copien el código:
[code:1]Sub QuitaDecimales()
For Each Cell In Selection
If Cell.HasFormula = False Then
Cell.Value = SinDec(Cell.Value)
End If
Next
End Sub
Function SinDec(Numero)
Application.Volatile
Decimals = 0
SinDec = Application.Round(Numero, Decimals)
End Function[/code:1]
Guardamos nuestra macro
Seleccionamos el rango a redondear
Corremos la macro 'QuitaDecimales'
« Antes de que los reinos cambien, los hombres deberán cambiar »
Por favor, Conectar para unirse a la conversación.
- sosgtorreon
- Fuera de línea
- Administrator
-
- Al opinar no soy objetivo, xq soy sujeto no objeto
- Mensajes: 6964
- Gracias recibidas: 0
Saludos.
Por favor, Conectar para unirse a la conversación.