=IF(OR(G2="VMware inc", G2="Microsoft Corporation", NOT(ISERR(FIND("trader", U2)))), "Yes", "No")
=IF(OR(G2="VMware inc", G2="Microsoft Corporation", NOT(ISERR(FIND("trader", U2)))), "Yes", "No")
Sub Macro()
LastCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For Each c In Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
If Range("G" & c.Row) = "VMware Inc" Or _
Range("G" & c.Row) = "Microsoft Corporation" Or _
LCase(Range("U" & c.Row)) = "trader" Then
Cells(c.Row, LastCol) = "Yes"
Else
Cells(c.Row, LastCol) = "No"
End If
Next
End Sub
Regards
=IF(OR(OR(G1="Microsoft",G1="Vmware"),U1="Trader"),"YES","No")
=IF(OR(G2="VMware inc", G2="Microsoft Corporation", NOT(ISERR(FIND("trader", LOWER(U2))))), "Yes", "No")
=IF(OR(OR(G1="Microsoft Corporation",G1="VMware inc"),U1="trader"),"YES","No")
Dim rng As Range
With Sheets("Sheet1") ' change Sheet1 to relevant sheet
' find next empty column in first row
Set rng = .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1)
Set rng = rng.Resize(.Range("G" & .Rows.Count).End(xlUp).Row - 1)
With rng
.Formula = "=IF(OR(G2=""VMware inc"", G2=""Microsoft Corporation"", U2=""trader""), ""Yes"", ""No"")"
.Value = .Value
End With
End With
Dim rng As Range
Sub Exempt()
With Sheets(1)
' find next empty column in second row
Set rng = .Cells(2, .Columns.Count).End(xlToLeft).Offset(, 1)
Set rng = rng.Resize(.Range("G" & .Rows.Count).End(xlUp).Row - 1)
With rng
.Formula = "=IFERROR(IF(OR(G2=""VMware, Inc."", G2=""Microsoft Corporation"",IFERROR(U2=""Yes"",FALSE)), ""Yes"", ""No""), ""No"")"
.Value = .Value
End With
End With
End Sub
Title | # Comments | Views | Activity |
---|---|---|---|
Formula to check previous row results before displaying result | 15 | 23 | |
Merging multiple rows to one | 22 | 32 | |
Connect to a database from Excel using JDBC instead of ODBC | 3 | 20 | |
Excel split data and output all combinations. | 2 | 14 |
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
9 Experts available now in Live!