Coleção 25.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

35.000 Planilhas MS Excel VBA

 35.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.
Comprar - Aquisição direto no PagSeguro

Excel VBA Planilhas criar e navegar listbox

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

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.
'//========='

'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 


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.




 u - Procedimentos de Aquisição do Material Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
icon SBI Excel VBA Planilhas criar e navegar ListBox (132.7 kB)