conditionally auto name excel file using VBA -


i have following vb code uses cell values (used fixed location) of db default file name current worksheet , save in specific folder use of activex button. however, column locations started varying in original file , vb ranges no longer pick correct data auto name file. created formulas (further below) find correct values need use auto name file. how insert formulas in vb code job?

private sub commandbutton1_click() dim path string dim filename1 string dim filename2 string dim filename3 string dim str string, strleft string str = range("a7") strleft = left(str, 9) filename1 = strleft filename2 = repch(range("b7").value) filename3 = repch(range("c7").value) path = "…" activeworkbook.saveas filename:=path & filename1 & "_" & filename2 & "_" & filename3 & "_" & ".xls", fileformat:=xlcsv end sub

formulae:

=left(index($a$7:$az$7,match("departure",$a$6:$az$6,0)), search("",index($a$7:$az$7,match("departure",$a$6:$az$6,0)),9))  =index($a$7:$az$7,match("vessel name",$a$6:$az$6,0))  =index($a$7:$az$7,match("voyage number",$a$6:$az$6,0))

there's more efficient ways mine, write formulas string variable, , save off string variable.

however when have " , need split formula multiple strings , concatenate & each time have quotation mark. (i.e - replace every " chr(34))

as example top formula:

dim vformula1 string dim vformula2 string dim vformula3 string  'set formula string variable vformula1 = "=left(index($a$7:$az$7,match(" & chr(34) & "departure" & chr(34) & ",$a$6:$az$6,0)), search(" & chr(34) & chr(34) & ",index($a$7:$az$7,match(" & chr(34) & "departure" & chr(34) & ",$a$6:$az$6,0)),9))" vformula2 = "=index($a$7:$az$7,match(" & chr(34) & "vessel name" & chr(34) & ",$a$6:$az$6,0))" vformula3 = "=index($a$7:$az$7,match(" & chr(34) & "voyage number" & chr(34) & ",$a$6:$az$6,0))"   'then put formula cell range 'set sheet range here if needed range("a1") = vformula1 range("a2") = vformula2 range("a3") = vformula3  'then save code goes here     'blah blah blah save files.

Comments

Post a Comment

Popular posts from this blog

sublimetext3 - what keyboard shortcut is to comment/uncomment for this script tag in sublime -

Image
i have script tag in code, keyboard shortcut comment/uncomment script tag in sublime. after selecting script open , close tag. <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> i pressing ctrl + shift + / , getting this /*<script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script>*/ also pressed ctrl + / , got this // <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> // </script> instead of <!-- <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> --> script open , close tag in 2 lines not in 1 line , not have spaces too. for mac,high light lines want comment. hold 'command , / ' commented. for windows: high line or select lines ,then hold ctrl + / if not work: ...
Read more

java - No use of nillable="0" in SOAP Webservice -

i have received xsd 3rd party supplier generated java based system; used create soap endpoint receive data transfers. xsd not make use of nillable attribute defined within w3c/xsd namespace, example: <xs:complextype name="customer"> <xs:sequence> <xs:element minoccurs="1" maxoccurs="1" name="id" type="xs:integer"/> <xs:element minoccurs="0" maxoccurs="1" name="titleid" type="xs:integer"/> <xs:element minoccurs="0" maxoccurs="1" name="firstname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" name="familyname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" name="previousname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" nam...
Read more

ubuntu - Laravel 5.2 quickstart guide gives Not Found Error -

edit: think problem due not setting apache properly, these 2 links helped me. solution: http://laravel.io/forum/06-11-2014-not-found-but-route-exists https://www.digitalocean.com/community/tutorials/how-to-set-up-apache-virtual-hosts-on-ubuntu-14-04-lts end edit i'm following laravel 5.2 quickstart guide. https://laravel.com/docs/5.2/quickstart i'm running ubuntu 14.04.2 the website runs initially, when click on add task button run 404 not found error. as per guide run following commands setup complete quickstart project. git clone https://github.com/laravel/quickstart-basic quickstart cd quickstart composer install php artisan migrate additionally run following commands because i'm on ubuntu server: sudo chown -r www-data.www-data quickstart sudo chmod -r 755 quickstart sudo chmod 777 quickstart/storage the routes.php file looks like: <?php use app\task; use illuminate\http\request; route::group(['middleware' => ['web']]...
Read more