Notifications
Clear all

Calcular Apenas Celulas Selecionadas

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

Olá,

utilizo o codigo abaixo (encontrado na net), para calcular apenas as celulas selecionadas na planilha.

Porem gostaria de fazer um "apontamento", ou seja, Digitando na linha 45 por exemplo ele apenas calcularia a coluna D, F, G , da mesma linha sem precisar calcular as demais linhas.... O Cursor do Mouse esta na linha X ele calcularia apenas a linha do mesmo.

(utilizo isso prq minha planilha tem 20 mil linhas, o calculo ja esta no manual, porém preciso que seja calculado apenas a linha que efetuei o preenchimento. Assim não preciso após preencher apertar o "F9", e esperar o calculo de todas as linhas.

Sub CalculaRange()

'Macro para calcular apenas as células no Range selecionado da planilha.

    Dim rng As Range
    Set rng = ActiveSheet.Range(Selection.Address(False, False)) 'Passa para a variável 'rng' o Range selecionado
        
    On Error Resume Next
    Application.Calculation = xlManual 'Muda modo de cálculo para manual
    rng.Calculate 'Calcula apenas o Range selecionado

End Sub

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

 
Postado : 20/07/2016 8:49 am
(@vbajr10)
Posts: 34
Eminent Member
 

Manda a Planilha com umas 100 linhas.

 
Postado : 20/07/2016 9:07 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segue anexo.
(Fiz com menos linhas por 2 motivos : Compliance e Complexidade de Copiar/Colar).
Exemplo esta na linha 21.
Imaginemos que pra cima existe 10.000 linhas preenchidas

Na Aba Plan1, A coluna com cabeçalho em Azul ja esta preenchida.
as Colunas N, O, P, Q, R -> Aonde ira ser preenchido o arquivo
As Colunas S, T -> Fazem um "simples" Procv da aba BASE.
(Aba Base faz conexão com Banco no qual atualiza ao abrir o arquivo).

Resumindo.

Estou na Linha "X" preenchendo apenas as colunas N, O, P, Q, R.
Como a planilha esta em calculo manual, se eu apertar o F9 ela ira calcular toda a planilha.
Como só estou preenchendo a linha X (21 por exemplo), eu utilizo o codigo acima para calcula a linha toda selecionada.

O que eu queria seria:
O VBA identificar a linha que o cursor esta ou seja, estou na linha 21.
e calcular apenas as colunas N, O, P, Q, R. da mesma linha.

(com o codigo acima, eu tenho que selecionar a linha para ele calcular)

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

 
Postado : 20/07/2016 12:35 pm