SHARE
TWEET

Untitled

a guest Oct 20th, 2017 72 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub ERS_Vlookup()
  2.  
  3. Dim Lastrow As Long
  4. Dim h As Long
  5.  
  6. For h = 5 To Lastrow
  7.         If IsError(ActiveSheet.Range("H" & h).Value) Or
  8.         IsError(ActiveSheet.Range("F" & h).Value) Then
  9.             ActiveSheet.Range("J" & h).Value = " "
  10.         ElseIf ActiveSheet.Range("H" & h).Value <> " " And _
  11.                ActiveSheet.Range("F" & h).Value = 0 Then
  12.             ActiveSheet.Range("J" & h).Value = "Paid"
  13.         Else
  14.             ActiveSheet.Range("J" & h).Value = "Processed Not Yet Paid"
  15.         End If
  16.     Next h
RAW Paste Data
Top