Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Como usar como condicion el tipo de letra de una celda.

28/02/2006 - 23:23 por Luis Cases \(defkon\) | Informe spam
Ayuda Hacer una pregunta
Tengo una tabla y quiero marcar unas filas para después mediante botones
ocultarlas o verlas.

Había pensado en poner una celda de la fila en Itálica y luego mediante un
bucle for next comparar esas columna, cuando la celda esté en Itálica,
entonces ocultar la fila.

ultfila = Range("C65536").End(xlUp).Row
For fila = ultfila To 9 Step -1
If [.] Then ActiveSheet.Rows(fila).Hide
Next fila

Pero no se como saber si ActiveSheet.Cells(fila,3) es .Font.Italica = True

Gracias de antemano.

Luis.
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
01/03/2006 - 06:00 | Informe spam
hola, Luis !

Tengo una tabla y quiero marcar unas filas para despues mediante botones ocultarlas o verlas...
ultfila = Range("C65536").End(xlUp).Row
For fila = ultfila To 9 Step -1
If [.] Then ActiveSheet.Rows(fila).Hide
Next fila
Pero no se como saber si ActiveSheet.Cells(fila,3) es .Font.Italica = True [...]



prueba con algo +/- como lo siguiente:

Sub Ocultar_Italicas()
Dim Fila As Long
Application.ScreenUpdating = False
For Fila = 1 To [c65536].End(xlUp).Row
Rows(Fila).EntireRow.Hidden = Range("c" & Fila).Font.Italic
Next
End Sub

Sub Mostrar_todas()
Cells.EntireRow.Hidden = False
End Sub

saludos,
hector.

p.d. toma nota de que perderas el 'beneficio' del des-hacer... undo... ctrl+Z :-(

Preguntas similares

 

Busqueda sugerida :