![]() |
#6
|
|||
|
|||
![]()
Perhaps you can glean something from this
Code:
Sub First_VisRowOfTable() Dim Tbl As Excel.ListObject Dim cel As Range Set Tbl = ActiveSheet.ListObjects(1) 'first table on sheet With Tbl For Each cel In Tbl.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeVisible) MsgBox cel.Row Exit For Next End With End Sub |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
jc491 | Word VBA | 8 | 09-30-2015 06:10 AM |
find 2 values i a table to find the right prise | Vibov | Excel | 1 | 01-11-2015 07:25 AM |
![]() |
epid011 | Word VBA | 16 | 12-30-2013 11:29 AM |
![]() |
Angel9520 | Word Tables | 1 | 05-02-2012 01:00 AM |
![]() |
christie | Word | 1 | 08-17-2011 09:10 AM |