Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Código não esta conseguindo ler o restante da linha.

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
hugopatriota
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Fev 11, 2021 10:08 am

Código não esta conseguindo ler o restante da linha.

Mensagem por hugopatriota »

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:

Código: Selecionar todos

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder