Excel VBA : Appending string with a variable

[sachinns]

Hi Friends,

I have a string and a variable called "Formula". I want to append this string with my variable and update this value in the Cells(Lastrow, 3) of my active sheet.

String is :

“=IFERROR(IF(O9=” + Formula + " ;””);”Missing Leader Price”) "

Note : Orange part is my string

I tried to do it but its showing error. Can somebody help me to provide the vba code for this.

Thanks

 

[Fluff]

Try

cell(lastrow,3).formula="=IFERROR(IF(O9=" & Formula & " ,""""),""Missing Leader Price"")"

 

[sachinns]

@Fluff

Compiler error : sub or function not defined.

 

[Fluff]

Can you please post the rest of your code

 

[sachinns]

@Fluff

Private Sub Validate_Click()
If ComboBox3.Text = "" Then
Cancel = 1
MsgBox "Please Enter the Formula Name"
ComboBox3.SetFocus
Exit Sub
End If
If TextBox2.Text = "" Then
Cancel = 1
MsgBox "Please Enter the Formula Description"
TextBox2.SetFocus
Exit Sub
End If


Set ws = ThisWorkbook.Worksheets("Formula")
ws.Activate

Dim Lastrow
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Lastrow = Lastrow + 1
Cells(Lastrow, 1) = ComboBox3
Cells(Lastrow, 2) = TextBox2
'Cells(Lastrow, 3) = TextBox3
Dim Formula As String
Formula = TextBox3
'Cells(Lastrow, 3) = "=IFERROR(IF(O9=" + Formula '+ ";" + Chr(34)  + Chr(34))+ ";" + Chr(34)+ "Missing Leader Price" + Chr(34) + ")"
'Cells(Lastrow, 3).Formula = "H" '"=IFERROR(IF(O9=" & Formula & " ,""""),""Missing Leader Price"")"
End Sub

Note : I commented some part code .

 

[Fluff]

What line gives the error?

 

[sachinns]

The code which you gave.
Cells(Lastrow, 3).Formula = "=IFERROR(IF(O9=" & Formula & " ,""""),""Missing Leader Price"")"

@Fluff

 

[Fluff]

In that case I suspect that TextBox3 does not have a value.

 

[sachinns]

@Fluff

No, It is have the value. I can see the Text in the textbox.


If the string is "Hello" then i am able to append and update it into my sheet. But the string which i mentioned above is not working.
Please help me.

 

[Fluff]

If you add the message box as shown

Dim Formula As String
Formula = TextBox3
MsgBox "|" & Formula & "|"
Cells(Lastrow, 3).Formula = "=IFERROR(IF(O9=" & Formula & " ,""""),""Missing Leader Price"")"

What does it say?