Loop through Columns and Row

Hi,

I want to perform double_click event for combobox, but only for cells in certain columns and rows.

this is code :

Please Login or Register  to view this content.

I have to loop through columns 6 to 67 with step 1, and rows 19 to 409 with step 5, but don't know how (I'm VBA beginner).


I attached sample, coloured cells needs that double_click event.

Any help appreciated !!


Regards, Luka

I realised only range for this code has to be changed into cells I want :

Please Login or Register  to view this content.

Still don't know how to do It though, there are thousand of ranges, I need a loop

try this...

Please Login or Register  to view this content.

Don't forget to click *

Hi Vikas_Gautam, thanks for response.

I don't know how you mean that, I'm not quite good at VBA. Tried like this, but not working :

Please Login or Register  to view this content.

Can you show what you meant ?

Hi luka..

your code...

Please Login or Register  to view this content.

Does not have any reference to range or col..?

then how you are gonna use rows and columns...


Vikas Gautam

Dont' forget to click *

okay I got it..

you wanna change the position of combo box based on selection in the Respective ranges you have told..

Try this..

Please Login or Register  to view this content.

Don't forget to click *

okay I got it..

you wanna change the position of combo box based on selection in the Respective ranges you have told..

No, read post #7. Although I tried your code, I get error

try this then..

check the attachment..

its working now..

actually you or I forgot to declare variables.. used..




Don't forget to click *

No, sorry, still not what I want.

Looks like you don't understand, so I'll explain as simple as possible...Look into your last sample, and look for cells that are coloured. That are the only cells where I want double_click event triggered, nowhere else.

Your last sample does exactly what mine does in first place - keeps trigging in all other cells too, check It.

I think,
Finally I have got the solution...

it changing the columns from 6 to 67 and rows from 19 to 419 with step 5

Try running the file in execl 2007 or higher as its giving error in excel 2003

Don't forget to click *

The code I used is..

Please Login or Register  to view this content.

Don't forget to click *, again

Yes, that' the right thing !!

Never knew you can do this :

If Not Intersect(Target, Rows(r), col)

Thanks man, much appreciated !!!