Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 1
Default Can I delete a row automatically after each day is over

I have a schedule made in excel for my employees for each day from now until
2010. When the employees look at the schedule they have to scroll down until
they find todays date. My question is, when they open excel, can todays date
automatically be on the top row or can the past dates be deleted
automatically?
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 3,718
Default Can I delete a row automatically after each day is over

Take a look Advanced Filter


"delete automatically" wrote:

I have a schedule made in excel for my employees for each day from now until
2010. When the employees look at the schedule they have to scroll down until
they find todays date. My question is, when they open excel, can todays date
automatically be on the top row or can the past dates be deleted
automatically?

  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 37
Default Can I delete a row automatically after each day is over

I looked at advance filter but not sure what to do with it

"Teethless mama" wrote:

Take a look Advanced Filter


"delete automatically" wrote:

I have a schedule made in excel for my employees for each day from now until
2010. When the employees look at the schedule they have to scroll down until
they find todays date. My question is, when they open excel, can todays date
automatically be on the top row or can the past dates be deleted
automatically?

  #4   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 709
Default Can I delete a row automatically after each day is over

Here is one way,

Private Sub Workbook_Open()
'will go to todays date on open, dates in column A,
'of sheet named sheet1
On Error Resume Next
Sheets("Sheet1").Select

ThisDay = DateValue(Date)
Range("A1").Select
i = 0
Do While ActiveCell.Offset(i, 0).Value < ThisDay
i = i + 1
Loop
Application.Goto Reference:=ActiveCell.Offset(i, 0), _
scroll:=True
End Sub



To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is at the top-left of the spreadsheet this will
open the VBA editor to the thisworkbook module, then, paste the code in the
window that opens on the right hand side, press Alt and Q to close this
window and go back to your workbook, now this will run every time you open
the workbook. If you are using excel 2000 or newer you may have to change
the macro security settings to get the macro to run. To change the security
settings go to tools, macro, security, security level and set it to medium
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"delete automatically" wrote
in message ...
I looked at advance filter but not sure what to do with it

"Teethless mama" wrote:

Take a look Advanced Filter


"delete automatically" wrote:

I have a schedule made in excel for my employees for each day from now
until
2010. When the employees look at the schedule they have to scroll down
until
they find todays date. My question is, when they open excel, can todays
date
automatically be on the top row or can the past dates be deleted
automatically?



  #5   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 37
Default Can I delete a row automatically after each day is over

Paul,

This is exactly was I was looking to do. Your a genius, thanks a milliion


"Paul B" wrote:

Here is one way,

Private Sub Workbook_Open()
'will go to todays date on open, dates in column A,
'of sheet named sheet1
On Error Resume Next
Sheets("Sheet1").Select

ThisDay = DateValue(Date)
Range("A1").Select
i = 0
Do While ActiveCell.Offset(i, 0).Value < ThisDay
i = i + 1
Loop
Application.Goto Reference:=ActiveCell.Offset(i, 0), _
scroll:=True
End Sub



To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is at the top-left of the spreadsheet this will
open the VBA editor to the thisworkbook module, then, paste the code in the
window that opens on the right hand side, press Alt and Q to close this
window and go back to your workbook, now this will run every time you open
the workbook. If you are using excel 2000 or newer you may have to change
the macro security settings to get the macro to run. To change the security
settings go to tools, macro, security, security level and set it to medium
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"delete automatically" wrote
in message ...
I looked at advance filter but not sure what to do with it

"Teethless mama" wrote:

Take a look Advanced Filter


"delete automatically" wrote:

I have a schedule made in excel for my employees for each day from now
until
2010. When the employees look at the schedule they have to scroll down
until
they find todays date. My question is, when they open excel, can todays
date
automatically be on the top row or can the past dates be deleted
automatically?






  #6   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 37
Default Can I delete a row automatically after each day is over

One more question
everything works great, but is there a way to keep a header for each
categorie with out that dissapearing?

