excel - Naming sheets and copying data based on cell names -

-

i have database created following information: company, worksite, element name, date, number, , few columns numerical values.

thing need create new worksheet (that's easy), worksheets named after unique company/worksite information (that's hard part). after sheets created, need whole information regarding each combination database copied there respective worksheets (also not sure how it). worst part company/worksite name longer 31 characters, can't directly use full names move within sheets.

is possible ?

i count unique company/worksite rows, , copy them whole, while creating new worksheet index. still have no idea how deal naming.

edit: had free time on hands, , decided work on this.

    sub zaloz_arkusze()      application     .screenupdating = false     .enableevents = false     end      dim wbk3 workbook     dim wbk4 workbook     dim lw long     dim lr long     dim integer     dim j integer     dim test integer     dim rng range, rcell range, mytable range, mytable2 range     = 1     j = 4      'optimize macro speed       application.screenupdating = false       application.enableevents = false       application.displayalerts = false       application.calculation = xlcalculationmanual      set wbk3 = activeworkbook     set wbk4 = workbooks.open("c:\users\rzakrzewski\desktop\przeroby.xlsm")      wbk3.activate     set rng = range("a1", range("r" & rows.count).end(xlup))      lr = sheets(2).cells(rows.count, "s").end(xlup).row          sheets(2).range("q1:r" & lr).advancedfilter action:=xlfiltercopy, copytorange:=sheets(4).range("a1"), unique:=true     lw = sheets(4).range("b1", sheets(4).range("b1").end(xldown)).rows.count      set mytable = wbk3.sheets(4).range("b1", range("b1").end(xldown))     set mytable = wbk3.sheets(4).range("a1", range("a1").end(xldown))      test = mytable.rows.count      wbk3.sheets(2).activate      each rcell in mytable     on error resume next         wbk4.activate         wbk4.worksheets.add(after:=sheets(worksheets.count)).name =         wbk3.activate          rng             .autofilter , field:=18, criteria1:=rcell.value             .offset(1).specialcells(xlcelltypevisible).entirerow.copy _                 wbk4.sheets(j).range("a" & rows.count).end(xlup).offset(1)             .autofilter         end     on error goto 0     = + 1     j = j + 1  next rcell  application.enableevents = true      end sub

the above sorts data according company/object name, copies unique entries , creates number worksheets in seperate workbook according number of unique entries. decided skip naming part according company/object. name length restriction makes hard make.

next part i'm trying figure out, copy data each unique combination , paste worksheets. ie. have unique data combination in cells b1:c6. need data in cells d1:t6 copied second workbook worksheet(1). have no idea select data require. ideas ?

edit2: show in above, tried work on autofilter option. problem is, need 2 step checking unique data. companies have lots of objects under them, , same object have different company. i've got no idea how make work. tried double "for each" loop, it's not working.

after create new worksheet can navigate using:

sheets("newworksheetname").range("a1")="data"

Comments

Post a Comment

Popular posts from this blog

html - Firefox flex bug applied to buttons? -

-
i'm trying apply flex button on firefox i'm having problem on chrome doesn't happens. this css: .button { display: inline-flex; align-items: center; } as can see in fiddle, "caret" word moved new line, happens if element <button> tag, <div> works expected. http://codepen.io/anon/pen/xblmgx is firefox bug or there css i'm missing? nevermind, looks "mr firefox" doesn't idea... <button> not implementable (by browsers) in pure css, bit of black box, perspective of css. means don't react in same way e.g. <div> would. this isn't specific flexbox -- e.g. don't render scrollbars if put "overflow:scroll" on button, , don't render table if put "display:table" on it. stepping further, isn't specific <button> . consider <fieldset> , <table> have special rendering behavior: data:text/html,<fieldset style="d
Read more

html - Missing border-right in select on Firefox -

-
Image
when put select div width , padding-left, options have no border on right. more, happend if select have width 118px , parent have 15px of padding left! have idea, going on? my code: <!doctype html> <html> <head lang="en"> </head> <body> <div style="width: 1000px; padding-left: 15px;"> <select style="width: 118px;"> <option>a</option> <option>b</option> <option>c</option> </select> </div> </body> </html> and result: here plunker: click it happend on firefox on windows. tested on 40.0.2 version -webkit-box-sizing: border-box; -moz-box-sizing: border-box; -ms-box-sizing: border-box; box-sizing: border-box; source: https://stackoverflow.com/a/11390432/4431269 source of problem: https://bugzilla.mozilla.org/show_bug.cgi?id=924068 and use of google ! edit: (source of problem, explained) after rea
Read more

c# - two queries in same method -

-
i trying execute 2 queries in same method gives me exception. can red of exception declaring new command there way use same command? string id="hi"; connection.open(); oledbcommand command1 = new oledbcommand(); command1.connection = connection; string query1 = "select * products category='" + combobox1.text + "' , subcategory = '" + combobox2.text + "' , sizes='" + combobox3.text + "'"; command1.commandtext = query1; oledbdatareader reader = command1.executereader(); while (reader.read()) { id = reader[0].tostring(); } textbox1.text = id; string query = "insert category_in (category_id,amount,amount_in) values ('"+ id+"' ,500,300)"; command1.commandtext = query; command1.executenonquery(); messagebox.show("saved"); connection.close();
Read more