DICAS VBA

1. OCULTAR BARRAS DE FERRAMENTAS:
Sub Ocultando_Barras_Ferramentas()
ActiveWindow.DisplayGridlines = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub

2. BUSCAR PALAVRA:
IMPORTANTE:
a) activevecell.address  mostra o endereço da célula ativa
b) Format(Now(), "dd/mm/yyyy hh:mm:ss")  formata celula de acordo com data e hora
c) sbx = cancel  essa instrução no código abaixo equivale a apertar o botão cancelar no INPUTBOX
d) Plan2.Range("b65000").End(xlUp).Offset(1, 0).Value = ActiveCellirá digitar abaixo da ultima celula escrita da coluna B a palavra encontrada mais próxima da palavra procurada(como pode ser visto em negrito: ao procurar, por exemplo,”cab” e existir na planilha a palavra “cabeça”, essa ultima palavra será armazenada na variável activecell,em negrito)

Sub Busca_palavra()
Dim sbx As String sbx = InputBox("Digite palavra procurada", "Procura palavra personalizada")
If sbx = "" Then sbx = cancel
Exit Sub
End If
Cells.Find(What:=sbx, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate
MsgBox "A palavra [ " & sbx & " ] esta na célula [ " & ActiveCell.Address & " ]"
Plan2.Range("b65000").End(xlUp).Offset(1, 0).Value = ActiveCell
Plan2.Range("b65000").End(xlUp).Offset(0, 1).Value = Format(Now(), "dd/mm/yyyy hh:mm:ss")
End Sub

3. CRIAR UM MENU:
Ir em opçõespersonalizar faixa de opçõesnas guias principais(que fica no menu do lado direito) basta clicar em nova guia ou novo grupo

4. DAR UM TITULO PARA O ARQUIVO E COLOCAR UMA MENSAGEM NA BARRA DE STATUS:
Sub applicatx()
Application.Caption = "Escola Saberexcel VBA Estudos®"
Application.StatusBar = "Aprenda Microsoft Excel VBA, sozinho, praticando com produtos didáticos Saberexcel"