Macro for Rows condition Closed

Question

Hello, 

This is Chakri, When im trying to put the macro conditions for the rows,i.e means in the table from range A1:D100 A1 ,B1,C1,D1 Cells have codes like ABC,DEF,GHI,JKL and the macro has to search for the condition in the table is there any cell in the same columns has same code ABC,DEF,GHI,JKL and then it should give the name in the F1 Cell as OKAY.

TrowaD · Answer

Hi Chakri,

What I understand from your query is that:

For range A2:A100 find text "ABC", when found add text "OKAY" in F1.
For range B2:B100 find text "DEF", when found add text "OKAY" in F1.
For range C2:C100 find text "GHI", when found add text "OKAY" in F1.
For range D2:D100 find text "JKL", when found add text "OKAY" in F1.
When nothing is found do nothing.

Use the following code to do the above:
Sub test()
    Set MRA = Range("A2:A100")
    Set MRB = Range("B2:B100")
    Set MRC = Range("C2:C100")
    Set MRD = Range("D2:D100")
For Each cell In MRA
    If cell.Value = "ABC" Then Range("F1").Value = "OKAY"
        Next
For Each cell In MRB
    If cell.Value = "DEF" Then Range("F1").Value = "OKAY"
        Next
For Each cell In MRC
    If cell.Value = "GHI" Then Range("F1").Value = "OKAY"
        Next
For Each cell In MRD
    If cell.Value = "JKL" Then Range("F1").Value = "OKAY"
        Next
End Sub
Did I understood you correctly?

Best regards,
Trowa

Macro for Rows condition

1 response

Similar discussions

Subscribe To Our Newsletter!