Mostrar numero decimales

[Milton Cordova]

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

[Dr Hyde]

checa el archivo tambien contiene una imagen para que ubiques la macro

MOSTRAR NUMERO DECIMALES.xls

[Milton Cordova]

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

[Dr Hyde]

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.

[Milton Cordova]

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

[Milton Cordova]

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

[Milton Cordova]

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

[Héctor Miguel]

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.

[Milton Cordova]

Saludos ha sido muy valioso el aporte la ayuda, siempre se aprende mas cada dia, gracias a ustedes y a ti Hector Miguel en este caso

Doy por solucionado el tema

Gracias