If statment when a image is clicked

[Avdyl]

Hello guys. Im new to Excel VBA and i need help with a problem im trying to solve.

I have 2 shapes and when i click the shapes the same userform appears. The value that are typed in the userform is gonna be placed in a different cell wich depends on what shape is clicked.

The code i have doesnt work so i would appriciate if somebody could help me out
"
Private Sub CommandButton1_Click()

If HovFelleTilluft = Clicked Then
Sheets("Engine").Range("F24").Value = Txt63T
Else
Sheets("Engine").Range("D24").Value = Txt63T
End If

End Sub
"

I changed the name of the shapes. One shape is called "HovFelleTilluf" and the other "HovFelleAvtrekk"

Sorry for my bad english and thanks for the help =)

 

[JoeMo]

Assuming the "shapes" you refer to are active-x command buttons with captions "HovFelleTilluft" and "HovFelleAvtrekk", and they are on the activesheet. Try:

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "HovFelleTilluft" Then
    Sheets("Engine").Range("F24").Value = Txt63T
Else
    Sheets("Engine").Range("D24").Value = Txt63T
End If
End Sub

And an analogous script for the other button.

 

[Fluff]

I've got a different take on what you're after.
In a regular module put

[COLOR=#ff0000]Option Explicit
Public ShpNme As String[/COLOR]
Sub UFshow()
ShpNme = ActiveSheet.Shapes(Application.Caller).name
UserForm1.Show
End Sub

And then in the userform module

Private Sub CommandButton1_Click()
If ShpNme = "HovFelleTilluft" Then
   Sheets("Engine").Range("F24").Value = Txt63T
Else
   Sheets("Engine").Range("D24").Value = Txt63T
End If
End Sub

The part in red must go at the very top of the module, before any other code

 

[Avdyl]

Thank you so much for fast reply guys. I tried your solution JoeMo, but that didnt work. The solution you came up with Fluff worked.

Thank you again for the time =)

 

[Fluff]

Glad we could help & thanks for the feedback