Coleção 15.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...

 

20.000 Planilhas MS Excel VBA

 20.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.

sbx planilhas navegar colore abas a cada interacao

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

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), tem por objetivo Navegar pelas Planilha:

Poderá fazer com o Objeto (Formulário)  ou diretamente na planilha inserindo uma ComboBox. 
(como fiz nessa folha de planilha exemplo download abaixo)
Propriedade Usf Modal false  = poderá acessar as células sem precisar fechar o Userform

a cada interação irá colorir as abas com cores aleatórias...
Caso não queira somente  comentar a linha de código com uma  '  aspa simples na frente do código.

Observe que o Userform você poderá por na posição que lhe convier usando a propriedade top e left do (Código)

Estes macros e procedimentos de como navegar em folhas de planilhas através de ComboBox, como também
insere cores aleatórias em todas as abas das folhas de planilhas

1 - exemplo de ComboBox diretamente na folha de planilha que carrega e seleciona ao evento click
2 - Navegação entre as folhas de planilhas usando Objeto Userforms e ComboBox, que também seleciona
    a planilha escolhida e colore todas as abas das folhas de planilha.

   '///==========='CODIFICAÇÃO DO USERFORM.
Private Sub UserForm_Initialize()
Dim vPlan As Integer
For vPlan = 1 To Sheets.Count
    ComboBox1.AddItem Sheets(vPlan).Name
Next vPlan
Me.StartUpPosition = 3
Me.Top = 90
Me.Left = 150
ComboBox1.SetFocus
SendKeys "%{down}"   'abre a lista automaticamente
End Sub

Private Sub ComboBox1_Click()
Sheets(ComboBox1.Value).Select
For i = 1 To Sheets.Count
  x = Int(Rnd * 55) + 1
  ActiveWorkbook.Sheets(i).Tab.ColorIndex = x
Next i
Sheets(ComboBox1.Value).Select
End Sub

'ou ver no modulo sbx_macros_x
'a codifificação do combobox na folha de planilha

   '///==========='CODIFICAÇÃO DA COMBOBOX INSERIDA NA FOLHA DE PLANILHA.

Sub sbx_abrir_usf()
frmPLANILHAS.Show
End Sub

'//======='

'exemplo da combobox da folha de planilha
Sub sbx_carregar_combobox()
Dim vPlan As Integer
Planilha1.ComboBox1.Clear
For vPlan = 1 To Sheets.Count
    Planilha1.ComboBox1.AddItem Sheets(vPlan).Name
Next vPlan
On Error Resume Next
Sheets(Planilha1.ComboBox1.Value).Select
End Sub

Sub sbx_voltar_principal()
Planilha1.Select
End Sub

Sub sbx_abrir_usf()
frmPLANILHAS.Show
End Sub

'exemplo da combobox da folha de planilha
Sub sbx_carregar_combobox()
Dim vPlan As Integer
Planilha1.ComboBox1.Clear
For vPlan = 1 To Sheets.Count
    Planilha1.ComboBox1.AddItem Sheets(vPlan).Name
Next vPlan
On Error Resume Next
Sheets(Planilha1.ComboBox1.Value).Select
End Sub

'//======='

Sub sbx_voltar_principal()
Planilha1.Select
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 dos produtos Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
icon sbx planilhas navegar colore abas a cada interacao (63.57 kB)
  

Você está aqui: Home Excel VBA - Dicas Livre Excel VBA - Dicas Livre Excel VBA - WorkSheets sbx planilhas navegar colore abas a cada interacao