If Elseif else statement

[vijaycs]

How to write a VBA code to get the below output.


If Column A = Internal, Then column F = ok and


If Column C = Long or Short Then column F = ok


and if Column A is anything else, then it should check if Column C = Long or Short if yes then column F = ok else column F = check.


Thank you in Advance

 

[kweaver]

Are you comparing Column A's ROWS with the word "Internal" and C's ROWS with the words "Long" or "Short" ?

 

[kweaver]

If so (per my previous post), then try:

Sub CheckCells()
Dim lr As Long, i As Integer
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lr
 If Cells(i, 1) = "Internal" And (Cells(i, 3) = "Long" Or Cells(i, 3) = "Short") Then
 Cells(i, 6) = "OK"
 Else
 Cells(i, 6) = "Check"
 End If
Next i
End Sub

You don't actually need VBA for this. You can fill this down in the F column:

=IF(AND("Internal"=A1,OR("Long"=C1,"Short"=C1)),"OK","Check")

 

[Fluff]

My take on this.
Via formula
=IF(A2="Internal","Ok",IF(OR(C2={"Long","short"}),"Ok","Check"))

code

Sub vijaycs()
   With Range("F2:F" & Range("A" & Rows.Count).End(xlUp).Row)
      .Value = Evaluate(Replace("IF(" & .Offset(, -5).Address & "=""Internal"",""Ok"",IF((@c=""Long"")+(@c=""short""),""Ok"",""Check""))", "@c", .Offset(, -3).Address))
   End With
End Sub