#1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 76
Default VBA Code

Hello from Steved
I used the below function posted earlier
My question is when I open check_load.exe
how do I get this to run automatically

Sub Test()
Dim r As Long
Application.ScreenUpdating = False
With Worksheets("check_load")
For r = .UsedRange.Rows.Count To 1 Step -1
If .Cells(r, "B").Value = "0" Then .Rows(r).Delete
If .Cells(r, "B").Value = "8" Then .Rows(r).Delete
If .Cells(r, "B").Value = "9" Then .Rows(r).Delete
If .Cells(r, "B").Value = "-" Then .Rows(r).Delete
If .Cells(r, "A").Value = "sum" Then .Rows(r).Delete
Next
End With
Application.ScreenUpdating = True
End Sub

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 27,285
Default VBA Code

If you meant Check_load.xls

call the macro from the workbook_open event.

If you are not familiar with events, then see
Chip Pearson's page http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy

Steved wrote in message
...
Hello from Steved
I used the below function posted earlier
My question is when I open check_load.exe
how do I get this to run automatically

Sub Test()
Dim r As Long
Application.ScreenUpdating = False
With Worksheets("check_load")
For r = .UsedRange.Rows.Count To 1 Step -1
If .Cells(r, "B").Value = "0" Then .Rows(r).Delete
If .Cells(r, "B").Value = "8" Then .Rows(r).Delete
If .Cells(r, "B").Value = "9" Then .Rows(r).Delete
If .Cells(r, "B").Value = "-" Then .Rows(r).Delete
If .Cells(r, "A").Value = "sum" Then .Rows(r).Delete
Next
End With
Application.ScreenUpdating = True
End Sub



  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 76
Default VBA Code

Thanks Tom

Yes I ment xls
-----Original Message-----
If you meant Check_load.xls

call the macro from the workbook_open event.

If you are not familiar with events, then see
Chip Pearson's page

http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy

Steved wrote in

message
...
Hello from Steved
I used the below function posted earlier
My question is when I open check_load.exe
how do I get this to run automatically

Sub Test()
Dim r As Long
Application.ScreenUpdating = False
With Worksheets("check_load")
For r = .UsedRange.Rows.Count To 1 Step -1
If .Cells(r, "B").Value = "0" Then .Rows(r).Delete
If .Cells(r, "B").Value = "8" Then .Rows(r).Delete
If .Cells(r, "B").Value = "9" Then .Rows(r).Delete
If .Cells(r, "B").Value = "-" Then .Rows(r).Delete
If .Cells(r, "A").Value = "sum" Then .Rows(r).Delete
Next
End With
Application.ScreenUpdating = True
End Sub



.

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
split post code (zip code) out of cell that includes full address Concord Excel Discussion (Misc queries) 4 October 15th 09 06:59 PM
Code to conditional format all black after date specified in code? wx4usa Excel Discussion (Misc queries) 3 December 26th 08 07:06 PM
Drop Down/List w/Code and Definition, only code entered when selec Spiritdancer Excel Worksheet Functions 2 November 2nd 07 03:57 AM
Convert a Number Code to a Text Code Traye Excel Discussion (Misc queries) 3 April 6th 07 09:54 PM
copying vba code to a standard code module 1vagrowr Excel Discussion (Misc queries) 2 November 23rd 05 04:00 PM


All times are GMT +1. The time now is 02:18 AM.

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

About Us

"It's about Microsoft Excel"