Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Sign in to follow this  
Milton Cordova

Mostrar numero decimales

Recommended Posts

saludos deseo ayuda para alguna macro que me muestre en las columnas G y H de una planilla de calculo, el numero de decimales conforme al numero ingresado en la celda B3.

si en la celda B3 esta 2 el numero de formato de numeros de las columnas debe estar con 2 decimales, si el valor de B3 es 5 debe mostrase 5 decimales, etc.

he subido un ejemplo "mostrar Numero de decimales"

Gracias

MOSTRAR NUMERO DECIMALES.xls

Share this post


Link to post
Share on other sites

Saludos tengo una consulta mas, me olvide de indicar que los decimales deben afectar a todos los numeros existentes en las columnas G,H. por cuanto tengo un numero grande de plantillas de calculo que llega hasta la fila 35505

Otra situacion la Hoja 1 se ha bloqueado la opcion de copiar y pegar es por ello que envio el ejemplo en la Hoja 2

Gracias

MOSTRAR NUMERO DECIMALES.xls

Share this post


Link to post
Share on other sites

la macro esta diseñada para crecer lo mismo funciona con 2 renglones que con 10000 siempre y cuando los numeros esten dentro del rango g:h, respecto a todos los numeros tambien incluyen a los que tienes titulados reten 1, reten 2 y reten 3?, esos no los considere.

Share this post


Link to post
Share on other sites

Saludos he revissdo en la Hoja 2 del ejemplo y no funciona, favor verificar, me parece que tiene que ver con al CurrentRegion que solamente reconoce una rango, cuando hay celdas en blanco no salta.

mil disculpas por esta pregunta nuevamente, favor verificar la Hoja 2 del archivo que lo subo actualizado.

Gracias

Share this post


Link to post
Share on other sites

8"]saludos deseo ayuda para alguna macro que me muestre en las columnas G y H de una planilla de calculo, el numero de decimales conforme al numero ingresado en la celda B3.

si en la celda B3 esta 2 el numero de formato de numeros de las columnas debe estar con 2 decimales, si el valor de B3 es 5 debe mostrase 5 decimales, etc.

he subido un ejemplo "mostrar Numero de decimales"

Otra pregunata en la Hoja 1 se ha desactivado la funcion copiar pegar

Gracias

Share this post


Link to post
Share on other sites

Saludos he revissdo en la Hoja 2 del ejemplo y no funciona, favor verificar, me parece que tiene que ver con al CurrentRegion que solamente reconoce una rango, cuando hay celdas en blanco no salta.

investigando hhe llegado a probar con esto pero no funaciona

Set area = Range("d5").UsedRange.Address(RowAbsolute:=True, ColumnAbsolute:=True, ReferenceStyle:=xlD5)

mil disculpas por esta pregunta nuevamente, favor verificar la Hoja 2 del archivo que lo subo actualizado.

Otra pregunta porque en la Hoja 1 no me permite copiar y pegar

Gracias

Share this post


Link to post
Share on other sites

hola, a todos !

1) en la Hoja1 ya no se puede copiar/cortar-pegar porque se vacía la pila de niveles para deshacer/undo/ctrl+Z cuando se ejecuta cualquier instrucción que modifica propiedades de objetos (siempre ha sido así)

2) el ".CurrentRegion" (creo que) se queda corto cuando hay otras areas/celdas/rangos/... donde se requiere que ese tipo de formatos sea también actualizado (?)

3) como alternativa (sugiero) crear/definir un nuevo estilo de celda llamado (p.ej.) xDecimales que será aplicado a toda celda, rango, cuadrante, sección (...) de cualquier hoja en ese libro donde re necesite actualizar el # de decimales en el formato

4) para actualizar, copiar/pegar (o escribir) el siguiente procedimiento en el modulo de código de "esa" hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$3" Then Exit Sub Else Dim nDec As Integer
nDec = IIf(IsEmpty(Range("b3")), 0, [max(0,min(15,b3))])
ActiveWorkbook.Styles("xDecimales").NumberFormat = "0." & String(nDec, "0")
End Sub[/CODE]

OJO: se sigue perdiendo el deshacer/undo/ctrl+Z pero solamente cuando se modifique el contenido de la celda [b3]

saludos,

hector.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png