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
![](https://escola.saberexcel.com.br/wp-content/uploads/2013/08/linazul.jpg)
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.
![PROMOÇÃO ESPECIAL - EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos PROMOÇÃO ESPECIAL - EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos](https://escola.saberexcel.com.br/wp-content/uploads/2013/08/jm_produtos.jpg)
PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir Todo Material Didático Escola SaberExcel VBA Estudos
Baixe o exemplo de planilha contendo os macros acima:
Excel VBA copiar planilha e criar hiperlink