excel - VBA Sort not working -

-

i made vba code macro used excel file calculation. requires sorting excel sheet 2 columns 1 one. sorting first column not able sort other although code both same except column number. here code snippet sheet's calculation:

sheets("restock clusters").select range("b1").select selection.pastespecial paste:=xlpastevaluesandnumberformats, operation:= _     xlnone, skipblanks:=false, transpose:=false lastrow = range("b:c").find("*", searchorder:=xlbyrows, searchdirection:=xlprevious).row range("a3").select range(selection, selection.end(xldown)).select selection.clearcontents range("a2").select selection.autofill destination:=range("a2:a" & lastrow) range("d3:f3").select range(selection, selection.end(xldown)).select selection.clearcontents range("d2:f2").select selection.autofill destination:=range("d2:f" & lastrow) range("c1").select application.cutcopymode = false activeworkbook.worksheets("restock clusters").autofilter.sort.sortfields.clear activeworkbook.worksheets("restock clusters").autofilter.sort.sortfields.add _     key:=range("c:c"), sorton:=xlsortonvalues, order:=xldescending, _     dataoption:=xlsortnormal activeworkbook.worksheets("restock clusters").autofilter.sort     .header = xlyes     .matchcase = false     .orientation = xltoptobottom     .sortmethod = xlpinyin     .apply end range("a1").select application.cutcopymode = false selection.autofilter selection.autofilter activeworkbook.worksheets("restock clusters").autofilter.sort.sortfields.clear activeworkbook.worksheets("restock clusters").autofilter.sort.sortfields.add _     key:=range("a:a"), sorton:=xlsortonvalues, order:=xlascending, _     dataoption:=xlsortnormal activeworkbook.worksheets("restock clusters").autofilter.sort     .header = xlyes     .matchcase = false     .orientation = xltoptobottom     .sortmethod = xlpinyin     .apply end activesheet.calculate

please avoid use of .select slows down code besides causing runtime errors.

is trying (untested)?

sub sample()     dim ws worksheet     dim lastrow long      set ws = thisworkbook.sheets("restock clusters")      ws         '~~> copy code???          .range("b1").pastespecial paste:=xlpastevaluesandnumberformats, _         operation:=xlnone, skipblanks:=false, transpose:=false          lastrow = .range("b:c").find("*", searchorder:=xlbyrows, _                   searchdirection:=xlprevious).row          .range("a3:a" & lastrow).clearcontents          .range("a2:a" & lastrow).formula = .range("a2").formula          .range("d3:f" & lastrow).clearcontents          .range("d2:f" & lastrow).formula = .range("d2:f2").formula          '~~> sort col c         .columns(3).sort key1:=.range("c2"), order1:=xlascending, header:=xlguess, _         ordercustom:=1, matchcase:=false, orientation:=xltoptobottom, _         dataoption1:=xlsortnormal          '~~> sort col         .columns(1).sort key1:=.range("a2"), order1:=xlascending, header:=xlguess, _         ordercustom:=1, matchcase:=false, orientation:=xltoptobottom, _         dataoption1:=xlsortnormal     end end sub

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