VBA code to get the Final Status

[ranji]

U	V	W	X	Y	Z	AA	AB	AC	AB	AE	AF
Received	Submital	status	Received	Submital	status	Received	Submital	Status	Sample	Current Status	Review Period
21-10-14	22-10-14	C	23-10-14	24-10-14	C	25-10-14	26-10-14	A	No	?	?

<tbody>
</tbody>

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!