Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções
'//=========' Escola Saberexcel VBA Estudos®
'//=========' Treinamentos com Macros, Fórmulas e Funções
'//=========' http://www.microsoftexcel.com.br
'//=========' contato@saberexcel.com.br
'- - - - - - - - - - - - - - - - - - - - - - '
Sub criar_planilhas_lista_colA()
Dim resp As String
If Sheets.Count > 2 Then GoTo 12345 '//========'caso haja mais de uma planilha no livro
For Each c In Range([A2], [A2].End(xlDown))
If c.Offset(0, 2) <> "" Then
Sheets.Add.Name = c.Value & c.Offset(0, 1).Value & " - " & c.Offset(0, 2).Value
Application.ActiveSheet.Move after:=Sheets("Principal")
Application.ActiveSheet.Tab.ColorIndex = Int((55 * Rnd)) + 1 '//========'gerando abas cores aleatórias
'//========'referenciando as cores aos objetos
c.Interior.ColorIndex = Application.ActiveSheet.Tab.ColorIndex
c.Offset(0, 2).Interior.ColorIndex = Application.ActiveSheet.Tab.ColorIndex
c.Offset(0, 4).Interior.ColorIndex = Application.ActiveSheet.Tab.ColorIndex
c.Offset(0, 4).Value = Application.ActiveSheet.Tab.ColorIndex
c.Offset(0, 2).Font.ColorIndex = Int((55 * Rnd)) + 1
End If
Next c
'//======'for da instrução for next, para terminar o macro [informações nas células folha de planilha]
sbx.Select
[g10].Value = "<<< FORAM CRIADAS =======' [ " & Sheets.Count & " ] '======= FOLHAS DE PLANILHAS BASE COL(B) >>>>"
[g13].Value = "'1 - CORES FONTES DA COLUNA C (ALEATORIAS)"
[g14].Value = "'2 - CORES INTERIOR DAS COLUNAS(A,B,C) ALEATORIOS"
[g15].Value = "'3 - CORES DAS ABAS DE PLANILHAS CRIADAS (ALEATÓRIAS)"
[g22].Value = "APRENDA MICROSOFT EXCEL VBA - PRODUTOS DIDÁTICOS SABEREXCEL"
didaticos
Exit Sub
12345 '//atende a condição if no inicio do macro, verifica se existe mais de uma e [pula para o item 10]
resp = MsgBox("PLANILHAS JÁ EXISTENTES, PODERÁ CRIAR SE DELETAR TODAS" & vbCrLf & "deseja deletar todas planilhas para realização do teste?", vbYesNo + vbCritical, "Saberexcel VBA Estudos®")
If resp = 6 Then
deleta_todas_preservada_desejada
End If
End Sub
Sub deleta_todas_preservada_desejada()
Dim Plan, x As Worksheet
Set x = sbx
On Error Resume Next
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
For Each Plan In Worksheets
If (Plan.Name <> "Principal") And (Plan.Name <> "sbx") Then
Plan.Delete
End If
Next Plan
'- - - - - - - - - - - -'
x.[a2:e200].ClearFormats
x.[a2:e200].Font.Size = 8
x.[g10,g13,g14,g15,g22,cv,cm,cp,ca,cf,cl,ct,ce].ClearContents
Application.DisplayAlerts = True
End Sub
Private Sub Produtos_didaticos()
Dim b
Set b = sbx
b.[cv] = b.lbsbx01.Caption 'curso completo microsoft excel vba
b.[cm] = b.lbsbx02.Caption ''coleção 15.000 macros microsoft exel vba, fórmulas e funções
b.[cp] = b.lbsbx03.Caption 'dvd 14.000 planilhas microsoft excel vba
b.[ca] = b.lbsbx04.Caption 'apostilas e ebooks microsoft excel vba
b.[cf] = b.lbsbx05.Caption 'worksheetfunctions(vba)
b.[cl] = b.lbsbx06.Caption 'instruções loops todas (7)
b.[ct] = b.lbsbx07.Caption ' como fazer programação microsoft excel vba
b.[ce] = b.lbsbx08.Caption 'c.e.g.o - controle de estoque e gerenciamento de orçamentos (excel x access - com bastante rotinas e funçcoes para movimentação estoque)
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.
Baixe o exemplo de planiha contendo os macros acima: <<< Registre-se em nosso Site >>>
Excel planilhas vba criar planihas abas cores aleatorias (68.05 KB)
