Thread
:
Cut and Paste macro
View Single Post
#
2
Posted to microsoft.public.excel.misc
Don Guillett
external usenet poster
Posts: 10,124
Cut and Paste macro
Un tested but should do it. Lots of errors but good try
Sub CutandPaste()
Dim i As Integer
'LRow = Range("A1").End(xlUp).Row
LRow = cells(rows.count,"a").end(xlup).row+1
For i = 9 To lr
If Cells(i, 2)< 0 Then
rows(i).Cut Destination:=cells(lrow,"a")
End If
Next i
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"David T" wrote in message
...
I need to fix my macro. It is giving me an error message.
The macro is supposed to do this: if the value in column B is less than
zero, the macro should cut the entire row and paste it into the last
available row. It should check rows 1- 199. Thank you in advance
Sub CutandPaste()
Dim i As Integer
LRow = Range("A1").End(xlUp).Row
For i = 9 To 199
If Cells(i, 2) 0 Then
EntireRow.Cut Destination:=Range("a1:a" & LRow).PasteSpecial
End If
Next i
End Sub
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett