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