RecommendedAction = "Please perform inventory check to remove defective product. Please send images of packaging improvements or a new drop test report."ĮlseIf InStr(1, ActiveCell, "Defective Item", vbTextCompare) > 0 Then RecommendedAction = "Please review and update packaging of this product. If InStr(1, ActiveCell, "Packaging Issue", vbTextCompare) > 0 Then If InStr(1, ActiveCell, "Good", vbTextCompare) > 0 ThenĮlseIf InStr(1, ActiveCell, "Watch", vbTextCompare) > 0 ThenĮlseIf InStr(1, ActiveCell, "Physical Audit", vbTextCompare) > 0 ThenĮlseIf issuetype = "Item Enhancement" ThenĮlseIf issuetype = "Return Hold Report" Then WRrowcount = WR.Range("C1").ĭo While ActiveCell.Row 0 Or InStr(1, ActiveCell, "Watch", vbTextCompare) > 0 Or InStr(1, ActiveCell, "Physical", vbTextCompare) > 0) Set massupload_print = Sheets("MassUpload_Print") Dim opendate As String 'Just for testing purposes, later, change to date.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |