vba - find columns in other sheets and copy data loop -


ive got file sheets (master, 1, 2, 3).

below can see column in master sheet - there in order id1 id2 city olt street number

i need copy master file data other sheets first of excel should find id1 column in other sheet (its mess - there not in order) , copy rows. 1. find in sheet 1 column id1 (a1) , copy data master sheet a2 2. find in sheet 1 column id2 (b1) , cop data master sheet b2 et cetera how in loop ?

sub copy_data()

   dim b range       dim lastrow integer lastrow = cells(rows.count, 3).end(xlup).row + 1  set b = sheets("1").rows(1).find("id1")  if b nothing      msgbox "id1 not found", vbinformation, "goods not found"  else      set b = range(b.offset(1), b.offset(rows.count - 1).end(xlup))     b.copy destination:=sheets("master").range("a" & lastrow)  end if  'id  dim wrb range  set wrb = sheets("1").rows(1).find("id2")  if wrb nothing      msgbox "id2 not found", vbinformation, "goods not found"  else      set wrb = range(wrb.offset(1), wrb.offset(rows.count - 1).end(xlup))     wrb.copy destination:=sheets("master").range("b" & lastrow)   end if end sub

i need modyfy code search columns (from master file a1:q1) in other sheets , copy data master sheet. way loop it.

thanks

try below modification, let me know if expected output.

sub copy_data()      dim b range    dim lastrow integer     x = thisworkbook.sheets.count 'added    j = 1    while j <> x   lastrow = cells(rows.count, 3).end(xlup).row + 1 lastrowm = sheets("master").cells(rows.count, 2).end(xlup).row + 1 'added  set b = sheets(j).rows(1).find("id1")  if b nothing      msgbox "id1 not found", vbinformation, "goods not found"  else      set b = range(b.offset(1), b.offset(rows.count - 1).end(xlup))     b.copy destination:=sheets("master").range("a" & lastrowm)  end if  'id  dim wrb range  set wrb = sheets(j).rows(1).find("id2")  if wrb nothing      msgbox "id2 not found", vbinformation, "goods not found"  else      set wrb = range(wrb.offset(1), wrb.offset(rows.count - 1).end(xlup))     wrb.copy destination:=sheets("master").range("b" & lastrowm)   end if   j = j + 1   loop end sub

Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer
Read more

jquery - Responsive Navbar with Sub Navbar -

good day, forgive me nav vocabulary not best. if question confusing apologize. i'm working on navigation bar needs centered on page @ 768px , above. items in nav open (or perhaps toggle) subnav lives directly below. these nav should appear centered on page. i have been able work through responsive portion of nav bar, having main items align vertically , sub nav menu of each item roll out below, , gave them indent separation. working well. however, issue not responsive side, behavior @ width greater 768px. happens toggling menu's sub navigation pushes other main items down page below sub nav. here's code: $(document).ready(function () { //stick in fixed 100% height behind navbar don't wrap $('#slide-nav.navbar-inverse').after($('<div class="inverse" id="navbar-height-col"></div>')); $('#slide-nav.navbar-default').after($('<div id="navbar-height-col"></d
Read more