VBA to assign letter in cell next to a cell with a number

[DDePoy]

Hello,

I would like to place a letter in all cells in column A when the cell next to it in column B has a number, and for it to stop running when the last cell in column B does not have a value.

[TABLE="width: 128"]
<colgroup><col width="64" span="2" style="width:48pt"> </colgroup><tbody>[TR]
[TD="width: 64"]P[/TD]
[TD="class: xl63, width: 64, align: right"]1583194[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]2516995[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]8156986[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]7268279[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]1619275[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]7799059[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]3519535[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]2128841[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]6109724[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]0925075[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]3602976[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]4803144[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]1207349[/TD]
[/TR]
[TR]
[TD]P[/TD]
[TD="class: xl63, align: right"]1048230[/TD]
[/TR]
</tbody>[/TABLE]

Thank you!

 

[Rick Rothstein]

Could there be blank cells mixed in with the cells in Column B that have values in them or is the data contiguous?

When Column B cells have a value, will that value always be a number or could some cells have text in them?

Is Column B the only cells that have any values in them or do you have other columns with data as well? If yes, is Column C empty or not?

 

[DanteAmor]

Which letters do you want to put, always the letter "p"?

 

[DDePoy]

Could there be blank cells mixed in with the cells in Column B that have values in them or is the data contiguous?

When Column B cells have a value, will that value always be a number or could some cells have text in them?

Is Column B the only cells that have any values in them or do you have other columns with data as well? If yes, is Column C empty or not?

Thanks for your response. The data is contiguous, I have a macro that eliminates rows with zeros and blanks in Column B. The values in Column B will always be a number, all other Columns are empty. This is a format to import into another program and I believe all other columns must remain empty.

The letter "P" is the only letter that will be used in Column A.

 

[DDePoy]

Yes the only letter used is "P"

Thanks for your time and response.

 

[Rick Rothstein]

Thanks for your response. The data is contiguous, I have a macro that eliminates rows with zeros and blanks in Column B. The values in Column B will always be a number, all other Columns are empty. This is a format to import into another program and I believe all other columns must remain empty.

The letter "P" is the only letter that will be used in Column A.

As as macro...

Sub AddPsToColumnAIfNumberInColumnB()
  Columns("B").SpecialCells(xlConstants).Offset(, -1) = "P"
End Sub

But note that this single line of code can be placed at the end of your existing macro that eliminates the zeros and blanks.

 

[DDePoy]

This works perfectly!

Thank you for your time!