Macro to Edit a Cell

[rhombus4]

Want to create a macro which will edit cell A1currrenty click a macro button which will select dog, cat, rabbit etc and put in cell A1Once that is selected I want an option where if i need to I can click another button which will add the word food to the cell, for example I select rabbit macro then i select the food button and the cell will say rabbit food

 

[Andrew Poulsom]

That's because you have a space before food in:

If InStr(1, .Value, " food", vbTextCompare) = 0 Then

In my code it was:

If InStr(1, .Value, "food", vbTextCompare) = 0 Then

 

[rhombus4]

That's because you have a space before food in:

If InStr(1, .Value, " food", vbTextCompare) = 0 Then

In my code it was:

If InStr(1, .Value, "food", vbTextCompare) = 0 Then

Thanks, But if I wanted to use the macro I currently have not sure where to slot our above macroSub food() Range("A1").Select ActiveCell.FormulaR1C1 = ActiveCell.Value & " food" Range("A1").Select End Sub

 

[Andrew Poulsom]

Is this what you want?

Sub Food()
    With Range("A1")
        If InStr(1, .Value, "food", vbTextCompare) = 0 Then
            If Len(.Value) = 0 Then
                .Value = "Food"
            Else
                .Value = .Value & " - Food"
            End If
        End If
    End With
End Sub

 

[rhombus4]

It cases a debug and highlightsIf InStr(1, .Value, "food", vbTextCompare) = 0 Then

 

[Andrew Poulsom]

What error do you get?

 

[rhombus4]

What error do you get?

Sorry seems to be ok now, when I kept editing the previous macros I kept amending the titles slightly and it kept jumping to an incorrect one

Is it best to just open Visual Basic Editor when doing macros and paste what you enter, as I tend to just record macros manually then edit them later.



Also it was data on another sheet which may have got me confused then go back to original sheet

Sub Food()
Sheets("Sheet2").Select
With Range("A1")
If InStr(1, .Value, "food", vbTextCompare) = 0 Then
If Len(.Value) = 0 Then
.Value = "Food"
Else
.Value = .Value & " - Food"
End If
End If
End With
Sheets("Sheet1").Select
Range("A2").Select

End Sub

Thanks for all yor help