SUBMARINO: Fácil ! Rápido ! Seguro !

Newsletter

Excel XP: VBA - Qual é a linha ?

• Você criou uma interface para o usuário...

• ... digitar os dados.
• E quando ele clicar no botão Ok,...

• ... o conteúdo das caixas de texto deverá ser inserido numa planilha.
• Dúvidas: Como atualizar a planilha ? E a linha ? Como descobrir em qual linha os dados devem ser inseridos ?

Criando a procedure.

• Clique 2 vezes no botão OK.

• Será criado o evento Click, o padrão do CommandButton.
• Crie uma variável que irá armazenar o número da linha: Dim Linha As Integer.

• Crie uma variável objeto para representar a planilha que será atualizada: Dim Cad as Worksheet
• Associe a planilha com a variável: Set Cad = Worksheets("Cadastro")

• Em seguida, digite a instrução With Cad...End With.

• Com UsedRange.Rows.Count + 1, você sabe qual a 1a. linha vazia.

• Agora, é só jogar o conteúdo das caixas de texto nas células.

• Execute a procedure ( F5 ), preencha os dados e clique em Ok.

• A planilha será atualizada.

• Preencha outros dados e clique, novamente, em OK.

• O conteúdo das caixas de texto será inserido na 1a. linha vazia.

• É isso o qui ocê quiria ? Fácil demais, jovem.

SUBMARINO: Fácil ! Rápido ! Seguro !

SUBMARINO: Fácil ! Rápido ! Seguro !

www.ricardohorta.net - Direitos adquiridos - Autor: Ricardo Horta