Excel VBA: Filter and copy from top 5 rows/cells -


i have data table sorted on descending order in column f. need copy top 5 rows, data column a, b, d, , f (not headers). see pictures.

sub top5()  sheets("sheet1").select  if (activesheet.autofiltermode , activesheet.filtermode) or activesheet.filtermode activesheet.showalldata end if   activesheet.range("$a$4:$t$321").autofilter field:=3, criteria1:="dave" activeworkbook.worksheets("sheet1").autofilter.sort.sortfields. _     clear activeworkbook.worksheets("sheet1").autofilter.sort.sortfields.add _     key:=range("f4:f321"), sorton:=xlsortonvalues, order:=xldescending, _     dataoption:=xlsorttextasnumbers activeworkbook.worksheets("sheet1").autofilter.sort     .header = xlyes     .matchcase = false     .orientation = xltoptobottom     .sortmethod = xlpinyin     .apply end  ' copy-paste part supposed to, specific  ' cells.  not generalised , have repeat operation ' several times different people sheets("sheet1").select range("a3:b15").select selection.copy  sheets("sheet2").select range("a3").select activesheet.paste  sheets("sheet1").select range("d3:d15").select application.cutcopymode = false selection.copy  sheets("sheet2").select range("c3").select activesheet.paste  sheets("sheet1").select range("f3:f15").select application.cutcopymode = false selection.copy  sheets("sheet2").select range("d3").select activesheet.paste application.cutcopymode = false  end sub

i thought trying adapt snippet of code below using visible cells function, i'm stuck , can't find on net fits.

' selects rows (plus 1, due offset), want parts of top 5. sheets("sheet1").select activesheet.range("$a$4:$b$321").offset(1, 0).specialcells(xlcelltypevisible).select selection.copy sheets("sheet2").select range("a3").select activesheet.paste  sheets("sheet1").select activesheet.range("$d$4:$d$321").offset(1, 0).specialcells(xlcelltypevisible).select selection.copy sheets("sheet2").select range("c3").select activesheet.paste

i hope example makes sense , appreciate help!

sample excel table

note: heading names same in 2 tables show data same. headers not supposed copied. in addition, there column/white space in second table. solution should include this.

data copied new table

firstly few helpful points:

  • you should refer worksheets there code name avoid renaming issues.
  • if want work vba advice avoid merged cells plague. cause havoc code. if possible use format cells - alignment - horizontal - centre accross selection
  • i advise avoiding loops wherever possible , take advantage of excels built in functions instead practice exercise.

here solution. keep simple. if need further let me now. 

sub hth()      dim rcopy range      sheet1.autofilter.range         '// set somewhere blank , unused on worksheet         set rcopy = sheet1.range("a" & rows.count - (.rows.count))         .specialcells(xlcelltypevisible).copy rcopy     end      rcopy.offset(1).resize(5) '// offset avoid header         .resize(, 2).copy sheet2.range("a5")         .offset(, 3).resize(, 1).copy sheet2.range("d5")         .offset(, 5).resize(, 1).copy sheet2.range("f5")         .currentregion.delete xlup '// delete tempory area     end      set rcopy = nothing  end sub

-

Comments

Post a Comment

Popular posts from this blog

css - SVG using textPath a symbol not rendering in Firefox -

using textpath within symbol doesn't render in firefox. renders fine in latest chrome , ie, when try reference symbol, svg text doesn't render in firefox (37.0.1) - first box appears empty. code below (no external dependencies), there should 2 boxes word test flowing vertically in centre of each. edit: thought issue somehow involved flexbox layout, until paul pointed out issue exists without flexbox layout. the html is: <div> <svg id="not_working" viewbox="0 0 250 1200" preserveaspectratio="xmidymid meet"> <symbol id="test_symbol1" preserveaspectratio="xmidymid meet" viewbox="0 0 250 1200"> <path id="test_symbol_path" d="m 100 1200 l 100 0" /> <text font-size="100" fill="red"> <textpath text-anchor="middle" startoffset="50%" xlink:href="#test_symbol_path...
Read more

Java 8 + Maven Javadoc plugin: Error fetching URL -

i attempting generate javadoc links javadoc dependencies. have tried various means generate javadoc not produce qualified class names references classes dependencies. wanted links java doc simplified class names. however, java api classnames, no links , have qualified class names. working java 8. have following configuration: <plugin> <groupid>org.apache.maven.plugins</groupid> <artifactid>maven-javadoc-plugin</artifactid> <version>2.10.2</version> <configuration> <reportoutputdirectory>${project.basedir}/target</reportoutputdirectory> <destdir>javadoc</destdir> <windowtitle>epiphany</windowtitle> <doctitle>epiphany</doctitle> <show>private</show> <detectlinks>false</detectlinks> <detectoffline...
Read more

order - Notification for user in user account opencart -

thanks helps or points me in right direction. i want show pending notification user in account page after login. notification show when order status pending. after changing other status admin remove notification. this notification show like: your order id: order status: , [ button custom url] if multiple order show multiple order id. open cart version 1.5.6.3 custom theme. $this->load->model('account/order'); $results = $this->model_account_order->getorders(); foreach ($results $result) { $product_total = $this->model_account_order->gettotalorderproductsbyorderid($result['order_id']); $voucher_total = $this->model_account_order->gettotalordervouchersbyorderid($result['order_id']); if( $result['status'] =! 5){ // 5 order status means completed $this->data['orders'][] = array( 'order_id' => $result['order_id'], ...
Read more