Running Balance Calculation

[AsifShah]

I was Created a userform for invoice control. in this userform i was created 3 Textbox.
Textbox1 For Old Running Balance
Textbox 2 For Current Bill
Textbox 3 For Result,
If Customer running Balance in Debit then Texbox1 Value + Textbox2 Value show result in Textbox3 and if Customer Running Balance is Credit then Textbox1 Value - Textbox2 Value and show the Result in Textbox3. Please Help

 

[AlphaFrog]

Cross-posted

Calculation Running Balance

I was Created a userfrom for invoice control. in this userform i was created 3 Textbox. Textbox1 For Old Running Balance Textbox 2 For Current Bill Textbox 3 For Result, now i want to VBA Coding for If Customer running Balance in Debit then Texbox1 + Textbox2 if Customer Running Balance is...

www.excelforum.com

 

[AsifShah]

Anybody ?
Sample File

 

[fadee2]

What do you mean by "Running Balance in Debit" and "Running Balance in Credit"???
Does it means Running Balance is + and Running Balance is -, respectively???

 

[AsifShah]

What do you mean by "Running Balance in Debit" and "Running Balance in Credit"???
Does it means Running Balance is + and Running Balance is -, respectively???

Running Balance in Debit = " - "
Running Balance in Debit" = " + "

 

[AsifShah]

Running Balance in Debit = " - "
Running Balance in Credit = " + "

What do you mean by "Running Balance in Debit" and "Running Balance in Credit"???
Does it means Running Balance is + and Running Balance is -, respectively???

 

[fadee2]

Replace your code with the one below and see if it works

Private Sub Code_AfterUpdate()
'Lookup values based on first control
With Me
.Dist = Application.WorksheetFunction.VLookup(CLng(Me.Code), Sheet3.Range("Subdealer"), 2, 0)
.TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.Code), Sheet3.Range("Subdealer"), 5, 0)

End With
If TextBox1.Text = "" And TextBox2.Text < 0 Then
    TextBox3.Text = TextBox2.Text
Else
    If TextBox1.Text = "" And TextBox2.Text > 0 Then
        TextBox3.Text = TextBox2.Text
    Else
        If TextBox2.Text < 0 Then
            Label186.Caption = "Old Credit"
            TextBox3.Text = Val(TextBox1.Text) + Val(Abs(TextBox2.Text))
        Else
            Label186.Caption = "Old Debit"
            TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
        End If
    End If
End If
End Sub

 

[AsifShah]

Replace your code with the one below and see if it works

Private Sub Code_AfterUpdate()
'Lookup values based on first control
With Me
.Dist = Application.WorksheetFunction.VLookup(CLng(Me.Code), Sheet3.Range("Subdealer"), 2, 0)
.TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.Code), Sheet3.Range("Subdealer"), 5, 0)

End With
If TextBox1.Text = "" And TextBox2.Text < 0 Then
    TextBox3.Text = TextBox2.Text
Else
    If TextBox1.Text = "" And TextBox2.Text > 0 Then
        TextBox3.Text = TextBox2.Text
    Else
        If TextBox2.Text < 0 Then
            Label186.Caption = "Old Credit"
            TextBox3.Text = Val(TextBox1.Text) + Val(Abs(TextBox2.Text))
        Else
            Label186.Caption = "Old Debit"
            TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
        End If
    End If
End If
End Sub

Thanks Alot Brother Its Work for me