Planilha Excel VBA copiar planilha e criar hiperlink

Planilha Excel VBA copiar planilha e criar hiperlink

Planilha Excel VBA copiar planilha e criar hiperlink

Planilha Excel VBA Copiar planilha e Criar Hiperlink 

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), copia (cria) uma determinada planilha exemplo,  e a renomeia com o nome de determinada célula na folha de planilha exemplo, isto é, uma planilha serve de exemplo para novas planilhas. Também inserimos um macro para criar uma folha de planilha a parte com o nome de “Navegar” com hiperlinks para as novas planilhas criadas. Fique com Deus, Expedito Marcondes.
‘//=============’

Sub sbx_inserir_plan_link_navegar()
Dim wbBok As Workbook
Dim wsPlanAtiva As Worksheet, wsPlan As Worksheet
Dim iCelula As Integer

Set wbBok = ActiveWorkbook

With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With

On Error Resume Next
‘ Remove qualquer lista existente.
With ActiveWorkbook
.Worksheets(“Navegar”).Delete
.Worksheets.Add Before:=Worksheets(1)
End With
On Error GoTo 0

Set wsPlanAtiva = wbBok.ActiveSheet

With wsPlanAtiva
.Name = “Navegar”
.Range(“A1”).Value = “Relação Planilhas”
End With

iCelula = 2
‘Loops através do trabalho de planilhas e adicione as folhas nomes
‘e cria um hiperlink para endereços planilhas.
For Each wsPlan In wbBok.Worksheets
If wsPlan.Name <> wsPlanAtiva.Name Then
wsPlanAtiva.Hyperlinks.Add wsPlanAtiva.Cells(iCelula, 1), “”, _
SubAddress:=”‘” & wsPlan.Name & “‘!A1”, _
TextToDisplay:=wsPlan.Name
iCelula = iCelula + 1
End If
Next wsPlan

Columns(“A:A”).EntireColumn.AutoFit

With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
End Sub

‘copia a planilha desejada como modelo e abribui o nome da célula(c3)
Sub sbx_copiar_planilha()
Plan1.Copy After:=Sheets(2)
ActiveSheet.Name = Plan1.Cells(3, “c”).Value
ActiveSheet.Tab.ColorIndex = Int(55 * Rnd) – 1 ‘cores aba de planilhas aleatórias
End Sub

 
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.

Compre pelo PagSeguro Compre pelo PayPal
excel-vba-treinamento-pagseguro
 Material Didático: Curso Excel VBA Expert 
excel vba treinamentos planilhas
 Baixe o exemplo de planilha contendo os macros acima:
iconPlanilha Excel VBA copiar planilha e criar hiperlink
<<Link Download: Verifique também a Caixa de Itens Excluídos >>

    iconPlanilha Excel VBA copiar planilha e criar hiperlink

    Deixe um comentário

    O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *