Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help With - Compile Error: Sub or Function Not Defined
Hello, I'm receiving the following error, in the code listed below (I input
asterisks at the error point): ERROR: Compile Error: Sub or Function Not Defined Private Sub CommandButton1_Click() Dim Lrow As Long Dim CalcMode As Long Dim ViewMode As Long Dim StartRow As Long Dim EndRow As Long **************error here ********** With Application CalcMode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With ViewMode = ActiveWindow.View ActiveWindow.View = xlNormalView With ActiveSheet .DisplayPageBreaks = False StartRow = 1 EndRow = 100 For Lrow = EndRow To StartRow Step -1 If IsError(.Cells(Lrow, "A").Value) Then 'Do nothing, This avoid a error if there is a error in the cell ElseIf .Cells(Lrow, "A").Value = "APPLE" Then .Rows(Lrow).Delete 'This will delete each row with the Value "ron" in Column A, case sensitive. End If Next End With ActiveWindow.View = ViewMode With Application .ScreenUpdating = True .Calculation = CalcMode End With End Sub Can anyone tell me how to correct the situation? Any and All Help Is Appreciated - Thank You |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help With - Compile Error: Sub or Function Not Defined
It compiles for me...
-- HTH... Jim Thomlinson "MWS" wrote: Hello, I'm receiving the following error, in the code listed below (I input asterisks at the error point): ERROR: Compile Error: Sub or Function Not Defined Private Sub CommandButton1_Click() Dim Lrow As Long Dim CalcMode As Long Dim ViewMode As Long Dim StartRow As Long Dim EndRow As Long **************error here ********** With Application CalcMode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With ViewMode = ActiveWindow.View ActiveWindow.View = xlNormalView With ActiveSheet .DisplayPageBreaks = False StartRow = 1 EndRow = 100 For Lrow = EndRow To StartRow Step -1 If IsError(.Cells(Lrow, "A").Value) Then 'Do nothing, This avoid a error if there is a error in the cell ElseIf .Cells(Lrow, "A").Value = "APPLE" Then .Rows(Lrow).Delete 'This will delete each row with the Value "ron" in Column A, case sensitive. End If Next End With ActiveWindow.View = ViewMode With Application .ScreenUpdating = True .Calculation = CalcMode End With End Sub Can anyone tell me how to correct the situation? Any and All Help Is Appreciated - Thank You |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help With - Compile Error: Sub or Function Not Defined
I can't tell if that mean's you're getting an error on the "Dim Endrow" line or
the "With application" line--or the "empty" lines in between. I'd try deleting that line (or that group of lines) and retyping them. (Maybe there's an invalid (but hidden) character in that area.) MWS wrote: Hello, I'm receiving the following error, in the code listed below (I input asterisks at the error point): ERROR: Compile Error: Sub or Function Not Defined Private Sub CommandButton1_Click() Dim Lrow As Long Dim CalcMode As Long Dim ViewMode As Long Dim StartRow As Long Dim EndRow As Long **************error here ********** With Application CalcMode = .Calculation .Calculation = xlCalculationManual .ScreenUpdating = False End With ViewMode = ActiveWindow.View ActiveWindow.View = xlNormalView With ActiveSheet .DisplayPageBreaks = False StartRow = 1 EndRow = 100 For Lrow = EndRow To StartRow Step -1 If IsError(.Cells(Lrow, "A").Value) Then 'Do nothing, This avoid a error if there is a error in the cell ElseIf .Cells(Lrow, "A").Value = "APPLE" Then .Rows(Lrow).Delete 'This will delete each row with the Value "ron" in Column A, case sensitive. End If Next End With ActiveWindow.View = ViewMode With Application .ScreenUpdating = True .Calculation = CalcMode End With End Sub Can anyone tell me how to correct the situation? Any and All Help Is Appreciated - Thank You -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Microsoft Visual Basic: Compile error: Sum or Function not defined | Excel Worksheet Functions | |||
"Compile error: sub or function not defined" | Excel Discussion (Misc queries) | |||
VBAProject name compile error, not defined at compile time | Excel Programming | |||
Variable not defined compile error | Excel Programming | |||
Compile error, variable not defined | Excel Programming |