Excel Forum

Code: Select all

Sub Macro01()
    Dim i As Integer, j As Integer, t As String
    With Sheets("List")
        j = .UsedRange.Columns.Count
        For i = 1 To j Step 34
            t = t & .Cells(8, i).CurrentRegion.Resize(.Cells(8, i) _
                .CurrentRegion.Rows.Count + 7).Offset(-7, 0).Address & ","
        Next i
        Application.Goto .Range(Mid(t, 1, Len(t) - 1))
     End With
End Sub

Code: Select all

Sub SubSelectTable()
    Dim i As Integer, j As Integer
    With Sheets("List")
        j = .UsedRange.Columns.Count
        For i = 1 To j Step 34
            .PageSetup.PrintArea = .Cells(8, i) _
                .CurrentRegion.Resize(.Cells(8, i) _
                .CurrentRegion.Rows.Count + 7) _
                .Offset(-7, 0).Address
            .PageSetup.PrintTitleRows = "$1:$9"
            .PageSetup.FitToPagesWide = 1
            .PrintOut
        Next i
     End With
End Sub

Code: Select all

Sub Macro01()
    Dim i As Integer, j As Integer, t As String
    With Sheets("List")
        j = .UsedRange.Columns.Count
        For i = 1 To j Step 34
            t = t & .Cells(8, i).CurrentRegion.Resize(.Cells(8, i) _
                .CurrentRegion.Rows.Count + 7).Offset(-7, 0).Address & ","
        Next i
        Application.Goto .Range(Mid(t, 1, Len(t) - 1))
     End With
End Sub

Code: Select all

Sub SubSelectTable()
    Dim i As Integer, j As Integer
    With Sheets("List")
        j = .UsedRange.Columns.Count
        For i = 1 To j Step 34
            .PageSetup.PrintArea = .Cells(8, i) _
                .CurrentRegion.Resize(.Cells(8, i) _
                .CurrentRegion.Rows.Count + 7) _
                .Offset(-7, 0).Address
            .PageSetup.PrintTitleRows = "$1:$9"
            .PageSetup.FitToPagesWide = 1
            .PrintOut
        Next i
     End With
End Sub

Code: Select all

Sub SubSelectTable()
    Dim i As Integer, j As Integer, r As Range
    Set r = Sheets("List").Range("A1")
    With Sheets("List")
        j = .UsedRange.Columns.Count
        For i = 1 To j Step 34
            Set r = Union(r, Range(.Cells(8, i).CurrentRegion.Resize(.Cells(8, i) _
                .CurrentRegion.Rows.Count + 7).Offset(-7, 0).Address))
        Next i
        r.Select
     End With
End Sub

Code: Select all

Sub SubSelectTable()
    Dim i As Integer, j As Integer, r As Range
    Set r = Sheets("List").Range("A1")
    With Sheets("List")
        j = .UsedRange.Columns.Count
        For i = 1 To j Step 34
            Set r = Union(r, .Range(Cells(1, i).CurrentRegion.Address))
        Next i
        r.Select
     End With
End Sub

Code: Select all

Sub SubSelectTable()
    Dim i As Integer, j As Integer, r As Range
    Set r = Sheets("List").Range("A1")
    With Sheets("List")
        j = .UsedRange.Columns.Count
        For i = 1 To j Step 34
            Set r = Union(r, .Range(Cells(1, i).CurrentRegion.Address))
        Next i
        r.Select
     End With
End Sub

Code: Select all

Sub SubSelectTable()
    Dim i As Integer, j As Integer, r As Range
    Set r = Sheets("List").Range("A1")
    With Sheets("List")
        j = .UsedRange.Columns.Count
        For i = 1 To j Step 34
            Set r = Union(r, Range(.Cells(1, i).CurrentRegion.Resize(.Cells(1, i) _
                .CurrentRegion.Rows.Count + 10).Address))
        Next i
        r.Select
     End With
End Sub