Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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
Posted to microsoft.public.excel.programming
|
|||
|
|||
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
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Code to conditional format all black after date specified in code? | Excel Discussion (Misc queries) | |||
Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
Convert a Number Code to a Text Code | Excel Discussion (Misc queries) | |||
copying vba code to a standard code module | Excel Discussion (Misc queries) |