Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), localiza a última linha e com auxílio da propriedade Offset(Desloc) linhas e colunas, localiza próxima célula em branco em determinada coluna e insere dados referente à escolha em uma caixa de combinação (Combobox - Ferramentas Formulário(Excel))
Prezada Patrícia,
vou usar um exemplo de propriedade offset para localização da última linha.
♦ Nomeei o range (Dados) - P1:P14
♦ Inserí uma caixa de combinação (Formulario) e vinculei a célula N12,
♦ Inserí uma Função Procv na célula (E2).
♦ Atribui uma macro a essa caixa de Combinação.
♦ A macro localizará a próxima linha em branco na coluna C, e vai inserir o valor que está na célula E2.
Bem simples, mas poderá fazer um sistema de cadastro usando esse principio e outras centenas de aplicações.... não é ...? - use a criatividade..
Acho de extrema importância no aprendizado ms excel vba, o aluno dominar o conhecimento sobre a Propriedade Offset, que desloca (Linhas , Colunas) e insere dados, copia, deleta, enfim faz muitas tarefas importantes em programação Excel VBA(Visual Basic Application).
Futuramente vou escrever um módulo sobre essa Função e xplicar como fazer esse tipo de programação que é essencial no Aprendizado Microsoft Excel VBA.
Observe no site ... COMO FAZER - MODULO PROGRAMAÇÃO OFFSET(DESLOC), verifique a disponibilidade
Esse tipo de exercício tem que ser repetido diversas vezes até memorizar, faça quantas vezes for necessário para que possa fazer um exercício sem precisar copiar e colar, isto é, (repita várias vezes até memoriar... depois tenta fazer a macro sem olhar no exemplo.)
Sub Retorna_ultima_linha_usada()
ActiveSheet.Range("C" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Activate ' Offset(Linhas,Colunas) - desloca numeros linhas e colunas
ActiveCell.Value = Range("E2").Value
MsgBox "Item....: [ " & [E2] & " ] inserido com sucesso", vbInformation, "Saberexcel - site das macros"
End Sub
Sub localizando_ultima_celula()
Range("C65536").Offset(1, 0).End(xlUp).Select
End Sub
Espero que o exemplo possa ajudá-los , Fiquem com Deus,
Expedito Marcondes
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA (Visual Basic Application), sozinho, com baixo custo,
praticando com os produtos didáticos SaberExcel
Baixe o exemplo de planilha contendo as macros acima
vba linhas propriedade offset localiza proxima cel branco (22.8 KB)
