excel - On Click Command Button Macro -


i'm trying create macro command button when clicked, job number row , file job. if not exist want copy template , save new name, otherwise open file.

however, cannot seem work out how hold of information command button calls macro. have far:

public function shapeexists(onsheet object, name string) boolean      on error goto errshapeexists     if not onsheet.shapes(name) nothing         shapeexists = true     end if errshapeexists:     exit function  end function  private sub worksheet_change(byval target excel.range) dim buttonname string buttonname = (target.row - 1)     if not shapeexists(activesheet, buttonname)       if range("o" & target.row).value = "" , target.column <= 14 , target.row > 1             activesheet.buttons.add(910.5, range("o" & target.row).top, 80, 20).select             selection.name = buttonname             selection.onaction = "sheet1.jobbutton"             activesheet.shapes(buttonname).select             selection.characters.text = "open job"       end if     end if end sub  private sub jobbutton() dim newtext string activesheet.shapes(application.caller).select  if range("n" & selection.topleftcell.row).value <> ""     newtext = "job " & range("n" & selection.topleftcell.row).value     dim checkfilename string     dim check string     check = "n" & selection.topleftcell.row     checkfilename = newtext & ".xlsm"     if dir(checkfilename) <> ""     workbooks.open (newtext)     else     dim srcbook workbook     set srcbook = thisworkbook     dim newbook workbook     newbook = workbooks.open("job template.xlsm")     srcbook.worksheets(1).range("d" & selection.topleftcell.row).copy     newbook.worksheets(2).range("b15").pastespecial         newbook             .title = newtext             .subject = newtext             .saveas filename:=newtext         end     end if else errmsg: msgbox ("job should have number."), , "no job number"  end if end sub

as can see trying activesheet.shapes(application.caller).select, causing "run-time error '13': type mismatch".

any appreciated, thank you!

right-click button --> view code --> put jobbutton code here


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