Inputting text in subsequent columns

Posted by Leigh Hall on August 01, 2001 2:34 PM

I need to make excel find the first blank cell in a column of data (say column A) and enter some text. I then need to move to EACH of the five columns to the right of column A(same row) inputting the same text.

Any help would be much appreciated.

Regards

Leigh

Posted by Cory on August 01, 2001 2:40 PM

Try this:

range("a1").select
selection.end(xldown).offset(1,0).select
activecell.value = "your input"
activecell.offset(0,1).value = activecell.value
activecell.offset(0,2).value = activecell.value
activecell.offset(0,3).value = activecell.value
activecell.offset(0,4).value = activecell.value
activecell.offset(0,5).value = activecell.value
activecell.offset(1,0).select

Cory

Posted by Corey on August 01, 2001 2:41 PM

Not sure if this is the complete solution, but might get you close. Have you tried:

Highlight your range
Press F5 (Go to)
Select "Special"
Select "Blanks"
OK
Then tab through and input in the blanks.

Corey

Posted by Leigh Hall on August 01, 2001 2:46 PM

Many thanks Cory works perfectly :))