comparing 3 columns with VBAI

[john222]

I need to setup code that compares 3 columns. column C will have comparison values. I am trying to compare column C to D. If column D value is matching C, column F should be greater than 1. If not I would like to prompt user "Please put greater value in column F" and exit out of the code.

Is there any easy ways to do this in VBA?

 

[L. Howard]

Give this a go. Copy to a standard module.

Change sheet name ("Sheet2") to your sheet name.

Howard

Sub Column_C_D_F()
Dim oneRng As Range
Dim c As Range

Set oneRng = Sheets("Sheet2").Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row)

For Each c In oneRng

    If c = c.Offset(, 1) Then
    
      MsgBox "Please put greater value in column F " & "Row " & c.Row
      c.Offset(, 3).Select
      Exit Sub
     
    End If

Next
End Sub

 

[john222]

Thank you so much! this is exactly what I am trying to do.

 

[L. Howard]

You're welcome. Thanks for the feed back.

Howard