excel vba - Sudden Random Error -

-

i have following code,

sub addzeroes() 'declarations dim integer, j integer, endrow long 'converts column format text format application.screenupdating = false columns("a:a").select selection.numberformat = "@" 'finds bottom row endrow = activesheet.range("a1").end(xldown).row 'selects top cell in column activesheet.range("a1").select 'loop move cell cell = 1 endrow - 1             'moves cell down 1. assumes there's header row starts @ row 2             activecell.offset(1, 0).select             'the do-while loop keeps adding zeroes front of cell value until hits     length of 7 while len(activecell.value) < 7                             activecell.value = "0" & activecell.value             loop next application.screenupdating = true end sub

and adds preceding zeroes numbers , converts them text make them 7 charecters long if less 7. , has been working day , has stopped. keep getting error run time error 6 overflow. @ loss because has worked without issues day until now. keeps highlighting portion:

for = 1 endrow - 1

any thoughts?

change line:

dim integer, j integer, endrow long

to instead:

dim long, j long, endrow long

integer variables can go 32,767. if row numbers higher that, need use long.


Comments

Post a Comment

Popular posts from this blog

ruby on rails - Is it the correct way to implement belongs_to relation with factory girl? -

-
i have realy easy model. user have role_id depends of role table (id, name) role reference. i want create users of types on rspec test, factory girl. my first idea factory :role name "guest" factory :role_admin name "admin" end factory :role_supervisor name "supervisor" end etc... have lot different roles end factory :user email password '123456' password_confirmation '123456' association :role, factory: :role factory :admin association :role, factory: :role_admin end factory :supervisor association :role, factory: :role_supervisor end etc... have lot different roles end in model have simple method : def is(role_name) return self.role.name == role_name end it's correct way to? realy need create factory role? can make stub function in factory girl each role? i realy new test stuff, thanks. factories should reflect models. class user has_many :products en
Read more

geolocation - Windows Phone 8 - Keeping background location tracking active beyond four hours -

-
i'm in process of developing wp8 app makes use of background location tracking abilities provided os. idea monitor users position , notify them when near types of places. so far seems work fine , when running location tracking works expect. the problem is, seems phone times out background apps after around 4 hours, stopping location tracking. i can understand why microsoft did it, preserve battery life etc. there's not point having background location tracking app has manually restarted every 4 hours! if user chooses run app , made aware of potential battery hit, surely should able run indefinitely - point of course, if system runs out of resources or similar that's fair enough. does have experience this? there must hundreds of others apps in store have run issue have thought? , presumably there must way of keeping location tracking running? i've tried periodically updating live tile (using dispatchertimer) while tracking running doesn't seem enough ke
Read more

Uncaught TypeError: Cannot read property 'parentNode' of null javascript -

-
this code should make element disappear list when dropped on element (called cookiemonster) addevent(cookiemonster, 'drop', function (e) { if (e.stoppropagation) e.stoppropagation(); var el = document.getelementbyid(e.datatransfer.getdata('text')); el.parentnode.removechild(el); return false; }); create auxiliar variable this addevent(cookiemonster, 'drop', function (e) { if (e.stoppropagation) e.stoppropagation(); var el = document.getelementbyid(e.datatransfer.getdata('text')); var aux = el.parentnode; aux.removechild(el); return false; });
Read more