Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Esse procedimento do Aplicativo Microsoft Excel VBA, usando o evento ..Open() do módulo de Edição de Códigos do Livro(Workbook), abirá o userform na planiha desejada, observe no código vba que selecionamos a planilha primeiramente e depois mandamos abrir o userform.
Esse Evento Workbook_Open ocorre na abertura (Inicialização) do Livro.



Private Sub Workbook_Open()
Sheets("Plan3").Select
UserForm1.Show
End Sub
'----'

Imagem de como proteger células manualmente, se quiser poderá gravar a macro com os passos de proteção de células.
para o treinamento.

O Aluno(Leandro) solicitou que fizessemos um passo a passo de como proteger células na determinada Folha de Planilha para evitar a
a digitação nas células e ou seleção nestas células protegidas. Fizemos uma imagem (abaixo) desse procedimento) manualmente e também,
via macro, como é um assunto para iniciantes usamos o GM(Gravador de Macros) já logo na explicação, usando o Gravador de Macros e resultou
nesta macro abaixo, que primeiramente desprotege todas as células da planilha, em seguida selecionamos nossas células ou uma área de células,
e marcamos nossas células como bloqueadas, isso significa que somente a nossas células ficaram bloqueadas, neste ponto voce poderá ir
em proteger planilha e selecionar os ítem selecionar células desbloqueadas, isso quer dizer que as células bloqueadas não poderão ser acessadas.
Veja a imagem abaixo. ( observem que o GM(Gravador de Macros) que é o assunto de nosso Curso Completo Microsoft Excel VBA, Saberexcel - Planilhas onteúdo Curso Completo Microsoft Excel Vba (791.91 KB)como Aprender a lidar com o Gravador de Macros(Gravar, depurar um código etc..), que é extremamente importante para aprendizes e ou já quem domina também a linguagem de programação ms excel vba. Expero que o exemplo possa ajudá-los, Fiquem com Deus. Expedito Marcondes

Código gerado pelo GM(Gravador de Macros) - automatizando dados ou formatação em uma folha de planilha
o esforço é fazer os passos no aplicativo corretamente para nao gravar códigos desnecessários.

Sub Macro1()
' Saberexcel_Treinamento VBA - Gravador de Macros
' Saberexcel - o site das macros
On Error Resume Next
'
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("E5,F6,G7,H8,I9,J10,K11,L12,M13,N14,O15,P16,Q17").Select
Range("Q17").Activate

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Selection.Locked = True
Selection.FormulaHidden = False
Range("F10").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Range("D7").Select
Plan2.Select
Range("D18").Select
End Sub

Sub limpar_cell()
ActiveSheet.Unprotect
Cells.Clear
Cells.Locked = True
[G1].Select
End Sub

Sub abrir()
UserForm1.Show
End Sub

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

Publicidade
Compre com segurança, garantia e ótimos preços

Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, desloca celulas baseados em valores de variáveis, atribuidos para linhas e colunas,
observe que para um melhor entendimento usei uma operação matematica (linha-1) .
Exemplo selecionará celula (L10) - uma linha = ( L9)

Sub deslocando_para_celula()

Dim AR As Integer
Dim AC As Integer

AR = 10 'Linha 10
AC = 12 'coluna 12

Cells(AR - 1, AC).Select

End Sub




Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com os produtos didáticos Saberexcel

Saberexcel - o site das macros
Essse exemplo do Aplicativo Microsoft Excel VBA, contém macro que utilizando da Instrução Select Case, seleciona determinada células na folha de planilha e em seguida abre uma caixa de diálogo, (existem centenas de caixas de diálogo), e insere nas Células[C3] e [C4], o número do botão que foi executado como também a célula que foi selecionada pela instrução Select Case . Detalhe, observe que todos os shapes(Autoformas) que representam os botões , botão1, botão2, foram antecipadamente renomeados observem na caixa de nome.


Option Explicit

Sub Seleciona_celula_mostra_FC()
Select Case Application.Caller
Case "botao1"
Range("A2").Select
[C3].Value = "Voce Acionou o Botão 1"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao2"
Range("D2").Select
[C3].Value = "Voce Acionou o Botão [2]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao3"
Range("F2").Select
[C3].Value = "Voce Acionou o Botão [3]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao4"
Range("A2").Select
[C3].Value = "Voce Acionou o Botão [4] "
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao5"
Range("D2").Select
[C3].Value = "Voce Acionou o Botão [5]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao6"
Range("E2").Select
[C3].Value = "Voce Acionou o Botão [6]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao7"
Range("F2").Select
[C3].Value = "Voce Acionou o Botão [7]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address
Case "botao8"
Range("G2").Select
End Select
Application.Dialogs(xlDialogConditionalFormatting).Show
End Sub

Aprenda tudo sobre o Aplicativo Microsoft VBA com SaberExcel

SaberExcel - o site das Macros

Esta macro do Aplicativo Microsoft Excel VBA, localiza a linha da última célula usada, e retrona uma msgbox,
na coluna A a partir da celula A1.

Excel VBA Estudos® >> www.saberexcel.com >> Escola de Informática



Sub Ultima_linha_celula()
Dim vlCelBusca As Long
On Error Resume Next
'Essas linhas comentadas abaixo você poderá usar como um ["Verfica Inconsistência"] se tal célula estiver vazia msgbox e sai da macro.
'If Sheets("Plan2").Cells(1, 1) = "" Then
' MsgBox ("É so digitar algo na Coluna A, Blz!"), vbInformation, "Saberexcel.com"
' Encontrar a última linha, que forneceu um texto ou valor.
' faz a busca aqui...
' Exit Sub
'Else
vlCelBusca = Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
MsgBox "A Linha ULTIMA CELULA usada esta na linha é : " & vlCelBusca, vbInformation, "Saberexcel.com"
Sheets("Plan2").Cells(2, 3) = "A Linha ULTIMA CELULA usada esta na linha : - " & vlCelBusca
'End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel

Esse procediemento e macros do Aplicativo Microsoft Excel VBA, chamam uma determinada macro quando seleciona uma célula específica na folha de planilha, observe que o evento selection change foi usado, (ao selecionar)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address() = "$D$12" Then Minha_Macro1
If ActiveCell.Address() = "$D$15" Then Minha_Macro2
If ActiveCell.Address() = "$D$18" Then Minha_Macro3
If ActiveCell.Address() = "$I$12" Then ver_codigo
If ActiveCell.Address() = "$K$2" Then ocultar_codigo
End Sub

Sub Minha_Macro1()
MsgBox ("Esta macro chama a Macro Minha_Macro1"), vbInformation, "Saberexcel.com - Minha_Macro1"
End Sub

Sub Minha_Macro2()
MsgBox "Esta celula chama a macro Minha_Macro2!", vbExclamation, "Excel VBA Estudos® - Minha_Macro2"
End Sub

Sub Minha_Macro3()
MsgBox "Minha_Macro3 é chamada ao selecionar a celula C18", vbInformation, "Saberexcel.com - Minha_Macro3"
End Sub

Sub ver_codigo()
Sheets("Plan1").Shapes("cod").Visible = True
End Sub

Sub ocultar_codigo()
If Sheets("Plan1").Shapes("cod").Visible = False Then
MsgBox "Shapes oculto - tem que torná-lo visível primeiro!", vbCritical, "Saberexcel.com"
Else
Sheets("Plan1").Shapes("cod").Visible = False
End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel