excel - Copy Rows from Multiple Sheets and sum values -


i have worksheet every month jan dec , worksheet called report copied data goes

in months sheet have following data

id     name     # days of vacation 1      george   3 2      mary     5

every month sheet has same names names not bound same id want in summary sheet 

id     name     # days of vacation     month 1      george   3                      jan 2      george   2                      feb sum    george   5                      year

what have managed copy 1 month sheet report can't copy multiple month sheets , don't know how sum part. ideas?

sub searchforstring()      dim lsearchrow integer     dim lcopytorow integer      on error goto err_execute      'start search in row 2     lsearchrow = 2     'start copying data row 2 in sheet2 (row counter variable)     lcopytorow = 2      fname = inputbox("enter name", "enter data")     if fname = ""         while fname = ""             msgbox ("enter name")             fname = inputbox("enter name", "enter data")         wend     end if      while len(range("a" & cstr(lsearchrow)).value) > 0          'if value in column e = "mail box", copy entire row sheet2         if sheets("jan").range("b" & cstr(lsearchrow)).value = fname              'select row in sheet1 copy             rows(cstr(lsearchrow) & ":" & cstr(lsearchrow)).select             selection.copy              'paste row sheet2 in next row             sheets("report").select              rows(cstr(lcopytorow) & ":" & cstr(lcopytorow)).select             activesheet.paste             'addwatermark ("jan")               'move counter next row              lcopytorow = lcopytorow + 1         end if          'go sheet1 continue searching         sheets("report").select           lsearchrow = lsearchrow + 1     wend      'position on cell a3     application.cutcopymode = false     range("a3").select      msgbox "copy done"  exit sub err_execute:    msgbox "error" end sub

what you'll need loop through each of month sheets, , while on each sheet, loop through data find values on sheet match name indicated name (fname in code). 2 loops total. also, check out this link starter, should avoid selecting , copying when writing vba code.

the basic code you'd looking (with assumptions made) following

'assuming jan first sheet , dec 12th sheet in workbook  lcopytorow = 2 = 1 12     lsearchrow = 2     while len(sheets(i).cells(lsearchrow,1).value) > 0         if  sheets(i).cells(lsearchrow,2).value = fname             sheets("summary").range(sheets("summary").cells(lcopytorow,1), _                     sheets("summary").cells(lcopytorow,3)) = _                            range(sheets(i).cells(lsearchrow,1), _                                        sheets(i).cells(lsearchrow,3)).value             lcopytorow = lcopytorow + 1         end if         lsearchrow = lsearchrow + 1     loop next

Comments

Post a Comment

Popular posts from this blog

html - How to style widget with post count different than without post count -

i have border below li elements in wordpress widget types appropriate. element inside set block gives them nice easy click full width. the problem, when choose option "show post count" when adding widget such categories or archives displays post count plain text after tag , because tag block pushes post number text line below. whether choose show post count or not show post count still gives exact same element identifyer example "widget_categories". how style post count not on next line still keep links non post count list items full width? here's example on sidebar www.bbmthemes.com/themes/modular/blog-standard/ in order solve problem need remove display:block; for ul.widgets ul a , add in it's place line-height: 33px; what going achieve have same visual effect. what going lose doing links going work on text , not on "box". the other way out of find post count coming , make changes this. example change text count i
Read more

How to remove text and logo OR add Overflow on Android ActionBar using AppCompat on API 8? -

have researched death , cannot find answer. i have actionbar using appcompat. supporting api v7 (api v8 do). actionbar works api v11. api < v11 has problem of removing icon (and feature) actionbar without supplying overflow. big picture have app logo, app title, , 3 icons squidging same actionbar on low end phone. trying make room! i happy 1 of 2 solutions. either: a method of getting overflow functionality can retrieved pull down. (preferred) method of removing icon , text actionbar below current xml api 11+: <resources> <!-- base application theme api 11+. theme replaces appbasetheme res/values/styles.xml on api 11+ devices. --> <style name="appbasetheme" parent="theme.appcompat.light.darkactionbar"> <item name="android:actionbarstyle">@style/liteactionbarstyle</item> <item name="actionbarstyle">@style/liteactionbarstyle</item> </st
Read more

javascript - storing input from prompt in array and displaying the array -

i want take the inputs user prompt, store input in array, , display it. want take 10 inputs user using for loop. have tried do-while shown below. var givennames = new array(); var pattern = /[\w\d]{1,}/ig; do{ var name = prompt("enter names. letters , digits accepted!\nentering empty field stops asking",""); if(name && name.match(pattern)){givennames.push(name);} } while(name != ""); function displaynames(){ if(givennames.length > 0){ document.getelementbyid("list").innerhtml = "<span style='color:navy;font- weight:bold;'>given names are:<\/span><br><br>" + givennames.join("<br><br>"); } else { document.getelementbyid("list").innerhtml = "<span style='color:navy;font-weight:bold;'>nothing has been given!<\/span>"; } } how replace for loop? var givennames = new array();
Read more