"Paul B" wrote:

Here is one way,

Private Sub Workbook_Open()
'will go to todays date on open, dates in column A,
'of sheet named sheet1
On Error Resume Next
Sheets("Sheet1").Select

ThisDay = DateValue(Date)
Range("A1").Select
i = 0
Do While ActiveCell.Offset(i, 0).Value < ThisDay
i = i + 1
Loop
Application.Goto Reference:=ActiveCell.Offset(i, 0), _
scroll:=True
End Sub



To put in this macro, from your workbook right-click the workbook's icon and
pick View Code. This icon is at the top-left of the spreadsheet this will
open the VBA editor to the thisworkbook module, then, paste the code in the
window that opens on the right hand side, press Alt and Q to close this
window and go back to your workbook, now this will run every time you open
the workbook. If you are using excel 2000 or newer you may have to change
the macro security settings to get the macro to run. To change the security
settings go to tools, macro, security, security level and set it to medium
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"delete automatically" wrote
in message ...
I looked at advance filter but not sure what to do with it

"Teethless mama" wrote:

Take a look Advanced Filter


"delete automatically" wrote:

I have a schedule made in excel for my employees for each day from now
until
2010. When the employees look at the schedule they have to scroll down
until
they find todays date. My question is, when they open excel, can todays
date
automatically be on the top row or can the past dates be deleted
automatically?




  #7   Report Post  
Posted to microsoft.public.excel.worksheet.functions
external usenet poster
 
Posts: 709
Default Can I delete a row automatically after each day is over

Select B2 or another cell if you also want to see more columns if you scroll
to the right and then window, freeze panes, row 1 will now be visible

Thanks for the feed back
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003

"delete automatically" wrote
in message ...
One more question
everything works great, but is there a way to keep a header for each
categorie with out that dissapearing?

"Paul B" wrote:

Here is one way,

Private Sub Workbook_Open()
'will go to todays date on open, dates in column A,
'of sheet named sheet1
On Error Resume Next
Sheets("Sheet1").Select

ThisDay = DateValue(Date)
Range("A1").Select
i = 0
Do While ActiveCell.Offset(i, 0).Value < ThisDay
i = i + 1
Loop
Application.Goto Reference:=ActiveCell.Offset(i, 0), _
scroll:=True
End Sub



To put in this macro, from your workbook right-click the workbook's icon
and
pick View Code. This icon is at the top-left of the spreadsheet this will
open the VBA editor to the thisworkbook module, then, paste the code in
the
window that opens on the right hand side, press Alt and Q to close this
window and go back to your workbook, now this will run every time you
open
the workbook. If you are using excel 2000 or newer you may have to
change
the macro security settings to get the macro to run. To change the
security
settings go to tools, macro, security, security level and set it to
medium
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003


"delete automatically"
wrote
in message ...
I looked at advance filter but not sure what to do with it

"Teethless mama" wrote:

Take a look Advanced Filter


"delete automatically" wrote:

I have a schedule made in excel for my employees for each day from
now
until
2010. When the employees look at the schedule they have to scroll
down
until
they find todays date. My question is, when they open excel, can
todays
date
automatically be on the top row or can the past dates be deleted
automatically?






Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
how do I delete a row automatically after each date delete automatically Excel Discussion (Misc queries) 11 December 20th 06 08:40 PM
how do I delete a row automatically after each date ends delete automatically Excel Discussion (Misc queries) 0 December 20th 06 03:22 PM
I can't delete a cell without deleting a row Tenny Excel Discussion (Misc queries) 2 June 30th 06 12:52 AM
How do I delete the automatically inserted ' in every Excel cell? SLW Excel Discussion (Misc queries) 6 August 24th 05 03:17 PM
Is there a way to insert a formula, password or macro in an excel spreadsheet that will automatically delete the spreadsheet? oil_driller Excel Discussion (Misc queries) 1 February 8th 05 09:34 AM


All times are GMT +1. The time now is 08:15 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"