how to get the data range of a table except the last 3 rows

luolovepi

Board Regular
Joined
Jun 9, 2011
Messages
116
Hello,
I want to get the data range of a table except the last three rows in the table. I know the code to choose the data range of the table is :
Code:
ActiveSheet.ListObjects("Table1").DataBodyRange

But how could I minus the last 3 rows?

Thank you!

Best regards,
lolo
 

Excel Facts

Last used cell?
Press Ctrl+End to move to what Excel thinks is the last used cell.
lolo try this

Code:
Sub test()
    Dim tbRng As Range
    Set tbRng = ActiveSheet.ListObjects("Table1").DataBodyRange
    Set tbRng = Range(tbRng(1, 1), tbRng(tbRng.Rows.count - 3, tbRng.Columns.count))
End Sub
 
Upvote 0
Code:
Sub Except3Rows()
    Dim rng As Range
    With ActiveSheet.ListObjects("Table1").DataBodyRange
        Set rng = .Resize(.Rows.Count - 3)
    End With
End Sub
 
Upvote 0
Thanks Sektor!
Did you see the reply in another thread of mine ?
Sorry to trouble you~~~
Code:
Sub Except3Rows()
    Dim rng As Range
    With ActiveSheet.ListObjects("Table1").DataBodyRange
        Set rng = .Resize(.Rows.Count - 3)
    End With
End Sub
 
Upvote 0
Hi Sektor,
Are there any problem with code below?
Code:
    With Pr.ListObjects("Table1")
        Set PrPartNumberRange = .ListColumns(4).DataBodyRange
        Set tableContentRange = PrPartNumberRange.Offset(1, 0). _
                                Resize(PrPartNumberRange.Rows.count - 4, _
                                PrPartNumberRange.Columns.count - 1). _
                                SpecialCells(xlCellTypeVisible)
    End With
The link of another question is as below:
http://www.mrexcel.com/forum/showthread.php?t=558699

Thanks a lot!!!
No. Gimme the link to this thread.
 
Upvote 0
You get one column and resize it by subtract 1. You get 0 and error.
 
Last edited:
Upvote 0
You get 0 by red color.
Code:
With Pr.ListObjects("Table1")
        Set PrPartNumberRange = .ListColumns(4).DataBodyRange
        Set tableContentRange = PrPartNumberRange.Offset(1, 0). _
                                Resize(PrPartNumberRange.Rows.count - 4, _
                                [B][COLOR="Red"]PrPartNumberRange.Columns.count - 1[/COLOR][/B]). _
                                SpecialCells(xlCellTypeVisible)
    End With
 
Upvote 0
No need to see this question. already solved!

Thank you !!!

Best regards,
lolo^-^
Hi Sektor,
Are there any problem with code below?
Code:
    With Pr.ListObjects("Table1")
        Set PrPartNumberRange = .ListColumns(4).DataBodyRange
        Set tableContentRange = PrPartNumberRange.Offset(1, 0). _
                                Resize(PrPartNumberRange.Rows.count - 4, _
                                PrPartNumberRange.Columns.count - 1). _
                                SpecialCells(xlCellTypeVisible)
    End With
The link of another question is as below:
http://www.mrexcel.com/forum/showthread.php?t=558699

Thanks a lot!!!
 
Upvote 0

Forum statistics

Threads
1,224,502
Messages
6,179,126
Members
452,890
Latest member
Nikhil Ramesh

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top