vba - How to edit current macro to search only column C for a value greater than one specified -

-

i'm not sure how go this, search through folder of excel files , create new sheet list , link files contain specified search term. question is, how edit @ specified column (e.g., column c). also, how make search numbers greater 1 specified (e.g., excel files have lab values in column c, , i'm trying find excel files have values greater ^)

sub searchwkbooks() dim ws worksheet dim myfolder string dim str string dim single dim sht worksheet  set ws = sheets.add  application.filedialog(msofiledialogfolderpicker)     .show     myfolder = .selecteditems(1) & "\" end  str = application.inputbox(prompt:="search string:", title:="search workbooks in folder", type:=2)  if str = "" exit sub  ws.range("a1") = "search string:" ws.range("b1") = str ws.range("a2") = "path:" ws.range("b2") = myfolder ws.range("a3") = "workbook" ws.range("b3") = "worksheet" ws.range("c3") = "cell address" ws.range("d3") = "link"  = 0  value = dir(myfolder) until value = ""     if value = "." or value = ".."     else         if right(value, 3) = "xls" or right(value, 4) = "xlsx" or right(value, 4) = "xlsm"             on error resume next             workbooks.open filename:=myfolder & value, password:="zzzzzzzzzzzz"             if err.number > 0                 ws.range("a4").offset(a, 0).value = value                 ws.range("b4").offset(a, 0).value = "password protected"                 = + 1             else                 on error goto 0                 each sht in activeworkbook.worksheets                         set c = sht.cells.find(str, lookin:=xlvalues, lookat:=xlwhole, searchorder:=xlbyrows, searchdirection:=xlnext)                         if not c nothing                             firstaddress = c.address                                                             ws.range("a4").offset(a, 0).value = value                                 ws.range("b4").offset(a, 0).value = sht.name                                 ws.range("c4").offset(a, 0).value = c.address                                 ws.hyperlinks.add anchor:=ws.range("d4").offset(a, 0), address:=myfolder & value, subaddress:= _                                 sht.name & "!" & c.address, texttodisplay:="link"                                 = + 1                                 set c = sht.cells.findnext(c)                             loop while not c nothing , c.address <> firstaddress                         end if                 next sht             end if             workbooks(value).close false             on error goto 0         end if     end if     value = dir loop cells.entirecolumn.autofit end sub

change line set c = sht.cells.find(str, lookin:=xlvalues, lookat:=xlwhole, searchorder:=xlbyrows, searchdirection:=xlnext) 

 set c = sht.columns(3).find(str, lookin:=xlvalues, lookat:=xlwhole, searchorder:=xlbyrows, searchdirection:=xlnext) - c column in specified sheet  if c.value<>vbnullstring , c.value > 10 ' code passes line if cell value more 10

Comments

Post a Comment

Popular posts from this blog

C# random value from dictionary and tuple -

-
i have following code, , need random item contains string "region_1" dictionary. public static dictionary<int, tuple<string, int, currencytype>> itemarray = new dictionary<int, tuple<string, int, currencytype>>() { { 0xb3e, new tuple<string, int, currencytype>("region_1", 1500, currencytype.fame) } }; public static int generateitemid(string shopid) { var generateditem = itemarray.elementat(new random().next(0, itemarray.count)).key; } how select this? it's not possible efficiently... first create static random @ class level... prevent non-random behaviour if run query on short period of time... (it's seeded discrete clock) static random rnd = new random(); then: var item = itemarray.values .where(t => t.item1 == shopid) .orderby(_ => rnd.next()) .firstordefault()
Read more

cgi - How do I interpret URLs without extension as files rather than missing directories in nginx? -

-
so i'm trying install zoneminder , have run under nginx, has few compiled files need run using fast-cgi. these files lack extension. if file has extension, there no issue , nginx interprets file , return 404 if can't find it. if has no extension, assume it's directory , return 404 when can't find sort of index page. here have now: # security camera domain. server { listen 888; server_name mydomain.com; root /srv/http/zm; # enable php support. include php.conf; location / { index index.html index.htm index.php; } # enable cgi support. location ~ ^/cgi-bin/(.+)$ { alias /srv/cgi-bin/zm/; fastcgi_pass unix:/run/fcgiwrap.sock; fastcgi_param script_filename $document_root/$1; include fastcgi.conf; } } the idea is, under cgi-bin directory goes through fastcgi pipe. any idea on howi can fix this? upon closer inspection, realized zoneminder has 2 cgi sc...
Read more

.htaccess - htaccess convert request to clean url and add slash at the end of the url -

-
ok , searched more 4 days , more 20 posts here in stach or in websites without kind of success first here htaccess file rewriteengine on rewriterule ^([a-za-z0-9_]+)/?$ index.php?page=$1 [nc] rewriterule ^([a-za-z0-9_]+)\/([a-za-z0-9_]+)\/?$ index.php?page=$1&action=$2 [nc] i tried many codes 1 worked me can call request , works me www.example.com/pagename => www.example.com/index.php?page=pagename here questions , please provide me information "in detail" understand code well 1- how convert request automatically www.example.com/index.php?page=pagename www.example.com/pagename 2- if tried add slash @ end shows me page without images or styling mean www.example.com/pagename => works www.example.com/pagename/ => doesn't work that's :) for first part need 301 rule this: rewritecond %{the_request} /index\.php\?page=([^\s&]+) [nc] rewriterule ^ /%1? [r=301,l] for second part use absolute path in css, js, images files r...
Read more