Using VBA to add a text string to original cell contents - HELP

[Koofrith]

Hi,

I've been using VBA to add the text ''Waxcap'' to a cell where the If function meets the conditions of a certain set of values being found in cells of the same row in a different column.

This is my code when conditions are met:

Then Cells(i, designations).Value = "Waxcap; " & Cells(i, designations).Value
End If

This works fine when the cell in the designations column is blank (I get the value "Waxcap;" returned). But when there is already a value in the cell in the designations column then I only get the original value returned, and it does not add "Waxcap;".

Thank you for your help

 

[Norie]

This should return 'Waxcap;' followed by whatever was originally in the cell.

Cells(i, designations).Value = "Waxcap; " & Cells(i, designations).Value

Is there any other code?

 

[Koofrith]

This should return 'Waxcap;' followed by whatever was originally in the cell.

Cells(i, designations).Value = "Waxcap; " & Cells(i, designations).Value

Is there any other code?

Hi Norie, This is the full code:

' waxcaps
If (Cells(i, latinName).Value) Like "Hygrocybe*" Or (Cells(i, latinName).Value) Like "Entoloma*" Or (Cells(i, latinName).Value) Like "Clavaria*" Or (Cells(i, latinName).Value) Like "Microglossum*" Or (Cells(i, latinName).Value) Like "Geoglossum*" Or (Cells(i, latinName).Value) Like "Dermoloma*" Or (Cells(i, latinName).Value) Like "Porpoloma*" Or (Cells(i, latinName).Value) Like "Camarophyllopsis*" Or (Cells(i, latinName).Value) Like "Clavulinopsis*" Or (Cells(i, latinName).Value) Like "Ramariopsis*" Or (Cells(i, latinName).Value) Like "Trichoglossum*" Or (Cells(i, latinName).Value) Like "Glutinoglossum*" Or (Cells(i, latinName).Value) Like "Cuphophyllus*" Then Cells(i, designations).Value = "Waxcap; " & Cells(i, designations).Value
End If

 

[Koofrith]

Sorry for all the species names jargon

 

[Norie]

Is designations definitely referring to the correct column?

 

[Koofrith]

Yes i'm pretty sure it is