troubleshooting Question

Excel Report will not copy results

Avatar of Mike Orther
Mike OrtherFlag for United States of America asked on
VBAMicrosoft ExcelVisual Basic ClassicMicrosoft Office
4 Comments1 Solution227 ViewsLast Modified:
I have a button on my "Inventory" worksheet that copies items that have "On-Hand" quantity for the number I select.  It pastes the results into the OHReport worksheet.  Everything works just as I want.  

The problem I am having is when I create the same button on the "OHReport" worksheet and run it, I am prompted to enter a quantity, but no results are returned.

Private Sub SelectQtyOH_Click()

Dim OH As String
Dim x As Long
x = 2

OH = InputBox("Enter Search Quantity")
Sheets("Inventory").Select
Do While Cells(x, 1) <> ""
If Cells(x, 7) = OH Then
Worksheets("Inventory").Rows(x).Copy
Worksheets("OHReport").Activate
erow = Sheets("OHReport").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("OHReport").Rows(erow)
End If
Worksheets("Inventory").Activate
x = x + 1
Loop
Application.CutCopyMode = False

Sheets("OHReport").Select

End Sub
ASKER CERTIFIED SOLUTION
Join our community to see this answer!
Unlock 1 Answer and 4 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros