OLEObjects in Visual basic

Question

My code below works in Excel VBA however i am changing to VB userform. The problem is i cant use OLEObjects anymore so is there a workaround in VB to have this work for me in a userform? or do i need to put this in a long if statement. Thanks in advance.

Dim Fun As Variant
Dim Tmp As Variant
Dim Inv() As String
Dim i As Integer

Inv = Split("NBInv NEBInv EBInv SEBInv SBInv SWBInv WBInv NWBInv")
Fun = 0

For i = 0 To UBound(Inv)
    Tmp = Val(MainForm.OLEObjects(Inv(i)).Object.Value)
    If Tmp <> 0 And Tmp <> "" And Tmp > Fun Then Fun = Tmp
Next i

Smallest = Fun
MsgBox Smallest

SWa · Accepted Answer · 2017-05-07 06:38:09Z

1

On the assumption that these are control names on your userform:

Dim Fun As Variant
Dim Tmp As Variant
Dim Inv() As String
Dim i As Integer

Inv = Split("NBInv NEBInv EBInv SEBInv SBInv SWBInv WBInv NWBInv")
Fun = 0

For i = 0 To UBound(Inv)
    Tmp = Val(Me.Controls(Inv(i)).Value)
    If Tmp <> 0 And Tmp <> "" And Tmp > Fun Then Fun = Tmp
Next i

Smallest = Fun
MsgBox Smallest

answered May 7, 2017 at 6:38

SWa

4,36325 silver badges42 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

OLEObjects in Visual basic

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related