Notifications
Clear all

Aplicando a fórmula até o final do arquivo

8 Posts
3 Usuários
0 Reactions
1,463 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá,

Estou precisando aplicar uma fórmula dentro de uma macro, de tal forma que a mesma seja aplicada até o final do arquivo, sendo que dependendo do arquivo pode variar a quantidade de linhas e não estou conseguindo.


    Selection.AutoFill Destination:=Range("A2:A100000")
    Range("A2:A100000").Select

Alguém pode me ajudar a modificar o código de tal forma que não seja definido a quantidade de linhas e que seja aplicado a quantidade de linhas do próprio arquivo?

Desde já agradeço a ajuda.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/09/2018 10:03 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

.
lcamargo, isto não resolve? ... Inserindo a formula é A2 e dando um clique duplo no canto inferior direito da célula (quando aparece aquela cruz preta) a formula vai até o final !!!
.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/09/2018 10:30 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Eu fiz isso, porém o gravador de macros acaba anotando o número da linha em que a fórmula parou no momento da gravação, o que não eu não quero. :(

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/09/2018 10:32 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

qual coluna define a quantidade de linhas da planilha?

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 18/09/2018 10:49 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pode ser a Coluna B

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/09/2018 10:58 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

lcamargo,

Boa tarde!

Primeiramente, solicitamos, por gentileza, não usar citações de inteiro teor das mensagens que lhe são enviadas. Isso é completamente desnecessário. As citações de vem ser utilizadas apenas de pequenos trechos e quando forem estritamente necessárias ao entendimento da mensagem pela outra parte.

Quanto a sua necessidade, para saber a quantidade de linhas, pela coluna B, em qualquer arquivo, basta você criar uma variável e armazenar nessa variável o comando que informa qual é a última linha com dados na coluna B. Supondo, por exemplo que sua aba se chama Plan1, você poderia fazer algo como:

Sub AcharUltimaLinha()
     Dim UltimaLinha As LOng
     
     UltimaLinha  = Sheets("Plan1").Cells(cells.Rows.Count,2).End(XlUp).Row
     Msgbox "A ùltima linha dessa aba, pela coluna B é " & UltimaLinha
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 18/09/2018 11:22 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ok Wagner, obrigado pela informação.

Quanto a dúvida em questão referente a quantidade de linhas, o problema é que essa contagem deve ser feita no arquivo que será aberto (que é variavel, ora informação do mês 1, ora do mês 2, e assim por diante.

No caso eu teria que contar as linhas somente após abrir o arquivo.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 18/09/2018 12:05 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Ok. Entendido. Entretanto, o código que lhe enviei serve para qualquer arquivo ou situação.

Fica muito complicado ficar aqui apenas fazendo suposições. Anexe seu arquivo e explique melhor a sua necessidade.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 18/09/2018 3:11 pm