excel vba - Populating combobox with dynamic horizontal range -


i’m needing vba code value column ‘a’ , list adjacent horizontal non blank cells right in userform combox1.

sample data:

+-----+----+----+----+---+ |   | b  | c  | d  | e | +-----+----+----+----+---+ |  a1 | 63 |    | 55 | 5 | +-----+----+----+----+---+

sudo code:

sub test() myval = “a1” findme = myval set match = sheets(“sheets1”).range(a:a).find(findme) myrange = foundrange userform1.combobox.value = myrange exit sub

in example code above, foundrange row value found, plus columns ‘b’ through ‘e’, minus blanks.

combobox values:

63 55 56

thank you!

create userform named userform1, combobox named combobox , button named commandbutton1. on image below:

userform

then use code on commandbutton populate combobox:

private sub commandbutton1_click()     dim ws1 worksheet     dim long, c long     dim rng range, rng2 range     dim cellfound range     dim lastrow long, lastcolumn long  set ws1 = thisworkbook.sheets(1) findme = "a1" lastrow = ws1.cells(ws1.rows.count, "a").end(xlup).row set rng = ws1.range("a:a") 'range search set rng2 = rng(lastrow, 1)          rng          set cellfound = .find(what:=findme, after:=rng2, lookin:=xlvalues)             if not cellfound nothing                 firstaddress = cellfound.address                                     lastcolumn = ws1.cells(ws1.range(cellfound.address).row, ws1.columns.count).end(xltoleft).column                     = range(cellfound.address).column + 1 lastcolumn                     if ws1.cells(range(cellfound.address).row, i) <> "" combobox.additem ws1.cells(range(cellfound.address).row, i).value                     next                     set cellfound = .findnext(cellfound)                 loop while not cellfound nothing , cellfound.address <> firstaddress              end if         end  end sub

this code uses .find function wanted use add item on combobox combobox.additem. note code inside userform, otherwise changes necessary turn global.

after finding a1 use address row obtain last column. , loop through cellfound + 1column (2 on sample) last column comparing if value in different blank. if different, add combobox.

lastcolumn = ws1.cells(ws1.range(cellfound.address).row, ws1.columns.count).end(xltoleft).column = range(cellfound.address).column + 1 lastcolumn  if ws1.cells(range(cellfound.address).row, i) <> "" combobox.additem ws1.cells(range(cellfound.address).row, i).value next

then find next value , make same thing, column can have more 1 match.

set cellfound = .findnext(cellfound)

the findme value can replaced value, such textboxes or cell.values.

and range search rng can set range using. e.g.: entire worksheet


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