Como hacer una macro para un hipervínculo dinámico a otra hoja Excel y siga sus valores específicos.

Necesito hacer un hipervínculo dinámico a otra hoja Excel, estoy utilizando la macro que detallo a continuación, la hoja contiene un formulario que se describe como HojaTareas, quiero copiar un Hyperlinks que me lleve a la hoja siguiente que se describe como HojaDetalles, ahora bien, el problema se presenta cuando se inserta nuevos datos ya que a su vez, se incluye una nueva fila automática, quisiera que la función Hyperlinks siga su valor indicado cuando la nueva fila sea insertada, agradezco antemano la ayuda que me puedan proporcionar, GRACIAS POR LA ATENCIÓN.

Desarrollo. -

Que: “Tareas! C13” copy en “Detalles! E9”

A su vez, haga hipervínculo automático y que su referencia de datos se busque a medida que se vaya insertado filas nuevas en “Detalles! E9” (que vaya bajando conjuntamente con las nuevas filas)

Espero ser lo suficientemente explícito.

Acá mi macro, como la tengo desarrollada.

Private Sub CommandButton1_Click()
Worksheets("TAREAS").Range("C13").EntireRow.Insert
Range("C13") = Me.TextBox1.Value
Range("D13") = Me.TextBox2.Value
Range("E13") = Me.TextBox3.Value
Range("F13") = DTPicker1.Value
Range("G13") = DTPicker2.Value
Range("H13") = Me.TextBox6.Value
Range("I13") = Me.TextBox7.Value
Range("J13") = Me.TextBox8.Value
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox1.SetFocus
MsgBox "¿Continuar?.", vbInformation, "INV. & SUM TRAKTOR C.A / GRAHAM C.A"
Worksheets("DETALLES").Range("E9").EntireRow.Insert
Range("C13"). Copy
Worksheets("DETALLES"). Range("E9"). PasteSpecial
ActiveSheet.Hyperlinks.Add Anchor:=Range("C13"), Address:="", SubAddress:= _
"detalles!e9"
Range("F13"). Copy
Worksheets("DETALLES"). Range("I9"). PasteSpecial
Range("G13"). Copy
Worksheets("DETALLES"). Range("J9"). PasteSpecial
Application.CutCopyMode = False
Unload Me
End Sub

Añade tu respuesta

Haz clic para o