Hiding rows with italic words

[Tim Flood]

Hi

Firstly apologies as i am very new to all this, have no experience with computer programming, and am stumbling around vba somewhat! I have spent days googling but have got nowhere with this.

I have a sheet which i use to record species of freshwater invertebrates. These are recorded to either species level, or a higher level. The species names are in italics, but the other names are not. The data is then uploaded to a database.

I wanted to create a macro so that i can press a button to hide, and another button to reveal, the species names, leaving the other names intact.The list runs to hundreds of species but far fewer at the higher level, and navigation for inputting is much easier without seeing the species names. The species names are all in column A. An example is below with them revealed:

Ephemerellidae
Serratella ignita
Potamanthidae
Potamanthus luteus
Taeniopterygidae
Brachyptera risi
Taeniopteryx nebulosa

and with the hide macro run:

Ephemerellidae
Potamanthidae
Taeniopterygidae

I recorded a macro to find out how to select cells with italic font:

Columns("A:A").Select
    With Application.FindFormat.Font
        .FontStyle = "Italic"
        .Subscript = False
        
    End With

I thought putting 'Selection.EntireRow.Hide' might then hide the rows but it doesn't work.

Can anyone see what i am doing wrong? I think it is probably quite a simple thing, but as i said, i don't have a clue what i am doing!

Cheers

Tim

[Domski]

You could try:

Sub Hide()

Dim lngLastRow As Long, rngFontRange As Range

lngLastRow = Cells(Rows.Count, 1).End(xlUp).Row

For Each rngFontRange In Range("A1:A" & lngLastRow)

If rngFontRange.Font.Italic Then

rngFontRange.EntireRow.Hidden = True

End If

Next rngFontRange

End Sub

Sub Unhide()

Rows.Hidden = False

End Sub

It might be possible with findformat, would need to test it out in 2007 though.

Dom

[6StringJazzer]

I have attached a solution that takes a slightly different approach and probably will be more flexible for you. Let me know what you think.

This approach has two parts. First, it adds a column that says whether it's a species, based on font. Then you can use AutoFilter to select the ones that are species, based on that column.

Second, the value in the new column is determined by a simple user-defined function, which you can find in Module1.