Crear hipervinculo a nueva hoja creada

[ricardo41]

Buenos dias, tengo el siguiente problema, he creado un libro que me permite crear hojas a medida que ingreso nuevos equipos en la hoja inicio, los registra en una tabla (eso ya funciona), y la nueva hoja es la copia de una una hoja "Base", lo que no he podido hacer, es que el código del equipo ("f7" en adelante) quede como hipervinculo a su hoja respectiva que lleva el mismo nombre, necesito de verdad ayuda... adjunto archivo, gracias

Planilla_Base.rar

[joshua]

Saludos.

Con la siguiente modificación lo consigues.

Sub Macro1()

'

' Macro1 Macro

' Agregar Equipo Proveedor

'


'

'Dim shName As String


If ActiveWorkbook Is Nothing Then Exit Sub


shName = Application.InputBox(prompt:="Ingrese Codigo Sauce del Equipo", Title:="Nombre", _

Type:=2)


Select Case shName

Case Is = "Falso"

MsgBox "Hoja de Equipo No se ha creado"

Exit Sub

Case Is = ""

Sheets.Add After:=Sheets(Sheets.Count)

Case Else

Sheets("Base").Select

Sheets("Base").Copy After:=Sheets(Sheets.Count)

ActiveSheet.Name = shName

End Select


' Copiar y Trasponer

'


'

    Sheets("Inicio").Select

    Range("c12:c20").Select

    Selection.Copy

    ActiveWindow.SmallScroll Down:=93

    Range("F106").Select

    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

        xlNone, SkipBlanks:=False, Transpose:=True

    Range("F6:N106").Select


    Range("N106").Activate

    Application.CutCopyMode = False

[COLOR="#0000FF"]ActiveSheet.Hyperlinks.Add Anchor:=Range("F106"), Address:="", SubAddress:= _

"'" & Range("F106") & "'" & "!A1", TextToDisplay:="'" & Range("F106") & "'"[/COLOR]


    ActiveWorkbook.Worksheets("Inicio").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Inicio").Sort.SortFields.Add Key:=Range("F7:F106") _

        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Inicio").Sort

        .SetRange Range("F6:N106")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    ActiveWindow.SmallScroll Down:=-93

    Range("c12:c20").Select

    Selection.ClearContents

    Range("c13").Select

End Sub[/CODE]

Atte.

joshua