Copy if adjacent Cell has data

[Jeff Gross]

I need to copy text into a cell "A2" if there is any data in "B2". B2
contains a formula but will appear blank if its source has nothing.

Any ideas?

Jeff

 

[Jacob Skaria]

In Cell A2

=B2

If this post helps click Yes

 

[Patrick Molloy]

if Range("B2").Value <>"" then Range("A2")=Range("B2").Value

 

[Jeff Gross]

Sorry but I didn't make myself clear. I am copying from a different
worksheet into A2 if there is any data in B2.

Jeff.

 

[Jacob Skaria]

OR may be

Range("A2").value=Range("b2").value

 

[Jacob Skaria]

Add extension if the workbook is saved....

Workbooks("book1").Sheets("Sheet1").Range("A2") =
Workbooks("book2").Sheets("Sheet1").Range("B2")

If this post helps click Yes

 

[Jeff Gross]

I also need this code to cycle through all cells down to row 300.

 

[Don Guillett]

You also need to FULLY state your question the FIRST time.

 

[Patrick Molloy]

the following copies a range from one worksheet to another. it copies empy
cells, but does that make any difference?

worksheets("sheet2").Range("B1:B300").Value =
worksheets("sheet1").Range("B1:B300").Value