Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), insere um menu contextual,(menu suspenso) ao clicar com o botão direito do mouse em determinada planilha, neste caso inserí o exemplo com o evento na folha de planilha 'Pagamento'. Quando clicar com o botão direito do mouse abrirá o Menu Contextual para navegação pelas folhas de planilhas do livro. bem simples, bem legal. Observem que inserí também no Evento Auto_Open, que mostrará o Menu antes de abrir o Livro. Espero que o exemplo possa lhe útil. Fique com Deus, E_Marcondes


Sub Menu_CONTEXTUAL()
Application.CommandBars("Workbook tabs").ShowPopup 500, 200
End Sub

Sub plan_pagamento()
Saber2.Select
End Sub


Esse exemplo ligado ao Evento Open do Obejto Livro(WorkBook) já direcionará para planilha 'Pagamento' e abrirá o menu contextual
Private Sub Workbook_Open()
Saber2.Select
Menu_CONTEXTUAL
End Sub

Esse procedimento ocorre ao clicar duas vezes no botão direito do mouse esta ligado ao Objeto Worksheet
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Menu_CONTEXTUAL
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel

Esse procedimento do Aplicativo Microsoft Excel VBA(Visual Basic Application), usando evento Worksheet_BeforeRightClick, que ocorre quando clicar na coluna B, no intervalo de células Range(B2:B10) com o botão direito do mouse, insere uma formatação de cores na célula clicadas, como também retira a formatação inserida se clicado uma segunda vez.
Espero que o exemplo possa ajudá-los em alguma coisa, Fiquem com Deus, Expedito Marcondes.


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count > 1 Then Exit Sub
Dim c
Cancel = True
For Each c In Range("B2:B10")
If c = Target Then c.Interior.ColorIndex = IIf(c.Interior.ColorIndex = 4, xlNone, 4)
Next c
End Sub

Aprenda tudo sobre o lAplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel