Hola:

Tengo un Combobox que despliega una lista de porcentajes que coge de otra página del propio archivo. Las celdas de las que lee los datos, tienen formato porcentaje y los valores de muestran así: 5%, 10%, 15%...

Al desplegar el combobox, los datos del deplegable tambien aparecen en el formato pocentaje tipo 5%, 10%, 15%... pero en la celda en la que escribe ese combobox, los datos se muestras en el formato 0.05, 0.10, 0.15...y me gustaría que aparecieran en el formato original tipo 5%, 10%...

He intnetado cambiar el fomrato con el siguiente código pero no me funciona:

Private Sub ComboBox5_Change()

Tol_AV_in = ActiveSheet.Range("I16").Value
Tol_AV_fin = Tol_AV_in
Worksheets("Placa AV").Range("I16") = Tol_AV_fin
Worksheets("Placa AV").Range("I16").NumberFormat = "#.0%"

End Sub

Muchas gracias de antemano. Un saludo

Hola Alex_edm, prueba el adjunto y comenta si es lo que necesitas.

Prueba de porcentaje.xlsm

Hola a Ambos,

Otras 2 alternativas... Todo depende en como quiera jugar con sus datos...

Saludos.

Prueba de porcentaje_LBV.xlsm

Hace 2 horas, JSDJSD dijo:

Hola Alex_edm, prueba el adjunto y comenta si es lo que necesitas.

Hola JSD JSD, 

No se si yo entendí mal, pero tu muestra de 15% me muestra 1500%...

Saludos.

Alex

Hace 12 horas, Alex_edm dijo:

pero en la celda en la que escribe ese combobox, los datos se muestras en el formato 0.05, 0.10, 0.15...y me gustaría que aparecieran en el formato original tipo 5%, 10%...

Los porcentajes en realidad son decimales desde 0.1 hasta el 1, lo que debes hacer es poner ese rango con formato personalizado de porcentaje, asi: 0% 

Worksheets("Placa AV").Range("I:I").NumberFormat = "0%"

 

Saludos!

En 5/11/2019 at 22:15 , Gerson Pineda dijo:

Alex

Los porcentajes en realidad son decimales desde 0.1 hasta el 1, lo que debes hacer es poner ese rango con formato personalizado de porcentaje, asi: 0% 

Worksheets("Placa AV").Range("I:I").NumberFormat = "0%"

 

Saludos!

He probado esto pero si selecciono el rango I:I, me lo hace en toda la columna menos en la celda que necesito y si pongo rango I16 no funciona.

Muchas gracias. Saludos.

Private Sub ComboBox5_Change()
Range("I16") = CDbl(ComboBox5)
End Sub

Da formato porcentaje a la celda I16.

Hace 49 minutos , Antoni dijo:

Private Sub ComboBox5_Change()
Range("I16") = CDbl(ComboBox5)
End Sub

Da formato porcentaje a la celda I16.

Muchas gracias Antoni, esa ha sido la solución, llevaba tiempo intentandolo....

Un saludo y gracias a todos.