Assigning an excel cell value to a function

Question

I want to assign the value of a cell in a specific worksheet to the function, but the function is returning a zero. Below is my simple code:

Function TLGV(Modele As String, Pressure As Integer) 'Total Load Grand Vitesse

    If Modele = "DCHC05" Then
        If Pressure = 30 Then
            Worksheets("VC Types").Activate
            TLGV = Range("H4").Value
        End If
    Else

    End If

user11655492 · Accepted Answer · 2019-06-16 17:15:09Z

1

You shouldn't be trying to Activate a worksheet from a VBA User Defined function.

Function TLGV(Modele As String, Pressure As Integer)

   'Total Load Grand Vitesse

   If Modele = "DCHC05" Then
       If Pressure = 30 Then
           TLGV = Worksheets("VC Types").Range("H4").Value
       End If
    Else
        'more stuff
    End If

End Function

In fact, you should provide a parent workbook reference as well.

Function TLGV(Modele As String, Pressure As Integer)

   'Total Load Grand Vitesse
   'reference the parent workbook
   with application.caller.parent.parent
     If Modele = "DCHC05" Then
       If Pressure = 30 Then
           TLGV = .Worksheets("VC Types").Range("H4").Value
       End If
      Else
        'more stuff
      End If
    End With

End Function

answered Jun 16, 2019 at 17:15

user11655492

1512 bronze badges

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

Collectives™ on Stack Overflow

Assigning an excel cell value to a function

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