Matching formula Problem with OR function

Hello Experts

I have a program that check each line and return true or false within the date criteria

Something wrong with the formula "or" can someone look at this

Thanks

ub hul()

Dim currentsheet As String
Dim LR As Long


currentsheet = InputBox("month/year", "month/year")


LR = Range("A" & Rows.Count).End(xlUp).Row

    Range("I2").Select
    ActiveCell.FormulaR1C1 = "=MONTH(RC[-3])&YEAR(RC[-3])"
    Range("I2").Select
    Selection.AutoFill Destination:=Range("I2:I" & LR)
    Range("I1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "month/year of departure"
    Columns("I:I").ColumnWidth = 13
    
LR = 0

LR = Range("A" & Rows.Count).End(xlUp).Row

    Range("j2").Select
    ActiveCell.FormulaR1C1 = "=MONTH(RC[-3])&YEAR(RC[-3])"
    Range("j2").Select
    Selection.AutoFill Destination:=Range("j2:j" & LR)
    Range("j1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "month/year of arrival"
    Columns("J:J").ColumnWidth = 13
    
LR = 0

LR = Range("A" & Rows.Count).End(xlUp).Row

    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=OR(RC[-2])=currentsheet,OR(RC[-1])=currentsheet"
    Range("K2").Select
    Selection.AutoFill Destination:=Range("K2:K" & LR)
    Range("K1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "Match"
    Columns("K:K").ColumnWidth = 13
    
LR = 0

End Sub

hi Shark Man,
What are you trying to do?

hmmm...possibly...try this...

Sub hul()
    Dim currentsheet As String
    Dim LR As Long
    currentsheet = InputBox("month/year", "month/year")
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("I2").FormulaR1C1 = "=MONTH(RC[-3])&YEAR(RC[-3])"
    Range("I2").AutoFill Destination:=Range("I2:I" & LR)
    Range("I1").Value = "month/year of departure"
    Columns("I:I").ColumnWidth = 13
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("j2").FormulaR1C1 = "=MONTH(RC[-3])&YEAR(RC[-3])"
    Range("j2").AutoFill Destination:=Range("j2:j" & LR)
    Range("j1").Value = "month/year of arrival"
    Columns("J:J").ColumnWidth = 13
    LR = 0
    LR = Range("A" & Rows.Count).End(xlUp).Row
    Range("K2").FormulaR1C1 = "=or((RC[-2])=" & currentsheet & ",(RC[-1])=" & currentsheet & ")"
    Range("K2").AutoFill Destination:=Range("K2:K" & LR)
    Application.CutCopyMode = False
    Range("K2").Value = "Match"
    Columns("K:K").ColumnWidth = 13
    LR = 0
End Sub

Hello Pike
Thanks for your help
You understand exactly what I mean, Thanks
But,
I have problem because the date is formula and i cannot match probably because I need to transfer to number

Please find the excel file
Thanks

Shark

Hello Shark Man,

The reason the Or doesn't match is the cell values in columns "J" and "I" are text, not numbers. The formulae in those columns use the ampersand "&". To Excel this means concatenate the values. Excel will convert any non text value to text when this character is used in a formula.

Example of Formula in J2
=MONTH(G2)&YEAR(G2)

Example of Formula in K2
=OR((I2)=52009,(J2)=52009)

Corrected OR
=OR((I2)="52009",(J2)="52009")

Hello Shark,

What does currentsheet refer to?