Excel VBA planilhas navegar colore abas a cada interação

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

excel-vba-aprendizado-videos-planilhas

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 Userform 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

‘//=======’

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.