Private Sub CommandButton1_Click()
Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
NombreHoja = Me.ComboBox1.Value
Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("A7").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 1 + 6
With ThisWorkbook.Sheets(NombreHoja)
.Cells(NuevaFila, 1).Value = Me.TextBox1.Value
.Cells(NuevaFila, 2).Value = Me.TextBox2.Value
.Cells(NuevaFila, 3).Value = Me.ComboBox1.Value
.Cells(NuevaFila, 4).Value = Me.TextBox3.Value
.Cells(NuevaFila, 4).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ActiveCell.Value, _
TextToDisplay:=ActiveCell.Value
With Me
.ComboBox1 = ""
.TextBox1 = ""
.TextBox2 = ""
.TextBox3 = ""
End With
MsgBox "Datos Registrados!", vbInformation, ""
Unload Me
UserForm1.Show
End With
End Sub