VBA: Cut and Paste Not Working

**Pahickham** · 2019-02-12, 06:05 PM

I have this code that is meant to either copy and paste from Inventory list to Low list, given a certain condition, or cut/paste/delete empty row from inventory list to out of service list. The copy and paste part works, but the cut section isn't pasting to the out of service list. Initially this wasn't an event type and worked fine, but then I tried converting it to an event type and now that section wont't work. I've had to rig a few things, so any help's appreciated.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)Dim i, LastRow


LastRow = Sheets("Inventory").Range("A" & Rows.Count).End(xlUp).row
Sheets("Out of Service").Range("A2:I500").ClearContents
Sheets("Low").Range("A2:I500").ClearContents
For i = 2 To LastRow


If Sheets("Inventory").Cells(i, "E").Value = "0" Then
Sheets("Inventory").Cells(i, "H").EntireRow.Cut Destination:=Sheets("Out of Service").Range("A" & Rows.Count).End(xlUp).Offset(1)
Sheets("Inventory").Range("H:H").SpecialCells(xlBlanks).EntireRow.Delete
End If


If Sheets("Inventory").Cells(i, "D").Value < Cells(i, "E") Then
Sheets("Inventory").Cells(i, "H").EntireRow.Copy Destination:=Sheets("Low").Range("A" & Rows.Count).End(xlUp).Offset(1)
End If


Next i
End Sub

**Pahickham** · 2019-02-14, 08:09 PM

Nearly 100 people have viewed this. I know it's gotta be a simple fix. Here's a copy of the excel sheets:

https://app.box.com/s/167gjv4hw1pa0ayvpvdo98wripxkblli

**alansidman** · 2019-02-14, 10:19 PM

I don't open files from sites I am not familiar with. Please upload your file directly to this site. Click on Go Advanced and scroll down to Manage Attachments.

**Pahickham** · 2019-02-15, 01:31 PM

Thanks for the reply! Sorry about the link situation, it's a website just like drop box. Anyways, the current issue I'm having with this sheet is the the "Out of Service" list will cut the desired data out when necessary, but it doesn't paste the numbers on the "Out of Service" sheet. Also when the "Out of Service" code takes place it repeats the inputs in the low column, which shouldn't happen.

**p45cal** · 2019-02-15, 02:33 PM

Come on Pahickham, you know the rules on cross-posting, supply the links and people will be more inclined to help.

**NoS** · 2019-02-15, 02:39 PM

Nearly 100 people have viewed this. I know it's gotta be a simple fix.

Perhaps asking a moderator to move this to the VBA Programming section rather than being in the Formulas section would attract more VBAers.

I know you haven't acknowledged, but have you looked at the suggestion here ?