IF statement is not working

[aayaanmayank]

Hi All,

Can anyone help me out on below code.

I have to update final rating in column D. following is the sequence if Column has rating then update in column d, else copy rating from column b & if column a & b does not have rating the copy rating from column c

[TABLE="width: 256"]
<colgroup><col width="64" span="4" style="width:48pt"> </colgroup><tbody>[TR]
[TD="class: xl65, width: 64"]OP[/TD]
[TD="class: xl65, width: 64"]PO[/TD]
[TD="class: xl65, width: 64"]PO1[/TD]
[TD="class: xl65, width: 64"]Final[/TD]
[/TR]
[TR]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[/TR]
[TR]
[TD="class: xl66"] [/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[/TR]
[TR]
[TD="class: xl66"] [/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[/TR]
[TR]
[TD="class: xl66"] [/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[/TR]
[TR]
[TD="class: xl66"] [/TD]
[TD="class: xl66"] [/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[/TR]
[TR]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]B[/TD]
[TD="class: xl66"] [/TD]
[TD="class: xl66"]A[/TD]
[/TR]
[TR]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[/TR]
[TR]
[TD="class: xl66"] [/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[/TR]
[TR]
[TD="class: xl66"] [/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[TD="class: xl66"]A[/TD]
[/TR]
</tbody>[/TABLE]

Sub mi()

Set FL = ThisWorkbook.Worksheets("Export Worksheet")


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


For U = 2 To LASTROW


If Cells(U, "c").Value = True Then
    Cells(U, "C").Copy
    Cells(U, "F").PasteSpecial


ElseIf Cells(U, "D").Value = True Then
    Cells(U, "D").Copy
    Cells(U, "F").PasteSpecial
    
End If
Next
End Sub

 

[sergioMabres]

Hi aayaanmayank ,
The line "If Cells(U, "c").Value = True Then" is wrong use <>"" like showed below

...
If Cells(U, "c").Value <> "" Then
    Cells(U, "C").Copy
    Cells(U, "F").PasteSpecial




ElseIf Cells(U, "D").Value <> "" Then
    Cells(U, "D").Copy
    Cells(U, "F").PasteSpecial
    
End If
...

Cheers
Sergio

 

[Finalfight40]

Is something like this what you are looking for?

Sub mi()


Set FL = ThisWorkbook.Worksheets("[COLOR=#333333]Export Worksheet[/COLOR]")




LASTROW = Application.Max(FL.Range("A" & Rows.Count).End(xlUp).Row, FL.Range("B" & Rows.Count).End(xlUp).Row, FL.Range("C" & Rows.Count).End(xlUp).Row)




For U = 2 To LASTROW
    
If Not IsEmpty(Cells(U, 1)) Then
    Cells(U, 4).Value = Cells(U, 1).Value
ElseIf Not IsEmpty(Cells(U, 2)) Then
    Cells(U, 4).Value = Cells(U, 2).Value
ElseIf Not IsEmpty(Cells(U, 3)) Then
    Cells(U, 4).Value = Cells(U, 3).Value
End If


Next
End Sub

 

[vds1]

Excel formula in D2,

=IF(A2="",IF(B2="",IF(C2="","Can't Determine",C2),B2),A2)

 

[Fluff]

Another option, based on your code rather than your description

Sub aayaanmayank()
   With Sheets("Export Worksheet")
      With .Range("F2", .Range("A" & Rows.Count).End(xlUp).Offset(, 5))
         .Value = Evaluate(Replace(Replace(Replace("if(@c<>"""",@c,if(@d<>"""",@d,@e))", "@c", .Offset(, -3).Address), "@d", .Offset(, -2).Address), "@e", .Offset(, -1).Address))
      End With
   End With
End Sub