Macro that will display Yes if customers has marked X and other criteria

[geliedee]

Hi All,

I have a a sheet which will contain thousand and thousand of numbers.
I need a macro and This should show YES or NO based on the given criteria.

For Column R:
It should show YES if the the column H has an X marked.
It should show NO if column H is blank.

For Column S:
It should show YES if the the column M has an X marked.
It should show NO if column M is blank.

For Column T:
It should show YES if the value in Column G is YSTP, YGPY, YPAY and KUNA.
It should show NOT Inscope if column G is blank or is not the same as above.

For Column U:
It should show YES if the Column O and Column P is the same.
It should show "Blank" if Column O and Column P is blank and NO if its not the same.

For Column V:
It should show YES if the Column J and Column P is the same.
It should show "Blank" if Column J and Column P is blank and NO if its not the same.


Hope you can help sample.xlsxsample.xlsx

[alansidman]

try this:

Option Explicit

Sub ams()
    Dim lr As Long
    Dim i As Long
    lr = Range("G" & Rows.Count).End(xlUp).Row
    
    Application.ScreenUpdating = False
    For i = 6 To lr
    If Range("H" & i) = "X" Then Range("R" & i) = "YES"
    Next i
    
    For i = 6 To lr
    If Range("M" & i) = "X" Then Range("S" & i) = "YES"
    Next i
    
    For i = 6 To lr
    If Range("G" & i) = "YSTP" Or Range("G" & i) = "YGPY" Or _
        Range("G" & i) = "YPAY" Or Range("G" & i) = "KUNA" Then
            Range("T" & i) = "YES"
    End If
    Next i
    
    For i = 6 To lr
    If Range("O" & i) = "" And Range("P" & i) = "" Then
    Range("U" & i) = ""
    ElseIf Range("O" & i) = Range("P" & i) Then
    Range("U" & i) = "YES"
    Else: Range("U" & i) = "NO"
    End If
    Next i
    
    For i = 6 To lr
    If Range("J" & i) = "" And Range("P" & i) = "" Then
    Range("V" & i) = ""
    ElseIf Range("J" & i) = Range("P" & i) Then
    Range("V" & i) = "YES"
    Else: Range("V" & i) = "NO"
    End If
    Next i
    
    Application.ScreenUpdating = True


End Sub

[Blokeman]

Add;
It should show NO if column H is blank.

If Range("H" & i) = "" Then Range("R" & i) = "NO"

It should show NO if column M is blank.

If Range("M" & i) = "" Then Range("S" & i) = "NO"

[naveenmarapaka]

Try

For i = 6 To lr
    If Range("H" & i) = "" Then Range("R" & i) = "NO" 
  Elseif Range("H" & i) = "X" Then Range("R" & i) = "YES"
   
End if
Next i

[alansidman]

Thanks Blokeman, I missed that. Middle of the night here and the head was not to clear.