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 Mayyy
 | Femeie
23 ani
Brasov
cauta Barbat
23 - 60 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 795
|
|
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 |
|