Conditional copy & paste

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello,

I'm new to both the newsgroup and VBA programming. I have a simple problem that I can't seem to work past and I am looking for some help. I have an Excel spreadsheet with data in adjacent columns. The number of rows is variable. I would like to copy the data from the B column to the A column if the data in B is > zero.

45 0
0 23 (copy this B cell to the adjacent a cell)
12 0
10 0

I'm trying to use an If Then statement but I can't seem to copy from one cell and paste to another in the same statement.

Thanks
RonD
 
Sub ConditionalPaste()
Dim c As Range
For Each c In Range("B1:B1000").Cells
If c > 0 Then c.Copy c.Offset(, -1)
Next
End Sub

--

Vasant




RonD said:
Hello,

I'm new to both the newsgroup and VBA programming. I have a simple
Click to expand...
problem that I can't seem to work past and I am looking for some help. I
have an Excel spreadsheet with data in adjacent columns. The number of rows
is variable. I would like to copy the data from the B column to the A
column if the data in B is > zero.
45 0
0 23 (copy this B cell to the adjacent a cell)
12 0
10 0

I'm trying to use an If Then statement but I can't seem to copy from one
Click to expand...
cell and paste to another in the same statement.
 
Back
Top