Como determinar a próxima célula livre em uma coluna usando uma macro
Em muitas macros, os dados devem ser adicionados continuamente. Em seguida, é necessário determinar a próxima célula em uma coluna onde você pode inserir dados. Você pode resolver isso usando uma fórmula do Excel.
No entanto, se você deseja determinar a última célula em uma macro, você precisa dos comandos do VBA. Existem várias abordagens para resolver o problema. Aqui está uma macro adequada:
Sub SearchFreeCell ()
Dim Cell As Range
Dim Maxzeile As Long
Se Val (Left (Application.Version, 2))> 11 Then
Linha máxima = 1048576
Outro
Linha máxima = 65536
Fim se
Definir célula = Células (Maxzeile, 1) .End (xlUp) .Offset (1, 0)
MsgBox "A próxima célula livre é" & cell.Address (False, False)
End Sub
Uma vez iniciada, a macro determina a próxima célula livre e não utilizada na coluna A. O endereço desta célula é exibido em uma janela.
A macro aborda a última linha da coluna A da tabela ativa e, a partir daí, determina a última célula utilizada acima. Para que a macro funcione no Excel até a versão 2003, bem como no Excel a partir da versão 2007, uma distinção de caso adequada é feita no início. Essa distinção de maiúsculas e minúsculas é necessária porque o número de linhas disponíveis aumentou com a versão 2007 de 65536 para 1048576.
Se você quiser encontrar a célula livre em uma coluna em vez da célula livre na coluna A, substitua o primeiro número 1 entre colchetes após o comando Células pelo número da coluna correspondente.
Dica: Se você gostaria de saber como inserir e iniciar macros no Excel, você encontrará uma breve descrição aqui: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html