VBA code to copy one cell to another

[bharned3]

I want some VBA code to do something like this

IF column D is null then copy the data that is in Column P

 

[mumps]

Do you want to copy and then paste it somewhere? If so, where?

 

[bharned3]

Do you want to copy and then paste it somewhere? If so, where?

Yes Sorry
IF column D is null then copy the data that is in Column P and paste it back in column D...

To take it even further I could then delete column P

 

[mumps]

Try:

Sub CopyCell()
    Application.ScreenUpdating = False
    Dim bottomD As Long
    bottomD = Range("D" & Rows.Count).End(xlUp).Row
    Dim rng As Range
    For Each rng In Range("D2:D" & bottomD)
        If rng = "" Then
            rng = Range("P" & rng.Row)
            Range("P" & rng.Row).ClearContents
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub

 

[bharned3]

Sweet I think that worked, although it came over as a number. Is there a way to bring the formatting or apply a date format after

 

[mumps]

Try this one:

Sub CopyCell()
    Application.ScreenUpdating = False
    Dim bottomD As Long
    bottomD = Range("D" & Rows.Count).End(xlUp).Row
    Dim rng As Range
    For Each rng In Range("D2:D" & bottomD)
        If rng = "" Then
            Range("P" & rng.Row).Copy
            Range("D" & rng.Row).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
            Range("P" & rng.Row).ClearContents
        End If
    Next rng
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

[bharned3]

Thanks so much that worked....

 

[bharned3]

okay I hit a bug, It is not copying or deleting the last 2 rows?

 

[bharned3]

okay I hit a bug, It is not copying or deleting the last 2 rows?

I am calling this code 3 times for different columns and it works great on all except the last 2 rows. after that step I also delete another column, if I try to delete the columns P (with VBA) where the data exists that did not get copied it doesn't go away either.

hope that makes sense..

Thanks again for the help

 

[mumps]

It would be hard to diagnose without seeing your actual file. Could you upload your file to a free site such as www.box.com where after marking it for sharing, you can get a link to the file which you can post here. Also clarify how you are using it for different columns and why you are deleting certain columns.