Excel VBA Planilhas criar e navegar ListBox

PROMOÇÃO ESPECIAL – CURSO EXCEL VBA EXPERT – ESCOLA SABEREXCEL VBA – Adquirir o Material Didático Escola SaberExcel VBA Estudos

Excel VBA Planilhas criar e navegar ListBox

CRIAR FOLHAS DE PLANIHAS COM NOME DOS FUNCIONÁRIOS

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), Na primeira folha de planilhas é o índice de todos os nomes e, em seguida, o macro criará uma folha de planilha para cada por funcionário (200 folhas de planilhas) então, criamos também um macro para deletar as folhas de planilhas criadas preservar a desejadas (Principal). Uma ListBox carregará os dados dos funcionários da coluna (A) para navegação pelas folhas de planilhas com um link para o retorno para planilha principal.
Fiquem com Deus, Expedito Marcondes.
‘//=========’

Excel VBA Planilhas criar e navegar ListBox

‘adicionar planihas com o hiperlink de volta para planilha principal
Sub sbx_criar_planilhas()
Dim vArea As Range
Dim vCelula As Range
Set vArea = ThisWorkbook.Sheets(“Principal”).Range(“A1:A200”)
For Each vCelula In vArea
Worksheets.Add After:=Worksheets(Worksheets.Count)
On Error Resume Next
ActiveSheet.Tab.ColorIndex = Int(56 * Rnd)
With Worksheets(Worksheets.Count)
.Name = vCelula
.Range(“A1”) = “Principal”
.Hyperlinks.Add Anchor:=.Range(“A1″), Address:=””, SubAddress:=”Principal!A1″
End With
Next
sbx_carrega_listbox
MsgBox “Foram criadas ” & Sheets.Count & ” folhas de planilhas” & vbCrLf & _
“Com as cores das abas aleatórias.”, vbInformation, “Escola Saberexcel VBA Estudos®”
End Sub

‘para incrementar os nomes das folhas de planilhas na ListBox
Sub sbx_carrega_listbox()
Dim vPlan As Worksheet
With Sheets(“Principal”)
.Activate
With .ListBox1
.Clear
For Each vPlan In Worksheets
.AddItem vPlan.Name
Next
End With
End With
End Sub

‘deletar todas planilhas
Sub sbx_deletar_planilhas()
Dim i As Integer
For i = 2 To Worksheets.Count
If Not Worksheets(Worksheets.Count).Name = “Principal” Then
Application.DisplayAlerts = False
Worksheets(Worksheets.Count).Delete
End If
Next
Sheets(“Principal”).ListBox1.Clear
Application.DisplayAlerts = True
End Sub

‘//============’ BOTÕES
‘abrir uma lista supensa das abas de planilhas
Private Sub btnABAS_Click()
Application.CommandBars(“Workbook tabs”).ShowPopup
End Sub

Private Sub btnADICIONAR_Click()
If Worksheets.Count = 1 Then
sbx_criar_planilhas
Else
sbx_deletar_planilhas
sbx_criar_planilhas
End If
End Sub

Private Sub btnDELETAR_Click()
sbx_deletar_planilhas
End Sub

‘navegar pelas folhas de planilhas atraves da Listbox
Private Sub ListBox1_Click()
On Error GoTo sbxERR
Worksheets(CStr(Me.ListBox1)).Activate
Exit Sub
sbxERR:
MsgBox “A Planilha ” & CStr(Me.ListBox1) & ” não existe !”, vbCritical, “Escola Saberexcel VBA Estudos®”
End Sub