Inconsistent failures in Excel VBA for automatic row insert -


i using excel sheet track job applications.

i have 2 sheets:
1. first sheet has 1 row each application latest status
2. second sheet has each "state" every application went through eg completed application -> interview scheduled -> job offered (more completed application -> application rejected, digress).

the vb script have this:
1. on first sheet whenever status of row changed, update timestamp.
2. on second sheet, whenever status of row changed in first sheet, create new row in second sheet status ,to status , timestamp.

#1 works flawlessly. seemingly @ random (most of time when update row in middle of sheet) vba crashes "end debug" dialog box when inserting row second sheet

the script below: 

dim oval public sub worksheet_selectionchange(byval target range) oval = target.value on error resume next application.enableevents = true end sub   private sub worksheet_change(byval target range) old_value = oval application.enableevents = false if target.column = 5     cells(target.row, 6) =     dim firstemptyrow long      set rngtosearch = worksheets("level 2").range("a:a")     'check first cell isn't empty     if isempty(rngtosearch.cells(1, 1))         firstemptyrow = rngtosearch.cells(1, 1).row     else         set firstblankcell = rngtosearch.findnext(after:=rngtosearch.cells(1, 1))         if not firstblankcell nothing             firstemptyrow = firstblankcell.row         else             'no empty cell in range searched          end if     end if     debug.print firstemptyrow     worksheets("level 2").cells(firstemptyrow, 1) = worksheets("level 1").cells(target.row, 1)     worksheets("level 2").cells(firstemptyrow, 2) = old_value     worksheets("level 2").cells(firstemptyrow, 3) = worksheets("level 1").cells(target.row, 5)     worksheets("level 2").cells(firstemptyrow, 4) =  end if if target.column <> 1 , isempty(worksheets("level 1").cells(target.row, 1))     dim curr_id long     curr_id = worksheets("level 1").cells(target.row - 1, 1)     if worksheets("level 1").cells(target.row - 1) = 1         curr_id = 1     end if     worksheets("level 1").cells(target.row, 1) = curr_id + 1 end if on error resume next  application.enableevents = true end sub

i tried little bit of debugging , here's got:
firstemptyrow value 0 whenever vba crashes on line worksheets("level 2").cells(firstemptyrow, 1) = worksheets("level 1").cells(target.row, 1)

this tells me thought range search whole column (which must have empty row @ point considering ~200 rows till now) have not done enough vb programming figure out how fix , hoping 1 of folks can me out.

thanks!


Comments

Post a Comment

Popular posts from this blog

How to put a lock and transaction on table using spring 4 or above using jdbcTemplate and annotations like @Transactional? -

i trying put lock on table while writing on table , if happened in between roll-back . trying convert below code lock table test_g1 read; lock table test_g write; -- begin; start transaction; insert test_g1 values(143); insert test_g values(145); select * test_g1; select * test_g; rollback; select * test_g; unlock tables; how convert above code @transactional spring jdbctemplate code? @transactional(rollbackfor={dataaccessexception.class}) public void test(){ jdbctemplate.execute("insert test1 (id, nam) values (4, 'a')"); throw new dataaccessexception("error") { }; } here trying throw error, insert statement should rollback it's not happening . thanks edit-1 attaching code , doing in jdbcdaoimpl.java , mentioned problem comment above test() . app.java package com.cgiri.javabrains.spring4; import org.springframework.beans.factory.annotation.autowired; import org.springframework.context.applic...
Read more

c# - Update a combobox from a presenter (MVP) -

i using mvp in project, new in mvp. have 2 comboboxes. when select option in combobox, combobox should filled new data. this action in presenter. view 'view1' in presenter, , introduced combobox1 , combobox2 properties in 'view1', because need 'datasource', 'displaymember', 'valuemember' , 'refresh()' in method below. but, when using pattern, enough send property like public string combobox2 { { return combobox1.selectedvalue.tosstring(); } } into presenter not whole combobox. how can solve problem? public void onselectedindexchangedcombobox1() { if (view1.combobox1.selectedindex == -1) { return; } datatable dt = tools.getdatatable("a path"); var query = (from o in dt.asenumerable() o.field<string>("afield") == farmerview.combobox1.selectedvalue.tostring() orderby o.field<string>("anotherfield") select...
Read more

How to understand 2 main() functions after using uftrace to profile the C++ program? -

i trying uftrace profile following simple c++ program: #include <iostream> class { public: a() {std::cout << "a created" << std::endl;} ~a() {std::cout << "a destroyed" << std::endl;} }; int main() { a; return 0; } the profile result this: # uftrace a.out created destroyed # duration tid function 2.026 [ 4828] | __cxa_atexit(); [ 4828] | main() { [ 4828] | __static_initialization_and_destruction_0() { 89.397 [ 4828] | std::ios_base::init::init(); 0.768 [ 4828] | __cxa_atexit(); 93.029 [ 4828] | } /* __static_initialization_and_destruction_0 */ 94.425 [ 4828] | } /* main */ [ 4828] | main() { [ 4828] | a::a() { 11.104 [ 4828] | std::operator <<(); 10.825 [ 4828] | std::basic_ostream::operator <<(); 24.514 [ 4828] | } /* a::a */ [ 4828] | a::~a() { 0.978 [ 4828] | ...
Read more