Cut and Paste Macro

[Legacy 436357]

Hi is there a code that will cut and paste in a range if cell D is not blank and paste in cell B?

Thank you

 

[alansidman]

If not isnull(range("D" & i) then
Range("D" & i).copy Range("B" & i)

 

[Legacy 436357]

Thank you I will give it a go.

 

[Legacy 436357]

I want to nest it within another code is it possible?

 

[alansidman]

yes

 

[Legacy 436357]

I tried and it shows red on the first line. Does it have to be declared?

expected list or )

 

[alansidman]

Suggest you give us more information. Your questions are too vague to give you a response. Provide a scenario with examples of what you want to happen. We are not mind readers here and really have no idea what you want to happen.

 

[Legacy 436357]

Sorry please ignore my request. I will try to figure out what it is I need to do.

My sincere apologies for the trouble.

 

[Legacy 436357]

Okay I think I know what I want to happen. I have dates in column A and numbers in column B. When a date is entered in column C and a number is entered in column D I want those to replace the date in column A and the number in column B.

Is this possible with a formula or does it have to be a macro to accomplish?

 

[alansidman]

Sub xjohnson()
Dim i as long, lr as long
lr = Range("A" & rows.count).end(xlup).row
For i = 1 to lr
Range("A" & i)= Range("C" & i)
Range("B" & i) = Range("D" & i)
Next i
End Sub

Standard Module
How to install your new code
Copy the Excel VBA code
Select the workbook in which you want to store the Excel VBA code
Press Alt+F11 to open the Visual Basic Editor
Choose Insert > Module
Edit > Paste the macro into the module that appeared
Close the VBEditor
Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)


To run the Excel VBA code:
Press Alt-F8 to open the macro list
Select a macro in the list
Click the Run button