How to add letter "P" at the end of cell text in column A IF it is value 0 in column B

[scorpio3st]

Hi,

Please can you help me with creating a macro:
I have a numbers in cells in column A and need to add letter "P" at the end, but only for numbers witch have 0 in column B.
Example:
column A / column B column C
30454 / 0 30454P
360708 / 55 360708
Thanks.

 

[earthworm]

I dont think you need macro for this try this

Book1
	A	B	C
9	30454	0	30454P
10	360708	55	360708
Sheet1

Cell Formulas
Range	Formula
C9:C10	C9	=IF(B9=0,A9&"P",A9)

 

[Muhammad_Usman]

Would you try this one..

07-09-21.xlsx
	A	B	C
2	1	0	1P
3	2	0	2P
4	3	2
5	4	3
6	5	0	5P
7	6	5
Sheet1

Cell Formulas
Range	Formula
C2:C7	C2	=IF(B2=0,CONCATENATE(A2,"P"),"")

 

[scorpio3st]

Thanks. It is working perfect. Is there any way to add letter in column A without creating column C?
Thanks again.

 

[earthworm]

Thanks. It is working perfect. Is there any way to add letter in column A without creating column C?
Thanks again.

Try below Macro

Sub Macro1()

' To Input "P" if the Column B as Zero Value

    Range("C1:C" & Range("A" & Rows.Count).End(xlUp).Row).Select
    Selection.FormulaR1C1 = "=IF(RC[-1]=0,RC[-2]&""P"",RC[-2])"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Columns("C:C").Copy
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    
End Sub

 

[Rick Rothstein]

Here is another macro that you can try...

Sub AddPifZero()
  With Range("A1", Cells(Rows.Count, "A").End(xlUp))
    .Value = Evaluate(.Address & "&IF(" & .Offset(, 1).Address & "=0,""P"","""")")
  End With
End Sub

 

[scorpio3st]

Try below Macro

Sub Macro1()

' To Input "P" if the Column B as Zero Value

    Range("C1:C" & Range("A" & Rows.Count).End(xlUp).Row).Select
    Selection.FormulaR1C1 = "=IF(RC[-1]=0,RC[-2]&""P"",RC[-2])"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Columns("C:C").Copy
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
   
End Sub

Excellent. working perfect.

 

[scorpio3st]

Here is another macro that you can try...

Sub AddPifZero()
  With Range("A1", Cells(Rows.Count, "A").End(xlUp))
    .Value = Evaluate(.Address & "&IF(" & .Offset(, 1).Address & "=0,""P"","""")")
  End With
End Sub

This works perfect too. Thanks a lot to all.