Excel 2003 VBA - Locate Date & Move Relevant data -


i need automate process that's not one-off event, ~500 facilities, each 100+ assets scheduled different dates throughout year completion. have workbook set main/source sheet 12 month sheets (jan, feb, march, ... dec). need sort of code allow me search particular date , send other same-row corresponding data appropriate sheet.

for example have asset due maintenance in june, 6/17/11. need excel search using month only, , moving asset it's name, description, cost, etc june tab. ive managed locate assets searching "6/" cannot find assets date of 6/17/11. copies needed data , attempts move proper sheet, when makes attempt microsoft visual basic error code 400 pops up. ideas? appreciated.

see if helps ...

private sub findcells()     '' step 1, find rows containing date (june 2011 dates hardcoded in example)     dim collectionofrowranges new collection     dim ws worksheet     dim rgcell range     each ws in thisworkbook.worksheets         each rgcell in ws.usedrange.cells             if isdate(rgcell.text)                 if month(cdate(rgcell.value)) = 6 , year(cdate(rgcell.value)) = 2011                     '' debugging ... watch , make sure stops @ right places                     ws.activate                     rgcell.select                     stop                     '' end of debug code                     call collectionofrowranges.add(rgcell.entirerow)                 end if             end if         next rgcell     next ws     '' step 2, copy rows new wb     set ws = workbooks.add.sheets(1)     ws.name = "june 2011 rows"     dim rgrow range     set rgcell = ws.cells(1, 1)     each rgrow in collectionofrowranges         call rgrow.copy         call rgcell.entirerow.pastespecial(xlpastevalues)         set rgcell = rgcell.offset(1)     next rgrow end sub

Comments

Post a Comment

Popular posts from this blog

asp.net - repeatedly call AddImageUrl(url) to assemble pdf document -

i'm using abcpdf , i'm curious if can recursively call addimageurl() function assemble pdf document compile multiple urls? something like: int pagecount = 0; int theid = thedoc.addimageurl("http://stackoverflow.com/search?q=abcpdf+footer+page+x+out+of+", true, 0, true); //assemble document while (thedoc.chainable(theid)) { thedoc.page = thedoc.addpage(); theid = thedoc.addimagetochain(theid); } pagecount = thedoc.pagecount; console.writeline("1 document page count:" + pagecount); //flatten document (int = 1; <= pagecount; i++) { thedoc.pagenumber = i; thedoc.flatten(); } //now try again theid = thedoc.addimageurl("http://stackoverflow.com/questions/1980890/pdf-report-generation", true, 0, true); //assemble document while (thedoc.chainable(theid)) { thedoc.page = thedoc.addpage(); theid = thedoc.addimagetoc...
Read more

java - Android recognize cell phone with keyboard or not? -

in android app, want detect user's device if device has keyboard(like motorola milestone) , show corresponding user interface. guys know how that? ! regards justicepenny http://developer.android.com/reference/android/content/res/configuration.html public int keyboard the kind of keyboard attached device. 1 of: keyboard_nokeys, keyboard_qwerty, keyboard_12key. that's it!
Read more

iphone - How would you achieve a LED Scrolling effect? -

how achieve led scrolling effect example below? led sign - led ticker emulator iphone , ipad http://img.skitch.com/20101201-rsfh4p1bajb1wp94k466pdpiuj.preview.jpg sometimes remunerates comment in other posts :) have put code you, should implement font '8pin matrix' realistic feeling. uilabel *label; - (void)viewdidload { [super viewdidload]; label = [[uilabel alloc]initwithframe:cgrectmake(10, 50, 300, 20)]; label.font = [uifont fontwithname:@"courier-bold" size:16.0]; label.backgroundcolor = [uicolor blackcolor]; label.textcolor = [uicolor greencolor]; label.linebreakmode = uilinebreakmodecharacterwrap; // otherwise "…" label.text = @"this led text scrolled "; // blanks space between [self.view addsubview:label]; [nstimer scheduledtimerwithtimeinterval:0.12f target:self selector:@selector(scrolllabel) use...
Read more