Help on VBA and Excel
Another method:
Sub MoveToColB()
Dim lastRow, lastRow2 As Long
lastRow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
If Sheets(1).Range("C" & i) < 0 Then
lastRow2 = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
Sheets(1).Range("A" & i & ":B" & i).Copy _
Sheets(2).Cells(lastRow2 + 1, 1)
lastRow2 = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
Set CRng = Union(Sheets(1).Range("A" & i), Sheets(1).Range("C" & i))
CRng.Copy Sheets(2).Cells(lastRow2 + 1, 1)
Else
lastRow2 = Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row
Sheets(1).Range("A" & i & ":B" & i).Copy _
Sheets(2).Cells(lastRow2 + 1, 1)
End If
Next
End Sub
"AK" wrote:
Hallo,
I am not a VBA/Excel programmer, so I would like your help.
The below is what I have. Three columns of Excel in Sheet1.
A B C
---------------------------------------------------
John $30 $0
Smith $20 $10
What I want to do is the following in Sheet2.
A B
--------------------------------
John $30
Smith $20
Smith $10
How would I do it? I'd like your help.
Thanks in advance.
Kumar
|