"Run time Error '13, Type mismatch issue - please help

Hi
I did created the macro which is calculating the average and the code is working correctly

PHP Code: 

Private Sub textbox5_change()                                                  'Wyliczy sredia z Seed 1st & 2nd sample

Dim dblTextBox2 As Double
Dim dblTextBox3 As Double
Dim dblTextBox4 As Double
Dim dblTextBox5 As Double
If TextBox2.Value <> "" Then dblTextBox2 = CDbl(TextBox2.Value)
If TextBox3.Value <> "" Then dblTextBox3 = CDbl(TextBox3.Value)
If TextBox4.Value <> "" Then dblTextBox4 = CDbl(TextBox4.Value)
If TextBox5.Value <> "" Then dblTextBox5 = CDbl(TextBox5.Value)
TextBox10.Value = ((((100 / TextBox3.Value) * TextBox2.Value) + ((100 / TextBox5.Value) * TextBox4.Value)) / 2)
If dblTextBox5 > 0 Then TextBox10.Value = Format((((100 / TextBox3.Value) * TextBox2.Value) + ((100 / TextBox5.Value) * TextBox4.Value)) / 2, "0")


End Sub 


but when i am using another macro to transfer data from textboxes to one of my tabs it is showing me the fault "Run time Error '13, Type mismatch
i don't have idea why this is happening especially that all the data is property transferred
When i am opening VBA window the code below is highlighted on read

PHP Code: 

TextBox10.Value = ((((100 / TextBox3.Value) * TextBox2.Value) + ((100 / TextBox5.Value) * TextBox4.Value)) / 2) 


U getting error.. but does the data get transffered?

IF so
Try using

Please Login or Register  to view this content.

Oh great..