excel - VBA - Copy from Closed File paste to next available row on Summary Sheet -

-

this first post. forgive me if doing wrong here. glad correct mistakes. have found web site valuable baby in field of vba. please have patience me.

i super rookie in vba. learning go have spent lot of time on this. find bits , pieces of information on web have trouble in putting them together. have learned how make vba macro can select file , run other macros. using excel 2013. complete time sheet every week(sometimes more @ end of month) of hours work , projects work on. include on sheet when out , code reason. copy 3 sections summary sheet.

  1. cell d1. cell has date beside it. copy cell in first row.
  2. cells f3-l3 cells code put. copy second cell in first row.
  3. the next range of cells aret last cells data in columns f-l. these vary have different numbers of rows work orders each time in columns f-l. copy second row below corresponding cells in first. next file copy next available row in summary.

i copy data can figure vacation days, sick days, etc. know i'm asking alot extremely grateful help.

i'm giving example, still need modify...

option explicit 'forces programmer declare variables  sub button_to_copy () 'link button or other action launchs sub dim range_to_copy range dim range_destination range  dim sheet_data worksheet 'sheet pull data dim sheet_destination worksheet' summary sheet  set sheet_data = thisworkbook.sheets("sheet1") 'you might have rename sheetname accordingly name. set sheet_destination = thisworkbook.sheets("summary") ' wild guess, correct summary sheet name  set range_to_copy = sheet_data.range("d1") set range_destination = sheet_destination.range("a1")  range_to_copy.copy range_destination  'this copies range b (basically a.copy b), changed variable names make easier...  'more code, copies  'you can simplify without variables this: 'sheets("sheet1").range("d1").copy sheets("summary).range("a1")          <=====    same above coding  end sub

note never used activate or select, wich macro recorder badly use time, making bad habits starters.

also, referencing hard cell location "d1", code not dynamic, if add more data, sub have changed, use start maybe


Comments

Post a Comment

Popular posts from this blog

c++ - QTextObjectInterface with Qml TextEdit (QQuickTextEdit) -

-
i registred handler simple qtextobjectinterface , draws 10x10 red rectangle. when used qtextedit in normal qwidget app, worked. when used qquicktextedit (textedit qml component) in qt quick app, doesn't worked (nothing drawed, rectangle in textedit reserved, because when change cursor position, notice there something, empty space, nothing drawed. qtextobjectinterface intrinsicsize method called (that explains why see there empty space 10x10), drawobject method isn't. i did research , found problem here: qquicktextedit.cpp qt 5.3.0 sources (line 1821) qsgnode *qquicktextedit::updatepaintnode(qsgnode *oldnode, updatepaintnodedata *updatepaintnodedata) { . . . if (textframe->firstposition() > textframe->lastposition() && textframe->frameformat().position() != qtextframeformat::inflow) { updatenodetransform(node, d->document->documentlayout()->frameboundingrect(textframe).topleft()); c...
Read more

javascript - angular ng-required radio button not toggling required off in firefox 33, OK in chrome -

-
i trying toggle required attribute on radio button using angular show html5 popup. i cannot following code function correctly in firefox 33. function correctly in chrome. required property being toggled via checkbox value, in firefox, when set false radio button still acts required , shows html5 required popup. see plnkr below example doesn't work me in ff 33. <!doctype html> <html> <head> <script data-require="angular.js@*" data-semver="1.3.1" src="//code.angularjs.org/1.3.1/angular.js"></script> <link href="style.css" rel="stylesheet" /> <script src="script.js"></script> </head> <body ng-app="myapp"> <script> angular.module('myapp',[]) .controller('mycontroller',['$scope',function($scope) { $scope.foorequired=true; $scope.submitform = function() { $scope.submitmessage = ...
Read more

xcode - Swift Playground - Files are not readable -

-
Image
files not readable in swift playground . how make files readable? same code runs on xcode terminal app, fails on swift playground. demo code below. import foundation println("hello, world!") var fname:string = "/users/holyfield/desktop/com.apple.iconcomposer.plist" var fm:nsfilemanager = nsfilemanager.defaultmanager() if(fm.fileexistsatpath(fname)){ println("file exists") if(fm.isreadablefileatpath(fname)){ println("file readable") var fd:nsdata? = nsdata(contentsoffile: fname) println(fd?.length) let pl = nsdictionary(contentsoffile: fname) println(pl?.count) println(pl?.allkeys) }else{ println("file not readable") } } else{ println("file not exists") } sample images: i have thank nate cook first quick response , solid answer. just case share answer post, title misleading. see nate's answer here: https://stackoverf...
Read more