Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Condição com Soma

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
KURLL



Mensagens : 4
Data de inscrição : 02/11/2011

MensagemAssunto: Condição com Soma   Sex Abr 12, 2013 7:10 pm

Olá a todos,

Preciso de uma ajudinha para elaborar um prodecimento em VBA

Linha
1 A B C D E
2 X


O Objetivo do procedimento é contar o numero de células da linha 1 enquanto a soma destas (A+B+C+D…+Z…) for menor do que o valor da célula da linha 2.

Desde já muito obrigado a quem poder ajudar.
Cumpts
Kurll
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Condição com Soma   Sab Abr 13, 2013 12:46 am

Boa noite!!

Poderia postar seu arquivo rico em exemplos?

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
KURLL



Mensagens : 4
Data de inscrição : 02/11/2011

MensagemAssunto: Re: Condição com Soma   Dom Abr 14, 2013 4:48 am

Ok, peço desculpa, na altura que criei o tópico estava com pouco tempo.



Tal como disse preciso de ajuda para elaborar um procedimento em VBA que retorne o numero de semanas de cobertura em função do stock e da procura.

Por exemplo em cima temos os valores da procura para a semana1 =10 , semana2 =15 , semana3 =10 etc. E temos também o valor do stock=50. Neste exemplo a cobertura (célula a amarelo) seria igual a 4 semanas pois para satisfazer a procura até á semana 5 seria preciso um valor de stock de 65.

Penso que a maneira mais fácil de estruturar o procedimento seria uma condição em que se vão somando todos os valores da procura até esta ser maior do que o stock. Quando isto acontecer, bastaria contar o range de células em que a condição falhou e subtrair 1 para se encontrar o numero de semanas de cobertura. Se não for pedir muito o ideal seria que o código utiliza-se apenas referências relativas.

A minha dificuldade está em escrever o código VBA para fazer isto. Já tentei, mas não saiu nada de jeito Rolling Eyes uma vez que tenho dificuldades em utilizar os chamados looping's!!

Muito obrigado pela ajuda!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Condição com Soma   Dom Abr 14, 2013 5:14 pm

Bom dia!!

Porque precisa de VBA para isso?

Veja o arquivo em:
http://www.sendspace.com/file/b5sgm9

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
KURLL



Mensagens : 4
Data de inscrição : 02/11/2011

MensagemAssunto: Re: Condição com Soma   Seg Abr 15, 2013 11:08 am

Bom dia

Porque toda a programação que estou a usar para este mapa que estou a construir está em VBA.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Condição com Soma   Seg Abr 15, 2013 7:03 pm

Bom dia!!

Tente
Código:
Sub Tente()
    Dim lr As Long
    Application.ScreenUpdating = False
    Const sFormula1 As String = "=MATCH(B3,SUBTOTAL(9,OFFSET(B2,0,0,1,COLUMN(B2:G2)-COLUMN(B2)+1)),1)"
    With Sheets("AleVBA")
        .Range("B1").FormulaArray = sFormula1
    End With
    Application.ScreenUpdating = True
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Condição com Soma   Hoje à(s) 8:59 pm

Voltar ao Topo Ir em baixo
 
Condição com Soma
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como implementar coisas nas condições de utilizações do fórum
» Duas condições SE em um mesmo campo calculado - Outra dúvida
» Condições gerais de utilização
» Problema geral de alpha
» game maker não soma a variável

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: