Não registra totais em dinheiro e diferença

[Andre Garcia Jr]

Preciso de ajuda com o código abaixo, não está registrando na planilha o total em dinheiro e diferença.

 

Private Sub btnCalcular_Click()
    Dim totalDinheiro As Double
    Dim totalCalculado As Double
    Dim diferenca As Double
    Dim msg As String
    
    ' Captura valores de entrada
    Dim nroCaixa As String: nroCaixa = txtNroCaixa.Value
    Dim nome As String: nome = txtOperador.Value
    Dim abertura As Double: abertura = Val(txtAbertura.Value)
    Dim sangria As Double: sangria = Val(txtSangria.Value)
    Dim vendas As Double: vendas = Val(txtVendas.Value)
    Dim vendasCartao As Double: vendasCartao = Val(txtVendasCartao.Value)

    ' Captura quantidades de cédulas e calcula total em dinheiro
    totalDinheiro = (Val(txt200.Value) * 200) + _
                    (Val(txt100.Value) * 100) + _
                    (Val(txt50.Value) * 50) + _
                    (Val(txt20.Value) * 20) + _
                    (Val(txt10.Value) * 10) + _
                    (Val(txt5.Value) * 5) + _
                    (Val(txt2.Value) * 2) + _
                    (Val(txt1.Value) * 1) + _
                    (Val(txt050.Value) * 0.5) + _
                    (Val(txt025.Value) * 0.25)
                    
    ' Calcula o total esperado no caixa
    totalCalculado = abertura + vendas - sangria - vendasCartao
    
    ' Verifica a diferença
    diferenca = totalDinheiro - totalCalculado
    
    ' Exibe os totais
    lblTotalDinheiro.Caption = "Total em Dinheiro: R$ " & Format(totalDinheiro, "0.00")
    lblTotalEsperado.Caption = "Total Esperado: R$ " & Format(totalCalculado, "0.00")
    lblDiferenca.Caption = "Diferença: R$ " & Format(diferenca, "0.00")
    
    ' Validação do saldo
    If diferenca = 0 Then
        msg = "Fechamento correto! Nenhuma diferença encontrada!"
    ElseIf diferenca > 0 Then
        msg = "Há um excedente de R$ " & Format(diferenca, "0.00")
        
    Else
        msg = "Falta R$ " & Format(Abs(diferenca), "0.00") & " no caixa!"
    End If
    
    MsgBox msg, vbInformation, "Fechamento de Caixa"
End Sub

Private Sub btnFechar_Click()
    Unload Me
End Sub

Private Sub btnGravar_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Fechamento") ' Planilha onde os dados serão salvos
    
    ' Encontrar a próxima linha vazia
    Dim ultimaLinha As Long
    ultimaLinha = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
    
    ' Salvar os dados na planilha
    ws.Cells(ultimaLinha, 1).Value = txtNroCaixa.Value
    ws.Cells(ultimaLinha, 2).Value = txtOperador.Value
    ws.Cells(ultimaLinha, 3).Value = Val(txtAbertura.Value)
    ws.Cells(ultimaLinha, 4).Value = Val(txtSangria.Value)
    ws.Cells(ultimaLinha, 5).Value = Val(txtVendas.Value)
    ws.Cells(ultimaLinha, 6).Value = Val(txtVendasCartao.Value)
    ws.Cells(ultimaLinha, 7).Value = Val(lblTotalDinheiro.Caption)
    ws.Cells(ultimaLinha, 8).Value = Val(lblDiferenca.Caption)
    
    MsgBox "Registro salvo com sucesso!", vbInformation, "Sucesso"
End Sub