vba - Copy paste Excel data in -

-

i have 2 sheets, sheet1 , sheet2. sheet1 data have copy data , paste in sheet2, again sheet1 have copy different set of data , paste in sheet2 last line, pasted data 1st time 

sub copy_chains_to_other_sheet() activesheet.range("$a$1").autofilter field:=8, criteria1:="<>1", _ operator:=xland activesheet.range("$a$1:$i$681").autofilter field:=1, criteria1:="=*antaris*" _     , operator:=xland range("a1").select range(selection, selection.end(xldown)).select range(selection, selection.end(xltoright)).select selection.copy activesheet.next.select activesheet.paste activesheet.range("$a$1").autofilter field:=1

end sub

this macro wrote, don't know how proceed. because 1 time have 5 rows of data time need copy data sheet1 , paste in sheet2 , next set of data need paste in 6th row, time have 8 row of data time need paste next set of data 9the row onwards, how deal this.

thanks in advance answering.

regards, vignesh

if understand correctly want copy results of successive autofiltered data sheet1 continuous "list" in sheet2. if perhaps try following going. need alter variables/names suit requirement, have made assumptions.

option explicit  sub copyafs() dim wsone worksheet, wstwo worksheet dim onestrow long, oneendrow long, onestcol long, oneendcol long dim twostrow long, twonextrow long, twostcol long dim crit1col long, crit2col long dim crit1 string, crit2 string  set wsone = sheets("sheet1") set wstwo = sheets("sheet2") onestrow = 1 onestcol = 1 oneendcol = 10 twostrow = 1 twostcol = 1 crit1 = "antaris" crit2 = "1" crit1col = 1 crit2col = 8      wstwo         twonextrow = .cells(.rows.count, twostcol).end(xlup).row + 1     end  'clear autofilter wsone.autofiltermode = false      'apply autofilter     wsone         oneendrow = cells(rows.count, onestcol).end(xlup).row + 1             .range(.cells(onestrow, onestcol), .cells(oneendrow, oneendcol))                 'set autofilter                 .autofilter field:=crit1col, criteria1:=crit1                 .autofilter field:=crit2col, criteria1:=crit2             end     end      'copy filtered range without header     wstwo         wsone.autofilter.range.offset(1, 0).copy destination:=.range(.cells(twonextrow, twostcol), .cells(twonextrow, twostcol))     end      'clear autofilter     wsone.autofiltermode = false  end sub

Comments

Post a Comment

Popular posts from this blog

matlab - "Contour not rendered for non-finite ZData" -

-
i'm trying plot frequency characteristic equation using ezplot, matlab gives following warning, "contour not rendered non-finite zdata". have used command plot frequency equations warning , plot display empty , not change axis range well. can please help. appreciated. here's code i'm using. % transfer matrix case-i, thin rotor clear all; clc; ei = 1626; l = 0.15; m = 0.44108; = 2.178*10^-4; i_p = 2.205*10^-5; itr = 0.24; i_pr = 0.479; syms p n; f = [1 l*1i l^2/(2*ei)*1i l^3/(6*ei); 0 1 l/ei -l^2/(2*ei)*1i; 0 0 1 -l*1i; 0 0 0 l]; p = [ 1 0 0 0; 0 1 0 0; 0 -it*p^2+i_p*n*p 1 0; -m*p^2 0 0 1]; p_r = [1 0 0 0; 0 1 0 0; 0 -itr*p^2+i_pr*n*p 1 0; -m*p^2 0 0 1]; = f*p*f*p*f*p*f; b = p_r*f*p*f*p*f; r = a(1,2)/a(1,4); a12_p = 0; a22_p = a(2,2)-r*a(2,4); a32_p = a(3,2)-r*a(3,4); a42_p = a(4,2)-r*a(4,4); ap(2,2) = a22_p; ap(3,2) = a32_p; ap(4,2) = a42_p; ap(4,4) = 1; c = b*ap; m = [c(3,2) c(3,4); c(4,2) c(4,...
Read more

delphi - Indy UDP Read Contents of Adata -

-
i using indy udp server read string of data. however, not know how work adata parameter. can around converting binary using bytetobin function below , convert hex using bintohex1 . feel stupid , works slow. know how can directly results without 2 conversions? thanks!! here codes: procedure tform1.idudpserver1udpread(athread: tidudplistenerthread; const adata: tidbytes; abinding: tidsockethandle); var buf: tidbytes; buffer: string; data_received: string; begin if bytestostring(adata) <> 'hello' begin buffer := hextostring('00'); setlength(buf, length(buffer)); copytidstring(buffer, buf, 0); abinding.sendto(abinding.peerip, abinding.peerport, buf); data_received := bintohex1(bytetobin(adata[1]) + bytetobin(adata[2]) + bytetobin(adata[3]) + bytetobin(adata[4]) + bytetobin(adata[5]) + bytetobin(adata[6]) + bytetobin(adata[7]) + bytetobin(adata[8]) + bytetobin(adata[9]) + bytetobin(adata[10]) + bytetobin(adata[11...
Read more

javascript - Any ideas when Firefox is likely to implement lengthAdjust and textLength? -

-
any ideas when firefox implement lengthadjust andtextlength?..... working svg application. lengthadjust , textlength working fine in chrome not working in fire fox . <svg viewbox = "0 0 500 300" version = "1.1"> <defs> <path id="s3" d="m 10,90 q 100,15 200,70" /> </defs> <g> <text font-size = "20"> <textpath xlink:href="#s3" textlength="205"> short text</textpath> </text> <use xlink:href="#s3" fill="none" stroke="black" stroke-width="1"/> </g> </svg> this implemented in firefox text elements (not textpath or tspan) in case that's ok though can move attribute text element. <svg viewbox = "0 0 500 300" version = "1.1"> <defs> ...
Read more