VBA Getting data from multiselect listbox and saving them in other excel file in column with today date -


firstly tell trying , have done. got 2 files: mss - data listbox , want have output of selected items in listbox , second have userform. accomplish getting data listbox , multiselecting it:

    private sub userform_initialize()     on error goto userform_initialize_err     dim cnn new adodb.connection     dim rst new adodb.recordset     dim integer     cnn.open "provider=microsoft.ace.oledb.12.0;;" & _     "data source=c:\users\plkmxm08\desktop\mms.xlsm;" & _         "extended properties=""excel 12.0 xml;hdr=yes;"";"     rst.open "select [line], [task] fff order [line];", _          cnn, adopenstatic     rst.movefirst     = 0 me.listbox1     .clear             .additem         .list(i, 0) = rst![line]         .list(i, 1) = rst![task]         = + 1         rst.movenext     loop until rst.eof end userform_initialize_exit:     on error resume next     rst.close     cnn.close     set rst = nothing     set cnn = nothing     exit sub userform_initialize_err:     msgbox err.number & vbcrlf & err.description, vbcritical, "error!"     resume userform_initialize_exit end sub

it's working fine except problem heading. when change in listbox properties columnheads true there blank space. selected area fff heading. can live without it.

i big problem getting selected data values. in mss file there 2 important columns: line , task, after columns date in format yyyy/mm/dd.

so what is: when value in listbox selected click on commandbutton. excel search today's date in mss file , in columns line , task search text it's same selected in listbox. when finds 2 values: in column correct date , row correct value write "ok" , delete values listbox.

what important: values have been checked day should not imported listbox opening of excel file. after 6 every day, program should import again.

it's complicated hope understand meant.

i find way want have troubles 1 thing. here code:

`private sub commandbutton1_click() dim ldate date dim cnn new adodb.connection dim rst new adodb.recordset dim litem long, lrows long, lcols long dim bselected boolean dim lcolloop long, ltransferrow long dim val variant dim mdate date  if time > timevalue("00:00:00") , time < timevalue("06:00:00")     ldate = dateadd("d", -1, now) else     ldate = end if     mdate = datevalue(ldate)  cnn.open "provider=microsoft.ace.oledb.12.0;;" & _     "data source=c:\users\plkmxm08\desktop\mms.xlsm;" & _         "extended properties=""excel 12.0 xml;hdr=yes;"";" rst.open "select [line], [task], [frequency] button order [task];", _          cnn, adopenstatic  lcols = listbox1.columncount - 1 lrows = listbox1.listcount - 1  'ensure have @ least 1 row selected     litem = 0 lrows         'at least 1 row selected         if listbox1.selected(litem) = true             'boolean flag             bselected = true             'exit loop             exit         end if     next  @ least 1 row selected     if bselected = true          litem = 0 lrows              if listbox1.selected(litem) = true 'row selected                     'loop through columns of selected row                     lcolloop = 1 lcols                        'transfer selected row relevant row of transfer range                         val = listbox1.list(litem, lcolloop)                         rst.find "task = '" & val & "'"                          listbox1.selected(litem) = false                     next lcolloop                 end if             next        end if     end sub`

so if check value in listbox find value in different excel file. problem need row index of cell , column index today's date. thankful if shows me right direction.


Comments

Post a Comment

Popular posts from this blog

angular - Ionic slides - dynamically add slides before and after -

hi i'm using ngfor create set of 3 slides while starting in middle i'm guaranteed able slide left or right on start. when slide right can simple listen reachedend , push slide array i'm looping. but have problem adding slide beginning. if same above , use e.g. array.unshift() or spread add item beginning, view think it's on position 0 , snaps view new slide. the code below work animates slide change index 1. slide = [0,1,2] //example loop slidechanged(event) { if(this.slides.isbeginning()){ this.slide = [this.slide[0]-1, ...this.slide]; this.slides.update(); this.slides.slideto(1) } } <ion-slides [initialslide]="1" (ionslidedidchange)="slidechanged($event)"> <ion-slide *ngfor="let item of slide"> <h1>slide {{item}}</h1> </ion-slide> </ion-slides> any appreciated! you can using ionslidenextend , ionslideprevend events slides . please...
Read more

Add a dynamic header in angular 2 http provider -

i have http interceptor built via tutorial https://scotch.io/@kashyapmukkamala/using-http-interceptor-with-angular2 the problem need have dynamic header changes automatically once changes 'mode' in app. service able tell interceptor change header, or have interceptor pull header (which string)from service each request. able throwing away patch method, call http.patch('new header string') set header string. call in service controls 'mode' setting. wondering if there way interceptor pull recent value service each request or if can add method http provider via interceptor? i've tried call service in interceptor each request returns undefined. because creating new instance of service or copying value before service fired , loaded/changed data. i don't want pass header string every http provider call because defeats purpose of having interceptor, id able set once changes or have provider fetch service before makes request. tl;dr : need add autom...
Read more

minify - Minimizing css files -

i want know how css files can minimized. currently, using external sites css minifier compress css files. however, after removing whitespaces, comments, etc, file sizes reduced 10-15%. how frameworks bootstrap manage make minimized versions kilobytes. as example, css is: body { background-color: #ff0; } the reduction goes 28 bytes 22 bytes other css files have lot more characters still smaller this. actually minifying code means it's remove thing code white space characters new line characters comments block delimiters it reduces amount of code has transferred on web , speed site load fastly.but unreadable format.
Read more