VBA Change Loop count from 1000 to 1

[blablagei]

Hello i found this script, problem it is very slow and i am not able to change it that it is working faster.

I would like to count the cells from A 1000 to A1 (in active table) and do something.

The code below do the work but super slow, and sometimes it will not stop woking.

Could you help me please ?
I tried to set i = 1000 that doesnt help and bring me in an endless loop (i think)

Please Login or Register  to view this content.

[Sintek]

I would like to count the cells from A 1000 to A1 (in active table) and do something.

Your provided code is checking length of cell?
Use a helper column with formula...Filter on result and delete rows at once...Upload sample file if you need clarity...

[blablagei]

Dear sintek, sorry i am a totaly new in Excel and i have no idea what you mean.

I know a little bit javascript programming but nothing with table manipulation.

Do you have an code example for me ?

Thank you :-)

[Sintek]

Depends what you actually want to do...
Are you wanting to delete all rows where length of Col A cells is less than 4?

[blablagei]

Yes , the do something i think work good and do what i want . I think the for loop goes from the last row of the table to 1 . I just have 400 rows with data so 1000 would be more than enough.

Could that be a quick solution ?

[Sintek]

Upload sample file (exact setup as actual file) so that a few solutions can be offered...

[blablagei]

I do not know how to upload. On image insert button ? I cant do attachments , blank white line.

[Sintek]

See Top Yellow Banner

[ByteMarks]

Your provided code is checking length of cell?
Use a helper column with formula...Filter on result and delete rows at once

For length < 4, could also filter with a criteria equal to ???

[Sintek]

criteria equal to ???

what about 1,2 ? and will only work with alpha or alpha numeric...

[blablagei]

I couldnt load it up couse i do not know how to bring that file under 1000 kb
7 zip doesnt work to tell me invalid file .
Links to my cloud are also not allowed.

[Sintek]

Upload a small sample file...Couple of lines...but same format as actual file...

[ByteMarks]

Sorry I meant in a vba loop. Would be 3 iterations rather than 1000 if a helper col wasn't an option.

[blablagei]

I just have 11 rows and the vba script inside 9000 kb

[blablagei]

m	39
kühroint	11
wandern	15
pin	5
www	12
c	3

[blablagei]

The for loop goes collums down and delete every row wich has no more than 3 letters. How can i set the loop to start at 1000 and go to 1 ?

I think the script on top start at the end of the table and thats why its working so long couse its deleting empty ceels.

[jindon]

Easy...

Please Login or Register  to view this content.

[blablagei]

Thank you Guru i will try that.

[jindon]

Try this one too.

Please Login or Register  to view this content.

[blablagei]

Thank you Jindon ! and all others who try to help me it works (like a skyrocket :-))

Thank you so much !

Here is the working Example for all how need that in future:

Please Login or Register  to view this content.

[jindon]

..............................

[jindon]

You are welcome.

I suggest you to add a variable.

e.g

Please Login or Register  to view this content.

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED.

Also, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.

[blablagei]

Wow super thank you Jindon , i will try to mark your post as solution.

[Sintek]

delete every row which has no more than 3 letters

For future reference...no loop option...

Please Login or Register  to view this content.

[blablagei]

Super cool Sintek thank you , i played with your script.

It is faster than the Loop. The Example on Top delete every word wich have more than 3 Letters.
To Change that Line 3 after Adress >3

The Data in A .

Super Scripts to learn :-)

[Sintek]

Not quite understanding your requirement...
Easier with sample files and expected output showing...

[blablagei]

Ok thank you i will open a new post later , and learn how to upload files. I think the administration would like to do so. :-)