Copy cell If not Null

[Lutsch]

I have 3 columns I want a vb code to copy cell from b to adjacent cell c if b is not null -- B3 = 24 then copy and paste b3 to c3

Thanks

 

[Thomas_Lafferty]

A formula will do this for you, ie: =IF(B3="",B3,"")
Place formula in cell C3 and copy down.

If you must use VBA, the try this:

Sub CopyVals()
Dim intLastRow As Integer
intLastRow = ActiveSheet.Range("A65536").End(xlUp).Row

For Each c In Range("A1:A" & intLastRow)
If c.Value <> "" Then
c.Offset(0, 1).Value = c.Value
End If
Next c
End Sub

 

[HalfAce]

Does it HAVE to be a macro?

You do know (right?) that you can enter the formula =B3 into cell C3 and C3 will return whatever is in cell B3. (0 if B3 is blank, 24 if B3 is 24, etc.)

EDIT:
If you really do need code for this it's easy to do, we just need to know the entire range of interest.