10 ROTINAS ÚTEIS DE PROGRAMAÇÃO EM VBA PARA EXCEL

O Excel possui milhares de usuários por todo o mundo, principalmente por ser um dos programas mais populares e acessados. Mas nem todos os usuários sabem programar em VBA ou ainda utilizar as Macros. Estes recursos existem para que possa deixar sua planilha cada vez mais profissional. Seguem 10 rotinas de programação úteis em VBA para Excel.

1.       Ativar uma planilha:

‘Ativa a planilha “Plan1”.

Sheets("Plan1").Activate

2.       Selecionar uma linha:

‘Seleciona a linha 3.

Range("3:3").Select

Obs.: antes você deve informar a planilha com a rotina 01.

3.       Inserir uma nova linha na planilha, na célula selecionada pela rotina anterior do item 02:

Selection.Insert Shift:=xlDown

Obs.: antes você deve informar a planilha com a rotina 01 e selecionar uma linha com a rotina 2.

4.       Selecionar uma célula qualquer:

Range("A3").Select

 Obs.: antes você deve informar a planilha com a rotina 01.

5.       Inserir um valor de um TextBox de um formulário em uma célula:

ActiveCell.Value = TextBox1.Text

Obs.: antes você deve informar/selecionar a célula com a rotina 04.

6.       Inserir valor de uma célula da planilha em um TextBox de um formulário:

TextBox1.Text = Worksheets("PLAN3").Range("A3").Value

7.       Carregar dados num ComboBox a partir de um intervalo de dados da planilha:

Me.ComboBox2.RowSource = "Base!Setor"

Carrega o intervalo de dados Setor da planilha Base no ComboBox2.

8.       Código para inserir e ativar um texto de uma célula como Hyperlink, a partir de um caminho dentro existente num TextBox:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=(Txt_Link.Text), _

        TextToDisplay:=(Txt_Link.Text)

9.       Código para abrir um Hyperlink de planilha a partir de um CommandButton.

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

10.   Inserir valores entre células de planilhas:  

ActiveCell.Value = Worksheets("BD1").Range("B303").Text

Obs.: antes você deve informar a planilha com a rotina 01.