Notifications
Clear all

Escolher uma celula e executar a função

5 Posts
1 Usuários
0 Reactions
901 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Clico em qualquer célula no excel e retorne o valor de um calculo de uma coluna enquanto a condição >>> Do While Cells(Coluna, 1) <> ""

Consegui fazer em VBA mas com células fixas

Private Sub Worksheet_Calculate()
    Soma = 0
    Coluna = 1
    
    ' Faz a soma dos 10 primeiros números maiores do que zero
    
    Do While Cells(Coluna, 1) <> ""
         Soma = Soma + Cells(Coluna, 1)
         Coluna = Coluna + 1
    Loop
    
    Cells(1, 3) = Soma //Aqui gostaria que o retorno estivesse onde eu escolher no Excel

End Sub

Observação quero escolher a célula em que o calculo seja retornado

Fico no aguardo

Arquivo com o esquema:

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

 
Postado : 01/08/2012 6:39 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Amigos, eu fiz algo que para mim vai funcionar, mas o problema é que ao inserir novos dados a somatória não atualiza o valor

gostaria de ajuda

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

 
Postado : 02/08/2012 5:21 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

acrescente a linha abaixo no inicio da função, assim será atualizada sempre que houver alteração:

Application.Volatile

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

 
Postado : 02/08/2012 6:49 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Reinaldo, muito obrigado amigo, poxa te agradeço mesmo.

Valeu - Obrigado por esta grande ajuda

RESOLVIDO

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

 
Postado : 02/08/2012 8:10 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Talvez uma outra maneira...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Soma = 0
    Coluna = 1
     
    Do While Cells(Coluna, 1) <> ""
        Soma = Soma + Cells(Coluna, 1)
        Coluna = Coluna + 1
    Loop
     
    Target.Value = Soma
End Sub

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

 
Postado : 03/08/2012 4:23 am