Comparar Valor Digitado

[MarinaBat 0]

Pessoal estou me aventurando fazendo um programa para o meu Pai e não consigo fazer o seguinte:

O usuário digita um intervalo de datas e um nome e o programa procura esse nome em uma planilha e soma o valor da compra que o cliente fez , porem o programa não esta fazendo a soma. Por favor me ajudem. =D

 

Private Sub btn_ok_Click()

Dim dataini As Date

Dim datafim As Date

Dim linha As Integer

Dim nom As String

Dim comp As Currency

Dim vend As Currency

Dim compacu As Currency

Dim vendacu As Currency

Dim nomconf1 As String

Dim nomconf2 As String

dataini = txt_dataini

datafim = txt_datafim

nom = txt_nome

comp = 0

compacu = 0

vend = 0

vendacu = 0

linha = 2

Do Until Sheets("Fluxo de Caixa").Cells(linha, 2) = ""

If Sheets("Fluxo de Caixa").Cells(linha, 2) >= dataini And Sheets("Fluxo de Caixa").Cells(linha, 2) <= datafim Then

nomconf1 = Sheets("Fluxo de Caixa").Cells(linha, 4)

nomconf2 = Sheets("Fluxo de Caixa").Cells(linha, 7)

If nomconf1 = nom Then

vendacu = Sheets("Fluxo de Caixa").Cells(linha, 5)

vend = vend + vendacu

End If

If nomconf2 = nom Then

compacu = Sheets("Fluxo de Caixa").Cells(linha, 8)

comp = comp + compacu

End If

linha = linha + 1

Else

linha = linha + 1

End If

Loop

lbl_comp = comp

lbl_comp = Format(lbl_comp, "R$ #,##0.00")

lbl_vend = vend

lbl_vend = Format(lbl_vend, "R$ #,##0.00")

lbl_tot = lbl_vend - lbl_comp

lbl_tot = Format(lbl_tot, "R$ #,##0.00")

[KhaosDoctor 242]

Você quer adicionar os valores na tabela?