excel - FOR NEXT or FOR EACH LOOP only works for first value -

-

please in making next loop following code; i'm trying copy each cell in range & past specific (fixed position) cell copy results specific (fixed position) cells , paste cells. want for each cell in range. using macro recorded code below worked perfect want make next or each loop recorded macro, please me.

'

' pastspecialcheck6 macro '  ' l1     activesheet.cells(12, 103).select     selection.copy     range("b9").select     selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _         :=false, transpose:=false     range("b28:b34").select     selection.copy     activesheet.cells(40, 103).select     selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _         :=false, transpose:=false ' l02     activesheet.cells(13, 103).select     selection.copy     range("b9").select     selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _         :=false, transpose:=false     range("b28:b34").select     selection.copy     activesheet.cells(40, 104).select     selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _         :=false, transpose:=false ' l03     activesheet.cells(14, 103).select     selection.copy     range("b9").select     selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _         :=false, transpose:=false     range("b28:b34").select     selection.copy     activesheet.cells(40, 105).select     selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _         :=false, transpose:=false

i tried code looping in vain. works 1 cell in range.

  sub pastspecialmy_30july2015_2()  ' ln length  dim ln variant  ' numbers  dim integer   ' l1   each ln in activesheet.range("cy12:cy30").cells    = 125 143     ' ln.activate     range("b9").select     selection.value = ln     range("b28:b34").select     selection.copy      activesheet.cells(57, i).select     selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _         :=false, transpose:=false   next  next   end sub

is trying?

sub sample()     dim long, n long     dim ws worksheet      set ws = activesheet      n = 103      ws         = 12 30             .cells(i, 103).copy             .range("b9").pastespecial paste:=xlpastevalues, _             operation:=xlnone, skipblanks:=false, transpose:=false              .range("b28:b34").copy             .cells(40, n).pastespecial paste:=xlpastevalues, _             operation:=xlnone, skipblanks:=false, transpose:=false              n = n + 1         next     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