Ir para conteúdo
Entre para seguir isso  
barbosa.jean

Copiar fórmula em macro

Mensagem Recomendada

olá pessoal...

estou fazendo uma macro...e estou com problemas para faze-la funcionar para qualquer planilha(com qualquer numero de linhas)....

post-512961-1256561987_thumb.jpg

de acordo com a imagem..eu coloquei a fórmula "esquerda" ao lado da coluna que as planilhas originais possuem, para completar a fórmula até o final da série(linha 17) eu dou dois cliques na primeira célula ou arrasto a fórmula ate embaixo...

só que quando eu gravo a macro o excel não sabe o numero de linhas que a planilha que eu abri tem...sendo assim ele sempre copia a fórmual até a linha 17 como quando eu gravo a macro...

sei ele entende assim...

entao gostaria de saber algum comando, ou alguma forma de gravar a macro, para que ele sempre preencha a fórmula até a ultima linha que possua referência...

(Y)

grato

abraços


Espero ter ajudado, aguardo a resposta...
----------------------------------------------------------------------------------
"Para obter algo que você nunca teve, precisa fazer algo que nunca fez..."
----------------------------------------------------------------------------------

http://desvendandooexcel.blogspot.com.br/

Compartilhar este post


Link para o post
Compartilhar em outros sites

Teste aí e informe:

Sub Esquerda()
Dim Linha, LinhaFinal As Integer
LinhaFinal = Range("A65000").End(xlUp).Row
For Linha = 2 To LinhaFinal
If Range("A" & Linha).Value <> "" Then
Range("B" & Linha).Value = "=LEFT(RC[-1],4)"
End If
Next Linha
End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites
Teste aí e informe:

Sub Esquerda()
Dim Linha, LinhaFinal As Integer
LinhaFinal = Range("A65000").End(xlUp).Row
For Linha = 2 To LinhaFinal
If Range("A" & Linha).Value <> "" Then
Range("B" & Linha).Value = "=LEFT(RC[-1],4)"
End If
Next Linha
End Sub

cara...perfeito..

muito obrigado..vou usar em outras macros já..(Y)

abraços


Espero ter ajudado, aguardo a resposta...
----------------------------------------------------------------------------------
"Para obter algo que você nunca teve, precisa fazer algo que nunca fez..."
----------------------------------------------------------------------------------

http://desvendandooexcel.blogspot.com.br/

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Entre para seguir isso  

×