Planilha Excel VBA copiar planilha e criar hiperlink

19 de outubro de 2013 Prof. Expedito Marcondes - Escola SaberExcel VBA 0 Comentários

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.