Using a complex function in VBA

[moric11]

Hi everyone!

I have a big problem. I would like to put in an excel funtion to VBA but it makes "Compile error: Syntax error"

Here it is the code:

Private Sub CommandButton2_Click()
Range("E12").Value = Appliaction.WorksheetFunction.If(CountA(C34:D51)>1;"VEGYES paletta";E34)
End Sub

Can you help me?

 

[Norie]

There is no Worksheet.If in VBA, if you want to use If in code try this.

Private Sub CommandButton2_Click()
Dim Res As Variant
    
    Res = Application.CountA(Range("C34:D51"))

    If Res > 1 Then
        Range("E12").Value = "VEGYES paletta"
    Else 
        Range("E12").Value = Range("E34").Value
    End If

End Sub

 

[shg]

Welcome to the board.

Private Sub CommandButton2_Click()
  Range("E12").Value = Evaluate("if(counta(C34:D51) > 1, ""VEGYES paletta"", E34)")
End Sub

 

[moric11]

Thank you very much, these are very useful!!!!
But there is another question. How can I make a function behave like a text in VBA to put in a cell to look like this in excel:
https://1drv.ms/i/s!AgHuCT6HenfnhI1AncUllF0ein_Pzg

 

[shg]

Range("E12").Formula = "=if(counta(C34:D51) > 1; ""VEGYES paletta""; E34)"

 

[moric11]

Thank you!!!
It is working fine with ","!!
And thank you for welcoming :D

 

[shg]

You're welcome.

 

[Ruddles]

[...Deleted...]