jfmb
PmntAmt = InputBox("Please enter a payment amount", "Enter Payment")
On Error GoTo 0
If IsNumeric(PmntAmt) = False Or PmntAmt = 0 Then
MsgBox "Please enter a correct payment amount"
Exit Sub
End If
POS.Range("B16").Value = PmntAmt
POS.Range("O3").Value = Admin.Range("K8").Value 'Paid Status
End Sub
=$B$8=ROW()
=AND($D15<>"",MOD(ROW(),2)=0)
=AND($E15<>"",MOD(ROW(),2)=1)
If Not Intersect(Target, Range("J3")) Is Nothing And Range("J3").Value <> Empty Then
If InStr(Range("J3").Value, "Enter") > 0 Then Exit Sub
Orders_CustomerVendorFilter 'Run Macro to Filter name
End If
Sub Orders_CustomerVendorFilter()
POS.Range("D5:F999").ClearContents 'Clear any previous results
With Orders
.Range("L3").Value = "*" & POS.Range("J3").Value & "*"
LastRow = Range("A99999").End(xlUp).Row
If LastRow < 3 Then Exit Sub
.Range("A2:G" & LastRow).AdvancedFilter xlFilterCopy, CriteriaRange:=.Range("K2:L3"), CopyToRange:=.Range("O2:Q2"), Unique:=True
LastResultRow = .Range("O99999").End(xlUp).Row
If LastResultRow < 3 Then
MsgBox "No results found"
Exit Sub
End If
POS.Range("D5:F" & LastResultRow + 2).Value = .Range("O3:Q" & LastResultRow).Value 'Bring over search results
End With
POS.Range("D:G").EntireColumn.Hidden = False
Order_SetFooter 'Reset Foooter position
POS.Shapes("ClearResultBtn").Visible = msoCTrue
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("M3")) Is Nothing And Range("M3").Value <> Empty Then
ORDERLIST_FILTER
End If
End Sub
