Excel format ?? 2

[gophertee]

I have several hundered rows and columns in Excel. What I want to do is every 4th line Bold and thereafter italics. Hence row 4=bold, row 8=italic, row 12=bold, row 16=italic, row 20=bold, etc.... Help?

 

[SkipVought]

Hi,
This reply assumes that you have contiguous data in you table.

Sub FormatRows()
    Dim lRow As Long
    For lRow = 4 To Cells(1, 1).CurrentRegion.Rows.Count Step 4
        If lRow / 8 = Int(lRow / 8) Then
            Rows(lRow).Font.Bold = False
            Rows(lRow).Font.Italic = True
        Else
            Rows(lRow).Font.Bold = True
            Rows(lRow).Font.Italic = False
        End If
    Next
End Sub

Skip,
metzgsk@voughtaircraft.com

 

[gophertee]

Skip, thanks much. It worked!!!!
Terry

 

[DaleWatson123321]

gophertee,

Having written this, I thought I should still post it - to provide another example of VBA code to achieve your objective.

Thanks also to Skip for his example - it's worth a STAR.

Here's my code...

Dim lastrow As Double

Sub Macro10()
ActiveCell.SpecialCells(xlLastCell).Select
lastrow = ActiveCell.Row
Range("A4&quot.Select
Do Until ActiveCell.Row >= lastrow
ActiveCell.EntireRow.Select
Selection.Font.Bold = True
ActiveCell.Offset(4, 0).Select
ActiveCell.EntireRow.Select
Selection.Font.Italic = True
ActiveCell.Offset(4, 0).Select
Loop
End Sub


Regards, ...Dale Watson dwatson@bsi.gov.mb.ca

 

[Dreamboat]

I'm stealing, I'm stealing. I

http://www.PiersonTech.com

dreamboat@nni.com
Brainbench MVP for Microsoft Word

 

[mbarron]

Here's a non-macro solution:
Make row 4 bold and row 8 italic
Highlight rows 1 thru 8
Click on the Format Painter button (it's the paint brush next to the paste button)
Highlight starting from row 9 to the end of you rows to "paint the format" into those rows.
Mike

 

[Hasit]

Mike, brilliantly simple. A star.