Function ConvertCalc1()
If OptionButton2.Value = True Then
TextBox2.Value = TextBox1.Value * Application.WorksheetFunction.Index("VOLUMN_Table", Application.WorksheetFunction.Match(ComboBox1.Value, "VOLUMN_ROWS", 0), _
Application.WorksheetFunction.Match(ComboBox2.Value, "VOLUMN_COLUMNS", 0))
Else
TextBox2.Value = TextBox1.Value * Application.WorksheetFunction.Index("WEIGHT_Table", Application.WorksheetFunction.Match(ComboBox1.Value, "WEIGHT_ROWS", 0), _
Application.WorksheetFunction.Match(ComboBox2.Value, "WEIGHT_COLUMNS", 0))
End If
End Function
Bookmarks