Planilha Excel VBA copiar planilha e criar hiperlink

Planilha Excel VBA cursor 12 célula ativa intervalo colunas

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.
 PROMOÇÃO ESPECIAL - EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

PROMOÇÃO ESPECIAL – EXCEL VBA      Adquirir Todo Material Didático Escola SaberExcel VBA Estudos

 Baixe o exemplo de planilha contendo os macros acima:

icon 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 *