series fill vba

[wayneg]

within my vba, i have a line that inserts a formula into a cell which looks like this and works

Range("b25").Formula = "=IF('Times!f29="""","""",'Times'!f29)"  

my question is,

instead of adding another line with similar formula, how would i do a fill series horizontally without writing it as follows

 
Range("b25").Formula = "=IF('Times!f29="""","""",'Times'!f29)" 
Range("c25").Formula = "=IF('Times!g29="""","""",'Times'!g29)" 
Range("d25").Formula = "=IF('Times!h29="""","""",'Times'!h29)"  

i was thinking about adding a col, row and a loop to do a column=column+1 so it keeps going until reaching cell at25 but dont know how to write it and will keep trying until one of you brainy people tell me.. lol

please note the f29 value also increments

[TMS]

Please Login or Register  to view this content.

Regards, TMS

[Norie]

Doesn't this work?

Please Login or Register  to view this content.

[wayneg]

the f29 value also changes incrementally

ie
b25=f29
c25=g29
d25=h29

etc to

at25=ax29

[Norie]

F29 will increment with the posted code.

[Izandol]

That is what this code does.

[wayneg]

that worked ok... i didnt think about it that way .. sorry for my idiocy. i thought the code only incremented the first part... the b25


i did the hard work then...lol

thank you both

[TMS]

You're welcome.