Macro to unhide row with hyperlink

**pezalmendra** · 07-22-2012, 02:47 PM

Hello!

Im trying to use an hyperlink to run a macro that after that unhides a row from a table.
The idea is that each time I click the hyperlink, the macro runs, unhides the next row and copy again in the cell bellow they hyperlink to run again that macro.

I have tried it but can only do it for one chance cause when it copies down the hyperlink it doesnt work no more... I have attached the file so that you can better have a look to what Im looking for.

Thanks for the help!

Regards,New Line.zip

**mrice** · 07-22-2012, 04:40 PM

Try adding an extra line to reset the target of the hyperlink.

Sub AddLine()
ActiveCell.Select
ActiveCell.Copy
ActiveCell.Offset(1, 0).Select
ActiveCell.Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Application.CutCopyMode = False
Selection.EntireRow.Hidden = False

ActiveCell.Offset(-1, 0).Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Select
Selection.Hyperlinks(1).SubAddress = "Sheet1!V" & Selection.Row 'New line added
End Sub

**pezalmendra** · 07-22-2012, 05:30 PM

Thanks!! It works good, but just one only thing more I forgot to say:

I want this code to work only in rows 8 till 17.
Another hyperlink with the same macro will run from rows 18 till 27.
Etc...

Thanks again, regards

pezalmendra

**mrice** · 07-22-2012, 05:42 PM

Try

Sub AddLine()
If ActiveCell.Row >= 17 then Exit Sub 
ActiveCell.Select
ActiveCell.Copy
ActiveCell.Offset(1, 0).Select
ActiveCell.Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Application.CutCopyMode = False
Selection.EntireRow.Hidden = False

ActiveCell.Offset(-1, 0).Select
Selection.ClearContents
ActiveCell.Offset(1, 0).Select
Selection.Hyperlinks(1).SubAddress = "Sheet1!V" & Selection.Row 'New line added
End Sub

**pezalmendra** · 07-22-2012, 06:36 PM

Brilliant!

Thanks

**Cutter** · 07-22-2012, 07:02 PM

Hello pezalmendra, and welcome to the forum.

If you are satisfied with the solution(s) provided, please remember to mark your thread as Solved.

New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save