Excel VBA: How do I create variable data validation based on the column header of the current column? -


edit: code updated reflect advice presented in comment. getting 1004 error on "set reflist" line.

background

sheet 1 or "user picklist" contains header row (row 11) variable titles. headers vary based on client, values correspond each header (listed in same column beginning row 12).

sheet 2 or "user list" contains actual users uploaded our system. see users inputting values don't exist on picklist.

the objective

i want set flexible data validation on page 2 (user list) each cell references own column header (so range("c13") reference range("c11").value), search value in row 11 of page 1(user picklist). when finds value, use picklist in column list of values data validation.

so if range("c11").value on page 2 "location", .find on row 11 on page 1, , if finds location add data validation based on subsequent values in column.

the code

    'remove case sensitivity       option compare text      private sub worksheet_selectionchange(byval target range)      application.screenupdating = false      dim ws worksheet     dim refrng range, newrng range     set ws = thisworkbook.worksheets("user picklist")     dim reflist range     set refrng = ws.range("a12:t123")     set newrng = range("a12:t101")     dim c range  application.calculation = xlcalculationmanual  each c in newrng      dim var1 string     dim var2 string     var1 = cells(11, c.column).value     dim rngfind range     set rngfind = ws.range("a11:zz11").find(var1)      if not rngfind nothing      set reflist = range(rngfind.offset(1, 0), rngfind.offset(1, 0).end(xldown))      c.validation         .delete 'delete previous validation         .add type:=xlvalidatelist, alertstyle:=xlvalidalertstop, formula1:="=" & ws.name & "'!" & reflist.address    end     end if     activeworkbook.sheets("user list").calculate next  application.calculation = xlcalculationautomatic  application.screenupdating = true  end sub

as of right crashing document every time, , guess it's because doing 1 cell @ time in loop inefficient. haven't been able come other way of being able evaluate header relative each cell in range though.

any advice appreciated! :)

this might little better-behaved:

private sub worksheet_selectionchange(byval target range)      application.screenupdating = false      dim ws worksheet     dim refrng range, rngfind range, newrng range, hdr     dim reflist range, c range, rngheaders range, msg      on error goto errhandling      set ws = thisworkbook.worksheets("user picklist")      'only deal selected cell(s)     set newrng = application.intersect(me.range("a12:t101"), target)     if not newrng nothing          set rngheaders = ws.range("a11:zz11")          each c in newrng             c.validation.delete 'delete previous validation             hdr = me.cells(11, c.column).value             if len(hdr) > 0                 set rngfind = rngheaders.find(hdr, , xlvalues, xlwhole)                 'matched header?                 if not rngfind nothing                      set reflist = ws.range(rngfind.offset(1, 0), _                                            rngfind.offset(1, 0).end(xldown))                      c.validation.add type:=xlvalidatelist, _                                      alertstyle:=xlvalidalertstop, _                                      formula1:="='" & ws.name & "'!" & reflist.address                  end if 'matched header             end if 'has header          next c     end if 'in required range  here:     application.screenupdating = true     exit sub  errhandling:     if err.number <> 0         msg = "error # " & str(err.number) & " generated " & _             err.source & chr(13) & "error line: " & erl & chr(13) & err.description         debug.print msg, , "error", err.helpfile, err.helpcontext     end if     resume here end sub

Comments

Post a Comment

Popular posts from this blog

android - InAppBilling registering BroadcastReceiver in AndroidManifest -

i'm implementing inapp billing in android app. works well, however, i'm trying decouple broadcast receiver activity manifest. suggestion in android's trivialdrive sample: // important: dynamically register broadcast messages updated purchases. // register receiver here instead of <receiver> in manifest // because call getpurchases() @ startup, therefore can ignore // broadcasts sent while app isn't running. // note: registering listener in activity bad idea, done here // because sample. regardless, receiver must registered after // iabhelper setup, before first call getpurchases(). currently there's class extends broadcastreceiver : public class iabbroadcastreceiver extends broadcastreceiver { /** * intent action receiver should filter for. */ public static final string action = "com.android.vending.billing.purchases_updated"; private final iabbroadcastlistener mlistener; public iabbroadcastreceiver(iabbroadcastlistener listener) { m
Read more

python Tkinter Capturing keyboard events save as one single string -

is possible store keyboard events 1 string? code below stores 1 char , prints it. card reader or bar code reader, contains collection of character/ string not 1 character @ time. goal save char pressed text variable. from tkinter import * root = tk() def key(event): text= event.char text+= event.char print ("pressed", text) def callback(event): frame.focus_set() print ("clicked at", event.x, event.y) frame = frame(root, width=100, height=100) frame.bind("<key>", key) frame.bind("<button-1>", callback) frame.pack() root.mainloop() currently, creating text variable , everytime key() function gets called, , text stores last character typed. you can define text module level variable , , use module level text inside key function - text = '' def key(event): global text text+= event.char print("pressed", text)
Read more

sql server - Why does Linq-to-SQL add unnecessary COUNT()? -

here tables: create table customer ( cid int primary key, name varchar(32) ) create table ord ( oid int primary key, cid int foreign key references customer, address varchar(20) ) here's linq-to-sql statement: var aaa = c in db.customer select new { c, o = c.ord.tolist() }; and here's inexplicable query generated linq-to-sql: select [t0].[cid] [cid], [t0].[name] [name], [t1].[oid] [oid], [t1].[cid] [cid2], [t1].[address] [address], (select count(*) [dbo].[ord] [t2] [t2].[cid] = [t0].[cid]) [value] [dbo].[customer] [t0] left outer join [dbo].[ord] [t1] on [t1].[cid] = [t0].[cid] order [t0].[cid], [t1].[oid] i want understand how rid of count(*) part. it's entirely uncalled for! linq needs count(*) in order determine number of entries returned o = c.ord.tolist() .
Read more