arrays - why does the code below cause excel to crash? -

-

intro , issue:

loop through columns of activesheet, if there's title ask user proceed in redimensioning array, , changing value.

it keeps crashing excel after commenting out part array filled. please give me notices , opinions on issue.

about code:

this seed of vba script rearrange column different sheets depending on values in array created, each column found in activesheet represents correct order of columns saved in array , used fix order of columns in specific sheet.

i should mention there not many rows in activesheet arrays 100-200 elements long of text can long 10 letters.

 sub deletecolumns()             dim polyarr(), pointarr(), linearr(), autotitle string             dim crnttitle variant             dim crntrow, crntclmn, lastrow, lastclmn long             set wizard = activesheet      wizard             lastclmn = .cells(1, .columns.count).end(xltoleft).column             lastrow = .range("a" & .rows.count).end(xlup).row              crntclmn = 1 lastclmn                 if len(str(.cells(1,crntclmn).value)) <> 0                     msg1 = msgbox("column index of '" & str(.cells(1,crntclmn).value) & "' . wish proceed?", vbyesno, "confirmation")                         if msg1 = vbyes                             'redim polyarr(int(lastrow - 1))                             'polyarr = .range("c2:c" & lastrow).value                         end if                     end if                 next crntclmn             end              'for each crntclmn in clmnarr                   each crntrow in polyarr()                     msgbox (cstr(crntrow))                 next crntrow              'next crntclmn         end sub   **edit**:  cause of crash       msg1 = msgbox("column index of '" & str(.cells(crntclmn, 1).value) & "' . wish proceed?", vbyesno, "confirmation")                             if msg1 = vbyes                             end if  removed asking user part making code this:      sub deletecolumns()         on error goto local_err         msgbox ("hi world")         dim polyarr(), autotitle string         dim crnttitle variant         dim crntrow, crntclmn, lastrow, lastclmn long         set wizard = activesheet         msgbox ("hiwirld")         wizard             lastclmn = .cells(1, .columns.count).end(xltoleft).column             lastrow = .range("a" & .rows.count).end(xlup).row        msgbox ("hiwrld" & str(lastclmn) & str(lastrow))             crntclmn = 1 lastclmn                 msgbox ("hidon" & str(crntclmn))                 if len(.cells(crntclmn, 1).value) <> 0                  msgbox ("hidonduck" & str(crntclmn))                     'msg1 = msgbox("column index of '" & str(.cells(crntclmn, 1).value) & "' . wish proceed?", vbyesno, "confirmation")                     'if msg1 = vbyes                         redim polyarr(int(lastrow - 1))                         polyarr = .range("c2:c" & lastrow).value     1                'end if                 end if             next crntclmn         end          'for each crntclmn in clmnarr               'for each crntrow in polyarr()                 'msgbox (cstr(crntrow))             'next crntrow          'next crntclmn      local_exit:         exit sub      local_err:         msgbox ex & " " & err.description ' use ctrl-break         resume local_exit         resume ' set next statement here goto line in error     end sub

and works now, still why cant run msgbox in there?

not answer long comment...

use , error handler:

sub deletecolumns() on error goto local_err  '    <your code>  local_exit:     exit sub  local_err:     msgbox ex & " " & err.description ' use ctrl-break     resume local_exit     resume ' set next statement here goto line in error end sub

run code see error. use ctrl-break go ide , set next statement resume.


Comments

Post a Comment

Popular posts from this blog

Java 3D LWJGL collision -

-
i making 3d java game lwjgl library, , wondering how add collision detection, player not go through models. i using obj models. here objloader class, loads models: package renderengine; import java.io.bufferedreader; import java.io.file; import java.io.filenotfoundexception; import java.io.filereader; import java.util.arraylist; import java.util.list; import models.rawmodel; import org.lwjgl.util.vector.vector2f; import org.lwjgl.util.vector.vector3f; public class objloader { public static rawmodel loadobjmodel(string filename, loader loader){ filereader fr = null; try { fr = new filereader(new file("res/"+filename+".obj")); } catch (filenotfoundexception e) { system.err.println("couldn't load file!"); e.printstacktrace(); } bufferedreader reader = new bufferedreader(fr); string line; list<vector3f> vertices = new arraylist<vector3f...
Read more

spring - SubProtocolWebSocketHandler - No handlers -

-
i have ugly error during deploying spring app on jboss. 18:11:16,025 error [org.apache.catalina.core.containerbase.[jboss.web].[default-host].[/consumer]] (msc service thread 1-7) exception sending context initialized event listener instance of class org.springframework.web.context.contextloaderlistener: org.springframework.context.applicationcontextexception: failed start bean 'subprotocolwebsockethandler'; nested exception java.lang.illegalargumentexception: no handlers @ org.springframework.context.support.defaultlifecycleprocessor.dostart(defaultlifecycleprocessor.java:176) [spring-context-4.1.3.release.jar:4.1.3.release] @ org.springframework.context.support.defaultlifecycleprocessor.access$200(defaultlifecycleprocessor.java:51) [spring-context-4.1.3.release.jar:4.1.3.release] @ org.springframework.context.support.defaultlifecycleprocessor$lifecyclegroup.start(defaultlifecycleprocessor.java:346) [spring-context-4.1.3.release.jar:4.1.3.release] @ org.s...
Read more

methods - python can't use function in submodule -

-
my folder structure this: pythonstuff/ program.py modulea/ __init__.py foo.py bar.py here's code bar.py : def hello(): print("hello, world!") here's code program.py : #!/usr/bin/env python3 modulea import bar bar.hello() i run $ python3 program.py somehow error: file "program.py", line 3, in <module> bar.hello() attributeerror: 'module' object has no attribute 'hello' edit: __init__.py file empty. edit2: after trying realized had bar.py in root directory contained hello() method. bar.py in modulea/ directory empty. add it import os __all__ = [] module in os.listdir(os.path.dirname(__file__)): if module != '__init__.py' , module[-3:] == '.py': __all__.append(module[:-3]) the init .py files required make python treat directories containing packages; done prevent directories common name, such string, unintentionally hiding v...
Read more