View Single Post
 
Old 05-27-2017, 12:26 PM
Kopko Kopko is offline Windows 10 Office 2013
Novice
 
Join Date: May 2017
Posts: 12
Kopko is on a distinguished road
Default

Quote:
Originally Posted by Guessed View Post
Try this version. If it works then we can look at speeding it up
Unfortunately, this version is not working.
Answering your question: yes, the documents are always consistent with this layout.

I noticed in this last code that the vector sRef is doing the job that is saving all the strings with the hyperlink.

But this line is never being executed:
Quote:
For Each aRow In aTbl.Rows
sTag = Split(aRow.Cells(1).Range.Text, vbCr)(0)
'Debug.Print sTag
aRow.Range.Font.Hidden = Not InStr(sRefs, sTag) > 0
Next aRow
I tried to move it to the final of this code but I'm not having success. Always get an error.

Again, thanks a lot for your help man! Someday I will be like you and help people with codes like you are doing!
Reply With Quote