excel - Clear copy of current file from data -

-

there workflow fill in sheet , mail when you're done. method mail send current sheet attachment, should directly create new copy of sheet data removed from.

i can clear current sheet, that's wrong, need clear new sheet. have read running macros on other workbooks, fails run macro. what's best solution?

sub senddata_click()     if msgbox("sure send?", vbyesno, "confirm") = vbyes         ' save current sheet         activeworkbook.save          ' send current file         mail_activesheet          ' mark sheet sent         worksheets("data").range("b6").value = true          ' create new emptied version         create_new_copy          msgbox "your data sent"     end if end sub  sub create_new_copy()     dim wb workbook     dim newfilename string     dim fileextstr string     dim filepath string      set wb = activeworkbook     newfilename = "filenamehere " & format(dateadd("d", 1, now), "yyyy-mm-dd")     fileextstr = "." & lcase(right(wb.name, len(wb.name) - instrrev(wb.name, ".", , 1)))     filepath = activeworkbook.path & "\" & newfilename & fileextstr      ' # problem, how clear new file??     ' clear_sheet_invoices      ' save sheet new file     wb.savecopyas filepath end sub  sub clear_sheet_invoices()     dim ws worksheet     set ws = worksheets("mydatasheet")      ' remove contents     ws.range("b2:f999").clearcontents      ' mark "sent" flag new sheet false     worksheets("data").range("b6").value = false end sub

as might note, using activeworkbook.savecopyas create copy, , have sub clear_sheet_invoices can clear required data. how run sub on new file?

i have thought copy mydatasheet new sheet, clear data sheet, save new file , copy sheet back. on opening file, check if copy of sheet present , remove sheet. yeah, damn ugly, there should better way right? ;)

you can change definition of clear_sheet_invoices() in way requires parameter of workbook type , clear worksheet "mydatasheet" in workbook.

then can invoke sub , pass newly created workbook parameter.

below code need change implement it:

sub clear_sheet_invoices(wb workbook)     dim ws worksheet     set ws = wb.worksheets("mydatasheet")      ' remove contents     ws.range("b2:f999").clearcontents      ' mark "sent" flag new sheet false     wb.worksheets("data").range("b6").value = false  end sub 
sub create_new_copy()     dim wb workbook     dim newwb workbook     dim newfilename string     dim fileextstr string     dim filepath string      set wb = activeworkbook     newfilename = "filenamehere " & format(dateadd("d", 1, now), "yyyy-mm-dd")     fileextstr = "." & lcase(right(wb.name, len(wb.name) - instrrev(wb.name, ".", , 1)))     filepath = activeworkbook.path & "\" & newfilename & fileextstr      ' save sheet new file     wb.savecopyas filepath     set newwb = excel.workbooks.open(filepath)       ' # problem, how clear new file??     call clear_sheet_invoices(newwb)     call newwb.close(true)  end sub

method senddata_click doesn't require changes.


Comments

Post a Comment

Popular posts from this blog

qt - Using float or double for own QML classes -

-
i've created components , helper methods using c++ , qt used in qml gui. of methods calculate gui elements (size, transformations, scene graph items creation). target arm 32 bit using opengl / eglfs render output. opengl using float , qml using real (defined double ). what should use in c++ do not lose precision? if use qreal ( double ) shouldn't lose precision. if git grep float in qtbase.git , can find out bit more: dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0-* important behavior changes * dist/changes-5.2.0-**************************************************************************** dist/changes-5.2.0- dist/changes-5.2.0- - qt compiled qreal typedef'ed double on dist/changes-5.2.0: platforms. qreal float on arm chipsets before. guarantees more dist/changes-5.2.0- consistent behavior between platforms qt supports, binary dist/chan...
Read more

Create Outlook appointment via C# .Net -

-
i need create outlook appointment using microsoft.office.interop.outlook , while can work locally on own workstation , works if run web application via server's browser, not work when connect server externally. hence, think might permission issue. i changed application pool identity " localsystem " don't access denied error. unfortunately, doesn't work. the app behaves if appointment created, appointment doesn't appear in outlook. here include file on top of aspx.cs page using outlook = microsoft.office.interop.outlook; here code using pop appointment. outlook.application apptapp = new outlook.application(); outlook.appointmentitem appt = apptapp.createitem(outlook.olitemtype.olappointmentitem) outlook.appointmentitem; appt.subject = txtfirstname.text + " " + txtlastname.text; appt.body = txtcomment.text; appt.alldayevent = false; appt.start = datetime.parse(txtreminderdate.text + " 8:00 am"); appt.end = datetime.p...
Read more

ios - Swift Array Resetting Itself -

-
i have 2 arrays: pointhistory , datehistory . have nstimer , , when timer runs out, action called. in action appending int pointhistory , , current date string datehistory . here timer action: func timeraction() { let steppervalue = int(stepper.value) employee.numberofpoints = steppervalue networking.saveemployee(employee, completion: { (error) -> void in if error != nil { let alert = uialertcontroller(title: "error", message: "there error updating \(self.employee.name)'s points", preferredstyle: .alert) let alertaction = uialertaction(title: "ok", style: .cancel, handler: nil) alert.addaction(alertaction) self.presentviewcontroller(alert, animated: true, completion: nil) } }) var dateformatter = nsdateformatter() dateformatter.dateformat = "mm-dd-yyyy" dateformatter.timezone = nstimezone.localtimezone() var date = nsdate() var ...
Read more