excel vba - compare row's if value of corresponding column's not equal insert them -

-

i have 2 grouped of columns.one of them subset of another.i want write macro compare them , if not equal insert second 1 first one. algorithm ode:

if (code-1)<>(code-2) , (serial-1)<>(serial-2) , (amount-1)<>(amount-2)  (code-1)==(code-2) , (serial-1)==(serial-2) , (amount-1)==(amount-2)

and want inserted row marked.

the table have below:

code-1  serial-1    amount-1    code-2  serial-2    amount-2 1         11          111          1      11          111 3         33          333          1      11           11                                    2      22           22                                    3      33           33                                    3      33          333

the result looking below:

code-1  serial-1    amount-1    code-2  serial-2    amount-2    1     11           111          1      11          111    3     33           333          1      11          11    1     11           11           2      22          22    2     22           22           3      33          33    3     33           33           3      33         333

update

this new code create 2 auxiliar columns run vlookup eliminate 1 dosen't match criteria when macro run select wich cells copy , delete these 2 columns after it's done.

but remenber wrote code according gave me, work if arrange, columns c , columns d f

if works please remember mark code answer appreciated =]

new code:

sub yoursub()  dim lstr1        long dim lstr2        long dim mark1        long  lstr2 = sheets(1).cells(rows.count, 4).end(xlup).row  lstr1 = sheets(1).cells(rows.count, 1).end(xlup).row + 1  mark1 = lstr1 - 1  range("a1").entirecolumn.insert range("a1").entirecolumn.insert  = 2 mark1  cells(i, 2) = cells(i, 3) & "-" & cells(i, 4) & "-" & cells(i, 5)  next  j = 2 lstr2  cells(j, 1).formular1c1 = "=vlookup(rc[5]&""-""&rc[6]&""-""&rc[7],c[1],1,false)"  next  j = 2 lstr2  if worksheetfunction.iferror(cells(j, 1), "error") = "error"  range(cells(j, 6), cells(j, 8)).copy cells(lstr1, 3).pastespecial xlpastevalues lstr1 = sheets(1).cells(rows.count, 3).end(xlup).row + 1  end if  next  range("a1").entirecolumn.delete range("a1").entirecolumn.delete  end sub

Comments

Post a Comment

Popular posts from this blog

node.js - Mongoose: Cast to ObjectId failed for value on newly created object after setting the value -

-
this question has answer here: what's mongoose error cast objectid failed value xxx @ path “_id”? 7 answers even though has been asked many times because entity has no valid objectid field. i came across situation objectid set value can casted objectid still error. the schema: var serviceschema = parammongoose.schema({ servicename:{ type: parammongoose.schema.types.objectid , ref: 'servicenames',required:true } }); pseudo code: servicefromdb=new service({servicename:'some name'}); servicefromdb.servicename='000000000000000000000001'; servicefromdb.save(function(paramerror,paramdata){ if(paramerror){ console.log('but but...',servicefromdb,paramerror) } }); the output of code is: but but... { servicename: 000000000000000000000001, _id: 55079a90286f49280364f78b } { [casterror: cast objectid faile...
Read more

[C++][SFML 2.2] Strange Performance Issues - Moving Mouse Lowers CPU Usage -

-
i've been working on making 2d map editor past 2 weeks or so, , i've run strange problem. trying optimize code, example, making functions should've been functions begin with, did made cpu usage go through roof. i've tried commenting out different sections of code thought culprits (scrolling, rendering, other calculations) no avail. think issue might trying call things within different functions, sake of making modular possible, i'd functionality. the other major change i've made since file i'm comparing i've ported variables external cpp file, since having variables global makes lot easier use within different functions. simple issue, can't life of me understand why happens. with original code, around 2-3% cpu usage. new code, around 20-35%, but, if move mouse around, it'll drop around 6-8%. tl;dr: after trying optimize code using functions, i've somehow killed performance, , found strange quirk moving mouse reduces cpu usage.. /...
Read more

ios - Possible to get UIButton sizeThatFits to work? -

-
i have been using method of resizing uibuttons depreciated, , not robust. , other reasons, want sizethatfits work uibuttons. i've read online, i'm not sure if should work (seems working some, not others, difference maybe between style, i'm using custom). here simple test code recreate issue (i put in viewdidload test, shouldn't matter, , real code part of large project): uibutton *btn = [uibutton buttonwithtype:uibuttontypecustom]; [btn settitle:@"this test long title need word wrap more single line when displayed on tiny ipod in portrait view." forstate:uicontrolstatenormal]; btn.titlelabel.linebreakmode = uilinebreakmodewordwrap; // depreciated - nothing replace it? cgrect r = btn.frame; r.origin.x = 0; r.origin.y = 0; r.size.width = 320; r.size.height = [btn.titlelabel.text sizewithfont:btn.titlelabel.font constrainedtosize:cgsizemake(r.size.width,100000) linebreakmode:btn.titlelabel.linebreakmode].height; // returns approx 86 , changes correctly ...
Read more