to see data on top

[shafiq247]

Hi good evening
I am working on a file which have lot of data, I daily update that file, now my question if I enter a date in date cell that row go automatically on top of the blank cell
Thanks

 

[Joe4]

I don't think your question is all that clear.
It may make more sense to us if you can walk us through an actual example with data.

 

[shafiq247]

[TABLE="width: 500"]
<tbody>[TR]
[TD]Customer
[/TD]
[TD]Finish
[/TD]
[TD]Order Qty
[/TD]
[TD]Received by
[/TD]
[TD]Date
[/TD]
[/TR]
[TR]
[TD]Levi's
[/TD]
[TD]Button On
[/TD]
[TD]3082
[/TD]
[TD]XYZ
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Levi's
[/TD]
[TD]Bad
[/TD]
[TD]3120
[/TD]
[TD]abc
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]J Crew
[/TD]
[TD]Frost
[/TD]
[TD]6287
[/TD]
[TD]xyz
[/TD]
[TD]7-10-2019
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
no my question is if I put date in date cell, that row go automatically on top of all rows

 

[shafiq247]

I need a code, if a enter date in date cell the entire row move up on empty (date) rows

 

[lrobbo314]

This seems to do what you are looking for. This code assumes that you don't have anything in column F.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("E2:E" & Rows.Count), Target) Is Nothing Then
    If IsDate(Target.Value) Then
        Target.Offset(, 1).Value = 1
        Range("A1").CurrentRegion.Sort Key1:=Range("F1"), Order1:=xlAscending, Header:=xlYes
        Range("F:F").ClearContents
    End If
End If
End Sub

 

[shafiq247]

I put this code in sheet but it's not working,( column f is date column )

 

[My Aswer Is This]

From looking at your post I would have thought column E was the column you wanted to enter date in.
So is column G being used?

I put this code in sheet but it's not working,( column f is date column )

 

[shafiq247]

now I understand its working
thanks a lot

 

[shafiq247]

thanks for assistance,
code is working but there is 1 problem
I want to skip top two rows first one is title of sheet and 2nd is heading of column

 

[lrobbo314]

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("F3:F" & Rows.Count), Target) Is Nothing Then
    If IsDate(Target.Value) Then
        Target.Offset(, 1).Value = 1
        Range("B2:G" & Range("B" & Rows.Count).End(xlUp).Row).Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlYes
        Range("G:G").ClearContents
    End If
End If
End Sub