Otra de formato condicional

01/07/2003 - 09:23 por Antonio Martínez | Informe spam
Tengo una celda que según interesa se puede expresar en Kcal/h o Kw. el caso
es que me gustaría que el formato numérico de las celdas de potencia tupiera
dos decimales si en el encabezado de la columna pone Kw y ninguno si pongo
Kcal/h. no veo la manera de hacerlo con formato condicional.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
01/07/2003 - 10:24 | Informe spam
Hola, Antonio !

... celda que ... se puede expresar en Kcal/h o Kw ... me gustaría ... formato numérico ... dos decimales si ... Kw y ninguno si


... Kcal/h.
no veo la manera de hacerlo con formato condicional.



==> El formato condicional NO "soporta" cambios en los formatos numericos ("solo" tipo de letra, colores, bordes, tramas) :((
Podrias usar el evento Change p.e. (suponiendo que el titulo "va" en A1 y la potencia "va" en A2)
en el modulo de codigo de "la hoja" ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("a1") Then Exit Sub
With Range("a2")
Select Case StrConv(Target, vbLowerCase)
Case "kw": .NumberFormat = "#,##0.00"
Case "kcal/h": .NumberFormat = "#,##0"
End Select
End With
End Sub

Saludos,
Héctor.
Respuesta Responder a este mensaje
#2 Héctor Miguel
02/07/2003 - 05:09 | Informe spam
¿Que tal, Antonio?

... que el formato ... a un rango que empieza p.e. en c11 y llega hasta la ... anterior a la primera ... vacía [...]



==> Si me aceptas una sugerencia (y para que NO "tengas que preocupate por" si el formato se "extiende" a otras celdas)
Crea un formato personalizado (p.e. "Potencia") al que le apliques "unicamente" un formato numerico ("general") y ...
en el codigo modificas solamente la linea que se lee =>With Range("a2")<= a: =>With ThisWorkbook.Styles("Potencia")< solo "asegurate" de que las celdas (en cualquier parte de la hoja y/o libro) "que necesiten" ese estilo, "lo tengan". :))

el codigo en el modulo de "la hoja" quedaria +/- asi: ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("a1") Then Exit Sub
With ThisWorkbook.Styles("Potencia")
Select Case StrConv(Target, vbLowerCase)
Case "kw": .NumberFormat = "#,##0.00"
Case "kcal/h": .NumberFormat = "#,##0"
End Select
End With
End Sub

Saludos,
Héctor.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida