Ir ao conteúdo

Posts recomendados

Postado

Olá pessoa, estou com um problema aqui.

O código não consegue ler a linha caso tenha uma LETRA no caminho dele, vou dar um exemplo.

 

               A           B           C          D

1                         ola      mundo

2     01/02/2021 200       200

3         

 

se não tiver as palavras "ola" e "mundo" ele consegue fazer o calculo, vai descendo ate achar os valores 200,200 mas caso eu escreve qualquer coisa no caminho dele, ele não consegue calcular.

 

Desde já agradeço.

 

 

Codigo:

 

Sub somarValores()

On Error GoTo fim

Dim data As Date

Dim linha As Long

Dim soma As Double

Dim valor1, valor2 As Double

soma = 0
caixa = 0
safra = 0
bb = 0

linha = 2


dataInicial = CDate(Planilha1.Cells(2, "F").Value)
dataFinal = CDate(Planilha1.Cells(2, "F").Value)

While Planilha1.Cells(linha, 1).Value <> "30/02/2021"

valor1 = CDbl(Planilha1.Cells(linha, "B").Value)
valor2 = CDbl(Planilha1.Cells(linha, "C").Value)

'se a data da coluna 1 estiver entre a dataInicia e dataFinal'
If CDate(Planilha1.Cells(linha, 1).Value) >= dataInicial And CDate(Planilha1.Cells(linha, 1)) <= dataFinal Then
'somar valores'
soma = soma + valor1 + valor2

End If
'passa para a proxima linha'
linha = linha + 1
Wend
'coloca o valore da soma na coluna 10 da linha 2'
Planilha1.Cells(2, 7) = soma


Exit Sub

fim:

MsgBox "Não Foi possivel efetuar a soma"



End Sub


 

Postado

@Hugo Patriota O problema pode ser por causa da data inicial e final, veja se essa atribuição está correta. As duas estão recebendo o valor de F2 e o cálculo será feito se o valor na coluna 1 for igual a esse. Se não for isso anexe um modelo da planilha para facilitar a ajuda.

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!