excel - Error 13 with Dropdown list Audit Log -

-

i'm trying audit log report. 1 of things report status section can selected through drop down list. here code.

option explicit dim previousvalue variant      private sub worksheet_change(byval target range)         if not intersect(target, range("d2")) nothing         range("e" & target.row & ":f" & target.row).clearcontents         if range("d2").value = "i/c"         range("e" & target.row).locked = true         range("e" & target.row & ":f" & target.row).clearcontents         else         range("e" & target.row).locked = false         end if      end if      if not intersect(target, range("d3")) nothing          range("e" & target.row & ":f" & target.row).clearcontents     end if     if not intersect(target, range("d4")) nothing         range("e" & target.row & ":f" & target.row).clearcontents     end if     if not intersect(target, range("d5")) nothing          range("e" & target.row & ":f" & target.row).clearcontents     end if      sheets("gc-01 history log").cells(1, 1).value = "date"     sheets("gc-01 history log").cells(1, 2).value = "equipment"     sheets("gc-01 history log").cells(1, 3).value = "old status"     sheets("gc-01 history log").cells(1, 4).value = "new status"     sheets("gc-01 history log").cells(1, 5).value = "old reason"     sheets("gc-01 history log").cells(1, 6).value = "new reason"     sheets("gc-01 history log").cells(1, 7).value = "old action"     sheets("gc-01 history log").cells(1, 8).value = "new action"      if target.value <> previousvalue    sheets("gc-01 history log").cells(65000, 1).end(xlup).offset(1, 0).value =    sheets("gc-01 history log").cells(65000, 2).end(xlup).offset(1, 0).value = range(target.address).offset(0, -1)    sheets("gc-01 history log").cells(65000, 3).end(xlup).offset(1, 0).value = target.cells(target.row, 1)    sheets("gc-01 history log").cells(65000, 4).end(xlup).offset(1, 0).value = target.value  end if end sub  private sub worksheet_selectionchange(byval target range) previousvalue = target.value  end sub

the problem when try change status through drop down menu. error 13 gets thrown. have no idea on how deal this.

edit:- on debug shows error if "target.value <> previousvalue then"

please help

two things:

first: 

private sub worksheet_selectionchange(byval target range)     previousvalue = target.value end sub

only works if change selection. might cause previousvalue empty.

second , more important:

you want declare previousvalue public, else cannot use in both subroutines.

option explicit public previousvalue variant ...

is want.


Comments

Post a Comment

Popular posts from this blog

Combining PHP Registration and Login into one class with multiple functions in one PHP file -

-
i'm trying combine registration, activation , login scripts php website backend script front end developer can pass variables different forms to. my question whether appropriate approach this. don't want have lot of php files different pieces of application developing. far have written following 2 functions login, register , activate user front end developer can call: <?php /** * created phpstorm. * user: karl * date: 26/07/2016 * time: 02:25 */ class users { function register_user($email, $password, $user_name) { $server_name = "localhost"; $u_name = "root"; $db_password = "root"; $db_name = "betamath_graspe"; //email notification variable $from_address="info@slack.com"; //registration form $msg_reg_user='username taken. please choose different username'; $msg_reg_email='email registered'; $msg_reg_active=...
Read more

magento2 - Magento 2 admin grid add filter to collection -

-
i created grid in admin xml ui components. need filter collection via url parameter , dont know how achieve that. tried inject requestinterface collection, filter didnt work. di.xml <virtualtype name="slidelistingdataprovider" type="magento\framework\view\element\uicomponent\dataprovider\dataprovider"> <arguments> <argument name="collection" xsi:type="object" shared="false">xxx\xxx\model\resourcemodel\grid\slide\collection</argument> <argument name="filterpool" xsi:type="object" shared="false">slidelistingfilterpool</argument> <!-- define new object filters --> </arguments> </virtualtype> <virtualtype name="slidelistingfilterpool" type="magento\framework\view\element\uicomponent\dataprovider\filterpool"> <arguments> <argument name="applier...
Read more

Android volley - avoid multiple requests of the same kind to the server? -

-
i using volley upload list of images server. happens within service. once image uploaded remove list. problem arises when internet connection breaks. when internet connection breaks , comes again thinking of adding images yet uploaded request queue. this can result in more 1 copy of same image saved on server request same image might have gone through before getting rseponse. how can address scenario? i'm not quite sure why you're using service schedule requests volley automatically runs it's request in seperate thread. nevertheless can listen both request results, successful , unsuccessful adding listeners. you can remove image list schedule request using volley. if succeeds can carry on desired, if fails can add again list. public static request getimageuploadrequest(final string image) { response.listener<t> responselistener = new response.listener<t>() { @override public void onresponse(t response...
Read more