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

28/02/2006 - 23:23 por Luis Cases \(defkon\) | Informe spam

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.

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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 :-(

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida