excel - Loop through filter criteria -

-

i've been trying figure out no progress...

i have filter (column d) , i'm trying create loop each criteria (i got @ least 1000 criterias) on filter. ex: each criteria on filter (column d), i'll run range copy...

that code isnt working @ all:

sub whatfilters()     dim ifilt integer     ifilt = 4     dim ifiltcrit integer     dim numfilters integer     dim crit1 variant       activesheet.range("$a$1:$aa$4635").autofilter field:=16, criteria1:= _             "waiting"      numfilters = activesheet.autofilter.filters.count     debug.print "sheet(" & activesheet.name & ") has " & numfilters & " filters."     if activesheet.autofilter.filters.item(ifilt).on         crit1 = activesheet.autofilter.filters.item(ifilt).criteria1         ifiltcrit = 1 ubound(crit1)             debug.print "crit1(" & ifiltcrit & ") '" & crit1(ifiltcrit)              'copy          next ifiltcrit     end if end sub

my mistake seems identifying filter column...

i realize asked while ago havent seen consider copy-paste ready. here came with. should work unlimited criteria. create single new sheet called "temp" can deleted once finished. 

dim currentcell long dim numofvalues long  sub filternextresult()  ' copy , move data data sheet, column (can changed if needed) new sheet called "temp"   ' check make sure there @ least 1 data point in column on temp sheet if currentcell = 0 application.screenupdating = false call createnewtemp application.screenupdating = true end if  ' find total number of unique data points filtering in column of temp sheet if numofaccounts = 0 application.screenupdating = false call findnumofvalues application.screenupdating = true end if   sheet1.usedrange  .autofilter 1, worksheets("temp").range("a" & currentcell).value currentcell = currentcell + 1 ' check make sure havent reached end of clumn a. if exit sub if numofvalues + 1 = currentcell     msgbox ("this last value filter by")     exit sub end if end    end sub  'sub number of values on temp sheet column private sub findnumofvalues() ' count number of non empty cells , assign value (less 1 title in our case) numofvalues numofvalues = worksheets("temp").range("a:a").cells.specialcells(xlcelltypeconstants).count  end sub  private sub createnewtemp()  sheet1.range("a:a").copy activeworkbook.sheets.add.name = "temp"  ' remove duplicates worksheets("temp").range("a1").select activeworkbook.activesheet     .paste     .range("a:a").removeduplicates columns:=array(1), header:=xlyes end  ' check make sure there vlaues in temp sheet if worksheets("temp").range("a2").value = ""     msgbox "there no filter values"     end else     currentcell = 2 end if  sheet1.activate sheet1.range("a1").select selection.autofilter  end sub

Comments

Post a Comment

Popular posts from this blog

How to run C# code using mono without Xamarin in Android? -

-
i want create program uses mono runtime run c# code (binary not application). i copied libmono.so unity app , i'm write code using documentation: http://www.mono-project.com/docs/advanced/embedding/ and it's working have problems references can access classes mscorlib.dll , have problems system.reflection.assembly class throwing exception, when print console see: system.missingmethodexception: method not found: 'system.reflection.assembly.op_inequality' can fix it? can use mono runtime in c binary on android? ps. i'm using android tests. edit: found solution loading libraries, need set environment variable mono_path libraries path. but have still problems assembly class. the system.missingmethodexception error have seems .net profile mismatch error, 1 explained here . can use mono runtime in c binary on android? yes, using ndk guess. there alternatives can use instead of rolling own, such xmadevlab .
Read more

c# - SharpSsh Command Execution -

-
Image
i trying create ssh client using c#. using tamir.sharpssh library. having issues sending command , getting appropriate response server. the way have been testing sending on ls command, followed cd.. command, followed ls command again -- see whether or not cd.. command being executed properly. however, there no difference between first ls command , second ls command. not entirely sure doing wrong. perhaps using wrong ssh type. have provided code , output getting. have added output expect. using tamir.sharpssh; namespace sshnetexample { class program { static void main(string[] args) { sshexec ssh = null; try { console.write("-connecting..."); ssh = new sshexec(host, username, password); ssh.connect(); console.writeline("ok ({0}/{1})", ssh.cipher, ssh.mac); console.writeline("server version={0}, client versio...
Read more

python - Specify path of savefig with pylab or matplotlib -

-
i struggling on how find correct way specify save path (or repository) when calling function savefig in matplotlib or pylab. i tried several syntaxes, everytime python console returns : filenotfounderror: [errno 2] no such file or directory: '../mydocs/resource/frames/myimage.png' currently, have written following : pylab.savefig('../mydocs/resource/frames/myimage.png') does know how it? thanks in advance! the tilde operator , variable $home entered strings , therefore not function while saving. have provide either relative path (as did) or provide full path. eg. pylab.savefig("/home/username/desktop/myfig.png") .
Read more