Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff. 		Lista Forumurilor Pe Tematici
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login

POZE MRRRR'S FORUM (VIEW ONLY)

Nu sunteti logat. 		Nou pe simpatie:
Profil Bianca xxx
Femeie
25 ani
Bucuresti
cauta Barbat
25 - 43 ani
Mrrrr's Forum (VIEW ONLY) / Tutoriale si Ghiduri Utile // Tutorials and useful guides / [EXCEL] Add Hyperlink in Active Cell to Active Cell [VBA] Moderat de TRaP, TonyTzu
Autor
Mesaj Pagini: 1
TRaP
Moderator

Inregistrat: acum 6 ani
Postari: 748
The code below adds a hyperlink in the active cell to the active cell.

I need it with the purpose to hide and show rows upon hyperlink click and I need the cell to remain selected when hyperlink is pressed. See here how that can be done:


Sub HLNK_ActiveCell()

Dim newRange As Range
Set newRange = Range(ActiveCell, ActiveCell.Offset(numrows, numCols))
     With ActiveSheet
        .Hyperlinks.Add Anchor:=newRange, _
        Address:=.Parent.FullName & "#'" & .Name & "'!" & ActiveCell.Address, _
        TextToDisplay:=ActiveCell.Text
    End With
End Sub


Source:

Modificat de TRaP (acum 5 ani)
pus acum 5 ani
   
Pagini: 1  

Mergi la