locked
Autofill - Detecção de Preenchimento RRS feed

  • Pergunta

  • Preciso de um código do autofill, que me possibilite preencher as células com fórmulas ou valores até a ultima célula com dados.

     

    Ex... Tenho uma lista com 10 nomes na coluna A, quero preencher todos com Belo Horizonte, na Coluna B usando AUTOFILL, mas sem especificar um intervalo pré-definido, ou que o próprio excel detecte o preenchimento, como é feito quando clicamos 2 vezes no quadrado do canto inferior direito. Preciso disso porque a quantidade de registros exportados não é fixa, e sim variável.

     

    Obrigado

    segunda-feira, 13 de agosto de 2007 17:59

Todas as Respostas

  • Ola Cristiano

     

    Entao

    o codigo do Autofill eu nao sei usar, agora saber qual celula está vazia ou preenchida é facil

     

    Levemos em Consideração que a celula A,X é Obrigatória,ou seja, em todas as linhas preenchidas ela esta preenchida, e a planilha com o nome "DataBase"! Seguindo este conceito temos o seguinte:

     

    Code Snippet

    Dim x As Integer

    x=1

    while Sheets("DataBase").Cells(x,1)<>""

    ' "DataBase" é o nome da planilha, entao modifique como necessario

    x=x+1

    wend

     

     

     

     

     

    e depois vc seleciona as celula da seguinte maneira:

    Exemplo para selecionar a primeira celula vazia da coluna A:

     

    Code Snippet

    Dim x As Integer

    x=1

    while Sheets("DataBase").Cells(x,1)<>""

    x=x+1

    wend

    Sheets("DataBase").Range(A & x).select

     

     

     

    e para selecionar a celula da coluna "A" tendo como referencia a primeira Celula Vazia da coluna B:

    Code Snippet

    Dim x As Integer

    x=1

    while Sheets("DataBase").Cells(x,2)<>""

    x=x+1

    wend

    Sheets("DataBase").Range(A & x).select

     

     

    e para selecionar a celula da coluna "B" tendo como referencia a primeira Celula Vazia da coluna B:

     

    Code Snippet

    Dim x As Integer

    x=1

    while Sheets("DataBase").Cells(x,2)<>""

    x=x+1

    wend

    Sheets("DataBase").Range("B" & x).select

     

     

    Espero ter Ajudado

     

    XoX

    segunda-feira, 13 de agosto de 2007 20:34