excel VBA for resizing ranges refered with listobject ranges - excel

Question

I what to set a range into a variable to use in:
Private Sub Worksheet_Change(ByVal Target As Range)
I want to refer to a cell which is 3 cells of top of a particular column of a list object.
this way:
set rOverlap = intersect(SRTbl.ListColumns(firstConceptColumn).DataBodyRange.iTem(1).offset(-3, 0).resize(0,3),target)
where firstconceptcolumn=9 (or whatever)
This would not work.
I do it in this way because If I ever decide to add columns at the beginning of the table the code will not need to be chage.
The first row of the listobject is not row1 but row5.
The first 5 rows trigger subroutines when the values change (upon entering data an pressing return)
I also tried it using headerRowRange with:
Set rOverlap = Intersect(SRTbl.HeaderRowRange(firstConceptColumn).offsset(-3, 0).Resize(, 4), Target)
which would not work neither.
Actually as a more fundamental question I am thinking what kind of data is:
SRTbl.HeaderRowRange(firstConceptColumn)
Is that a range?
why cant you use the following:?
SRTbl.HeaderRowRange("name")
Thanks a lot
PS: Everything what I say on stackoverflow is to resize the listobject itself.
PS2: I dont understand neither if there is a difference between these two guys:
.Resize Range("A1:B10")
and
.Resize(1,10)
Jose Ferro

Answer 1

Here is one way:
Option Explicit
Public Sub test()
Dim SRTbl As ListObject, header As Range, ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2")
Set SRTbl = ws.ListObjects(1)
Set header = SRTbl.ListColumns("Name").Range(1, 1)
Debug.Print header.Offset(-3).Resize(1, 2).Address
End Sub
Here is another:
Option Explicit
Public Sub test()
Dim SRTbl As ListObject, header As Range, ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2")
Set SRTbl = ws.ListObjects(1)
Set header = SRTbl.HeaderRowRange.Find("Name")
If Not header Is Nothing Then
If header.Row > 3 Then
header.Offset(-3) = "Tada"
End If
End If
End Sub
To refer to whole header width with offset of -3 rows:
SRTbl.HeaderRowRange.Offset(-3)
To simply resize found cell:
header.Offset(-3).Resize(1,2)
To resize to end of table from found cell
Debug.Print header.Resize(1, ws.Range(Split(SRTbl.HeaderRowRange.Address, ":")(1)).Column - header.Column + 1).Address