multiple conditioning macro

[beczer]

Hi

I need your help. I have a problem with multiple conditioning in VBA

If LCase(Trim(.Cells(lRow, "P"))) = "0" & LCase(Trim(.Cells(lRow, "N"))) = "Name" & LCase(Trim(.Cells(lRow, "O"))) = "Language" Then FPATH = Sheet3.[l5]        If LCase(Trim(.Cells(lRow, "P"))) = "1" & LCase(Trim(.Cells(lRow, "N"))) = "Name" & LCase(Trim(.Cells(lRow, "O"))) = "Language" Then FPATH = Sheet3.[l6]
        If LCase(Trim(.Cells(lRow, "P"))) = "0" & LCase(Trim(.Cells(lRow, "N"))) = "Name2" & LCase(Trim(.Cells(lRow, "O"))) = "Language" Then FPATH = Sheet3.[l7]
        If LCase(Trim(.Cells(lRow, "P"))) = "1" & LCase(Trim(.Cells(lRow, "N"))) = "Name2" & LCase(Trim(.Cells(lRow, "O"))) = "Language" Then FPATH = Sheet3.[l8]
  
        If LCase(Trim(.Cells(lRow, "P"))) = "0" & LCase(Trim(.Cells(lRow, "N"))) = "Name" & LCase(Trim(.Cells(lRow, "O"))) = "Language2" Then FPATH = Sheet3.[l9]
        If LCase(Trim(.Cells(lRow, "P"))) = "1" & LCase(Trim(.Cells(lRow, "N"))) = "Name" & LCase(Trim(.Cells(lRow, "O"))) = "Language2" Then FPATH = Sheet3.[l10]
        If LCase(Trim(.Cells(lRow, "P"))) = "0" & LCase(Trim(.Cells(lRow, "N"))) = "Name2" & LCase(Trim(.Cells(lRow, "O"))) = "Language2" Then FPATH = Sheet3.[l11]
        If LCase(Trim(.Cells(lRow, "P"))) = "1" & LCase(Trim(.Cells(lRow, "N"))) = "Name2" & LCase(Trim(.Cells(lRow, "O"))) = "Language2" Then FPATH = Sheet3.[l12] 
	Else FPATH = Sheet3.[l5]

It doesn't work. Above code take (process) only first row.

Thank you in advance for your support

 

[wideboydixon]

LCase() = "Name" and LCase() = "Language" will NEVER be true because LCase takes a lower case version. The code is not particularly efficient but at the very least you need to use "name", "name2", "language" and "language2".

WBND