VBA code to get the Final Status

[ranji]

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD="align: center"]U[/TD]
[TD="align: center"]V[/TD]
[TD="align: center"]W[/TD]
[TD="align: center"]X[/TD]
[TD="align: center"]Y[/TD]
[TD="align: center"]Z[/TD]
[TD="align: center"]AA[/TD]
[TD="align: center"]AB[/TD]
[TD="align: center"]AC[/TD]
[TD="align: center"]AB[/TD]
[TD="align: center"]AE[/TD]
[TD="align: center"]AF[/TD]
[/TR]
[TR]
[TD="align: center"]Received[/TD]
[TD="align: center"]Submital[/TD]
[TD="align: center"]status[/TD]
[TD="align: center"]Received [/TD]
[TD="align: center"]Submital[/TD]
[TD="align: center"]status[/TD]
[TD="align: center"]Received[/TD]
[TD="align: center"]Submital[/TD]
[TD="align: center"]Status[/TD]
[TD="align: center"]Sample[/TD]
[TD="align: center"]Current Status[/TD]
[TD="align: center"]Review Period[/TD]
[/TR]
[TR]
[TD="align: center"]21-10-14[/TD]
[TD="align: center"]22-10-14[/TD]
[TD="align: center"]C[/TD]
[TD="align: center"]23-10-14[/TD]
[TD="align: center"]24-10-14[/TD]
[TD="align: center"]C[/TD]
[TD="align: center"]25-10-14[/TD]
[TD="align: center"]26-10-14[/TD]
[TD="align: center"]A[/TD]
[TD="align: center"]No[/TD]
[TD="align: center"]?[/TD]
[TD="align: center"]?[/TD]
[/TR]
</tbody>[/TABLE]


Dear Friends,
I am new here, Please help me obtain the VBA code as per Above Mention Table.

How to get the Current Status Automatically on (AE) column whenever or Whatever Status Code I Enter on Status Column ( (W), (Z),(AC)).
also how the get the Number of days Between tow dates in (AF) Columns.


Thanks in Advance
Ranji

 

[oldbrewer]

you need to define what current status is - you have 3 status columns already.....

 

[ranji]

Thanks For Reply.
Actually all 3 Status Column will not be Used at same time. Suppose I have enter the Status in Column (W) then on Column (AE) Should show the Same Status, once I enter the Status on Column (Z) it should Ignore the Previous Status on (AE) and Show the Current status of Column (Z) and same for Next Column.

Thanks in Advance

 

[YasserKhalil]

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C3")) Is Nothing Then
        Range("K3").Value = Range("C3").Value
        Exit Sub
    End If
    If Not Intersect(Target, Range("F3")) Is Nothing Then
        Range("K3").Value = Range("F3").Value
        Exit Sub
    End If
    If Not Intersect(Target, Range("I3")) Is Nothing Then
        Range("K3").Value = Range("I3").Value
        Exit Sub
    End If
End Sub

 

[YasserKhalil]

Now Try this for both requests

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C3")) Is Nothing Then
        Range("K3").Value = Range("C3").Value
        Z = DateDiff("d", Range("C3").Offset(0, -2).Value, Range("C3").Offset(0, -1).Value)
        Range("L3").Value = Z
        Exit Sub
    End If
    If Not Intersect(Target, Range("F3")) Is Nothing Then
        Range("K3").Value = Range("F3").Value
        Z = DateDiff("d", Range("F3").Offset(0, -2).Value, Range("F3").Offset(0, -1).Value)
        Range("L3").Value = Z
        Exit Sub
    End If
    If Not Intersect(Target, Range("I3")) Is Nothing Then
        Range("K3").Value = Range("I3").Value
        Z = DateDiff("d", Range("I3").Offset(0, -2).Value, Range("I3").Offset(0, -1).Value)
        Range("L3").Value = Z
        Exit Sub
    End If
End Sub

 

[ranji]

I have Try the Previous Code, I just Realize that I don't need VBA code , I need Formula for Column (AE) so I can Copy that Formula in Subsequent Lines.

I am Sorry for that.

 

[FormR]

Try in AE2:

=IF(AC2="",IF(Z2="",IF(W2="","",W2),Z2),AC2)

To get the number of days between two dates just subtract one from the other.

 

[YasserKhalil]

Try in AE2:

=IF(AC2="",IF(Z2="",IF(W2="","",W2),Z2),AC2)

To get the number of days between two dates just subtract one from the other.

To get the true results cells of the status should be empty except one...

 

[FormR]

To get the true results cells of the status should be empty except one...

Sorry, I don't follow!