Hello,
Below is a piece of code that I have that has been working very well to cut specified values from a given range and pasting the values to a new location.
The problem that I now have that instead of looking up a text string, I need to copy all cells with a negative value to a new location.
The columns and ranges are in the below code, I just can't seem to come up with a way to call out the "negative value cells"
I would greatly appreciate any suggestions.
Thank you!
Sub SeparateNegativeBottles()
Dim Rng As Range
Dim LastRow As Long
Dim Wrd As String
Wrd = cellvalue
LastRow = Cells(Rows.Count, "D").End(xlUp).Row
If WorksheetFunction.CountIf(Columns(4), Wrd) < 0 Then
Columns("I:I").AutoFilter Field:=1, Criteria1:=Wrd
Set Rng = Range("I600:I650").SpecialCells(xlCellTypeVisible)
Rng.EntireRow.Copy Destination:=Rows(800)
End If
ActiveSheet.AutoFilterMode = False
End Sub
Bookmarks