vba - Excel macro to pick a number corresponding to a cell value and insert same number of rows -


i new macros , trying create macros lack of syntactical knowledge posing big hurdle, tried recording become mcro specific case only. objective create macro first goes cell f1 of sheet2 , find content(say 'a') , gets value in cell g1 of sheet2 , in sheet1 search value 'a' let in cell k23 of sheet1 , inserts number of rows corresponding sheet2 g1 below k23 , goes , searches f2 , repeats process many values there in column f. when inserts rows in sheet1 column d of these blanks rows should different values values should same 23rd row. tried doing using recording , macro attached below, case specific. here sheet2 pivots , sheet1 team master.

sub macro3()  '  ' macro3 macro  '    '      sheets("pivots").select      workbooks("target macro.xlsm").connections.add2 _          "worksheetconnection_team master!$a$1:$l$200", "", _          "worksheet;d:\[target macro.xlsm]team master", "team master!$a$1:$l$200", 7, _          true, false      activeworkbook.pivotcaches.create(sourcetype:=xlexternal, sourcedata:= _          activeworkbook.connections("worksheetconnection_team master!$a$1:$l$200"), _          version:=xlpivottableversion15).createpivottable tabledestination:= _          "pivots!r1c1", tablename:="pivottable9", defaultversion:= _          xlpivottableversion15      cells(1, 1).select      activesheet.pivottables("pivottable9").cubefields("[range].[tl name]")          .orientation = xlrowfield          .position = 1      end      activesheet.pivottables("pivottable9").cubefields.getmeasure _          "[range].[kam mobile]", xlcount, "count of kam mobile"      activesheet.pivottables("pivottable9").adddatafield activesheet.pivottables( _          "pivottable9").cubefields("[measures].[count of kam mobile]"), _          "count of kam mobile"      range("a2").select      range(selection, selection.end(xldown)).select      range("a2:b40").select      selection.copy      range("f1").select      activesheet.paste      range("a1:b1").select      range(selection, selection.end(xldown)).select      range("b26").select      selection.end(xlup).select      selection.end(xltoleft).select      range("a1:b1").select      range(selection, selection.end(xldown)).select      application.cutcopymode = false      selection.clearcontents      activeworkbook.connections("worksheetconnection_team master!$a$1:$l$200"). _          delete      range("g1").select      selection.autofilter      selection.autofilter      range("f1").select      selection.entirerow.insert      activecell.formular1c1 = "tl"      range("g1").select      activecell.formular1c1 = "count"      range("g1").select      selection.autofilter      activesheet.range("$f$1:$g$40").autofilter field:=2, criteria1:=">=4", _          operator:=xland      range("g3").select      range(selection, selection.end(xldown)).select      selection.entirerow.delete      range("g1").select      selection.autofilter      range("f2").select      selection.copy      sheets("team master").select      selection.find(what:="9826212153", after:=activecell, lookin:=xlformulas _          , lookat:=xlpart, searchorder:=xlbyrows, searchdirection:=xlnext, _          matchcase:=false, searchformat:=false).activate      range("g112").select  end sub


Comments

Post a Comment

Popular posts from this blog

php - How to add and update images or image url in Volusion using Volusion API -

actually have store importing products store product data insert , update image or image url not insert , update. this xml code name datapro.txt. <products_joined> <productcode>3710_012t</productcode> <vendor_partno>eah5450silent/di/1gd3(lp)</vendor_partno> <productname>test product ta</productname> <hideproduct>n</hideproduct> <stockstatus>20</stockstatus> <lastmodified>1/5/2016 10:25:00 am</lastmodified> <lastmodby>2</lastmodby> <productweight>0.9</productweight> <productprice>100</productprice> <productmanufacturer>asus tek</productmanufacturer> <vendor_price>32.69</vendor_price> <numproductssharingstock>0</numproductssharingstock> <categoryids>107</categoryids> <producturl>http://tebkq.mvlce.servertrust.com/productdetails.asp?productcode=3710_012t</producturl...
Read more

Laravel mail error `Swift_TransportException in StreamBuffer.php line 269: Connection could not be established with host smtp.gmail.com [ #0]` -

i developing website contact-us page guest users can send me email using gmail . anytime try send mail using contact-us form, error swift_transportexception in streambuffer.php line 269: connection not established host smtp.gmail.com [ #0] this mail.php return [ 'driver' => env('mail_driver', 'smtp'), 'host' => env('mail_host', 'smtp.gmail.com'), 'port' => 587, 'from' => ['address' => '', 'name' => ''], 'encryption' => env('mail_encryption', 'tls'), 'username' => env('mail_username'), 'password' => env(mail_password), 'sendmail' => '/usr/sbin/sendmail -bs', 'pretend' => env('mail_pretend', false), ]; this .env mail_driver=smtp mail_host=smtp.gmail.com mail_port=587 mail_username=afecjaped@gmail.com mail_password=********...
Read more

c# SetCompatibleTextRenderingDefault must be called before the first -

i tried search exception couldn't find solution on case i'am using code below invoke .net application : assembly assem = assembly.load(data); methodinfo method = assem.entrypoint; var o = activator.createinstance(method.declaringtype); method.invoke(o, null); the application invoked has form , in entrypoint of application : [stathread] static void main() { application.enablevisualstyles(); application.setcompatibletextrenderingdefault(false); //exception application.run(new form1()); } setcompatibletextrenderingdefault must called before first iwin32window object created in application. edit : assembly = assembly.load(data); methodinfo method = a.gettype().getmethod("start"); var o = activator.createinstance(method.declaringtype); method.invoke(o, null); you should create new method skips initialization...
Read more