Este fórum está sendo desativado

[FilipeTeixeira]

Boa tarde pessoal.

Aqui estou incomodando novamente.

Ontem o alexandrevba me mostrou como criar uma aba automaticamente. Perfeito. inclui mais algumas coisas e ficou assim.

Código: Selecionar todos

Sub Criar_Aba()

    Dim Response As VbMsgBoxResult
    Dim sht As Worksheet
    Response = MsgBox("Criar novo pedido?" _
        , vbQuestion + vbYesNoCancel)
    If Response = vbYes Then
        With Sheets("PedidoSemNome")
            '.Visible = True
            .Copy After:=Sheets(Sheets.Count)
            '.Visible = False
        End With
        ActiveSheet.Name = "Pedido" & "_" & Worksheets("PedidoSemNome").Range("C13").Value & "_" & Format(Now, "dd-mmm-yyyy")
    ElseIf Response = vbNo Then
        Worksheets.Add
    Else
        Exit Sub
    End If
       MsgBox "Nova aba adicionada", vbInformation, "Adicionar nova aba"

'Abaixo insere os dados do pedido em um banco de dados

    Worksheets("BancoDeDados").Rows(4).Insert

        Worksheets("BancoDeDados").Range("B4") = Worksheets("PedidoSemNome").Range("C11").Value
        Worksheets("BancoDeDados").Range("C4") = Worksheets("PedidoSemNome").Range("C14").Value
        Worksheets("BancoDeDados").Range("D4") = Worksheets("PedidoSemNome").Range("C13").Value
        Worksheets("BancoDeDados").Range("E4") = Worksheets("PedidoSemNome").Range("C12").Value
        Worksheets("BancoDeDados").Range("F4") = Worksheets("PedidoSemNome").Range("E11").Value
        Worksheets("BancoDeDados").Range("G4") = "=E4+F4"


End Sub

O algorítimo já inclui os dados do pedido em uma aba chamada BancoDeDados. (Devo ter feito de uma forma bem bizarra, mas não sei VBA. Ignorem. kkkkk)

A dúvida é: Eu consigo já criar na célula "j4" da plan "BancoDeDados" um hiperlink para a aba que acabou de ser criada?

Abraços.

[FilipeTeixeira]

Desculpa pessoal, esqueci o anexo.

Segue.

[alexandrevba]

Bom dia!!

Eu vou mandar um código para que vc teste de forma isolada.
Abra um arquivo em branco , no meu caso a guia principal eu usei o nome "AleVBA".
Crie uma guia e rode a macro, na célula j4 da guia principal, será criado um texto Link como hiperlink, para rque vc possa ir até a ultima guia criada, depois disso faça sua adaptação.

Código: Selecionar todos

Sub HiperLink()
    Dim Name As String
    Sheets(Sheets.Count).Select
    Name = ActiveSheet.Name
    Sheets("AleVBA").Select
    Range("J4").Select
    ActiveCell.FormulaR1C1 = ""
    Range("J4").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Name & "!A1", TextToDisplay:="Link"
End Sub

Att

[FilipeTeixeira]

Obrigado novamente alexandrevba.

Att: Filipe.