Me parece que el código que tenés para el botón Insertar no es el adecuado, le agregué allí las instrucciones de pase de los textbox. Si necesitas que haga algo más dejámelo aclarado en otra consulta por favor.
En la imagen podés observar el orden de los controles, creo que así quedará más claro para el usuario. Las propiedades TabIndex de los controles debieran estar en ese orden también para pasar ordenadamente con Enter.
El código del botón Insertar hipervínculo:
Private Sub CommandButton2_Click()
'x Elsamatilde
'abre el cuadro de diálogo
archi = Application.GetOpenFilename
'si se seleccionó algun archivo...
'guarda el nombre del archivo en el textbox
If archi <> "" Then TextBox3 = archi
End Sub
El código del botón Insertar:
Private Sub CommandButton1_Click()
'x Elsamatilde
'guarda registro en la hoja
'busca la primer fila libre
filx = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & filx) = TextBox1
Range("B" & filx) = TextBox2
Range("C" & filx) = TextBox3
'se establece como hiperv
Range("C" & filx).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ActiveCell.Value, _
TextToDisplay:=ActiveCell.Value
'opcional: mostrar mensaje
MsgBox "Registro guardado!"
'opcional: borrar los controles para un nuevo ingreso
End Sub
Tenías un mensaje acerca de datos duplicados .... pero no estaban las instrucciones de búsqueda ???? El mensaje aparecía siempre ;(
Sdos!
Si