Textboxes formula depends on combobox value

**puuts** · 04-01-2013, 11:21 AM

Hello, i want to formula the three textboxes and display the result in textbox4 based on the value of combobox

Combobox Values = Cost Budget, Revenue and Actual Hours

Here's the formula per combobox values:

Cost Budget = Funding * Actual Hours / Revenue (display the result in textbox4)
Revenue = Funding * Actual Hours / Revenue (display the result in textbox4)
Actual Hours = Revenue * Cost Budget / Funding (display the result in textbox4)

Attached is the sample.

**puuts** · 04-01-2013, 11:48 AM

I have this sample code formula for Cost Budget, but it seems i miss something????

Private Sub TextBox1_Change()


Select Case Me.ComboBox1.Value

Case "Cost Budget"

  If IsNumeric(TextBox1) And IsNumeric(TextBox2) And IsNumeric(TextBox3) Then
       TextBox4 = TextBox1 * TextBox2 / TextBox3
    Else
        TextBox4 = ""
    End If
    
   
    
    Case "Revenue"
    
    If IsNumeric(TextBox1) And IsNumeric(TextBox2) And IsNumeric(TextBox3) Then
       TextBox4 = TextBox1 * TextBox2 / TextBox3
    Else
        TextBox4 = ""
    End If
    
  
    
       Case "Actual Hours"
    
     If IsNumeric(TextBox1) And IsNumeric(TextBox2) And IsNumeric(TextBox3) Then
       TextBox4 = TextBox1 * TextBox2 / TextBox3
    Else
        TextBox4 = ""
    End If
    
    End Select
    
    
End Sub

Private Sub TextBox2_Change()

Select Case Me.ComboBox1.Value

Case "Cost Budget"

  If IsNumeric(TextBox1) And IsNumeric(TextBox2) And IsNumeric(TextBox3) Then
       TextBox4 = TextBox1 * TextBox2 / TextBox3
    Else
        TextBox4 = ""
    End If
    
   
    
    If IsNumeric(TextBox1) And IsNumeric(TextBox2) And IsNumeric(TextBox3) Then
       TextBox4 = TextBox1 * TextBox2 / TextBox3
    Else
        TextBox4 = ""
    End If
    
  
    
    Case "Actual Hours"
    
     If IsNumeric(TextBox1) And IsNumeric(TextBox2) And IsNumeric(TextBox3) Then
       TextBox4 = TextBox1 * TextBox2 / TextBox3
    Else
        TextBox4 = ""
    End If
    
    End Select
    

End Sub

Private Sub TextBox3_Change()

Select Case Me.ComboBox1.Value

Case "Cost Budget"

  If IsNumeric(TextBox1) And IsNumeric(TextBox2) And IsNumeric(TextBox3) Then
       TextBox4 = TextBox1 * TextBox2 / TextBox3
    Else
        TextBox4 = ""
    End If
    

    
    If IsNumeric(TextBox1) And IsNumeric(TextBox2) And IsNumeric(TextBox3) Then
       TextBox4 = TextBox1 * TextBox2 / TextBox3
    Else
        TextBox4 = ""
    End If
    
 
    
       Case "Actual Hours"
    
     If IsNumeric(TextBox1) And IsNumeric(TextBox2) And IsNumeric(TextBox3) Then
       TextBox4 = TextBox1 * TextBox2 / TextBox3
    Else
        TextBox4 = ""
    End If
    
    End Select
    
End Sub