Solved: Saving to various sections on the same sheet

[Aussiebear]

Rofl.... its like getting my teeth pulled.

For the second find it then should read

Set Tgt = ActiveSheet.Column(2).Find(After:=Tgt.Offset(0,1), What:=Me.Combobox1.Text,Lookat:= xlWhole)

Ted

[Bob Phillips]

I haven't tested it, but that looks about right.

[Aussiebear]

Bob it just inserts the data on the bottom row of the event, not to the bottom row of the sub event.

Ted

[Bob Phillips]

Ted,

This gets a bit tricky.

Does your sub sections have blank lines between it and the next sub-section within that evet, or are the only blank lines between events?

[Aussiebear]

Yes blank lines between the subsections

[Aussiebear]

I might just drop the concept of writing to various subsections on the one sheet and replace the idea with setting up different sheets for different events.

Ted

[Cyberdude]

Hey, AussieBear, shall we assume you are seeking a medal in track? (Or perhaps synchronous water dancing??) You can do it!! Go AB, GO!

[Aussiebear]

Hey Cyberdude, thanks for the motivation. Merry Christmas to you

[Aussiebear]

Curosity got the better of me, and I went back over the post of MD's, and after correcting some error's in the code (by me not by MD), .....

....it works!!!! Woo Hoo somebody give that boy a hug.

I haven't been this excited since I came second in french in year 10. There were only two of us in the class but what the hell, I came second.

Ted

[mddr]

You should add the After argument to the second Find, so that it starts where the first find left off, After:=Tgt.Offset(0,1).

And don't forget to test you haven't gone too far (if necessary

[Aussiebear]

G'day mddr, I wont actually be needing it since I'm off to marry off the principles as outlined by MD with a sheet selection for the job at hand.

No don't panic, my athletic prowess doesn't extend to more than one sheet.

Whilst the code as MD has suggested posts to the right subsection on a single sheet. I have a bigger project in mind. At work we have recently been involved in recieving more than 6000 tons of stubble hay which has been deployed into a number of areas with up to 6 blocks in any one area.

Since I can now write to multi sections on one page this takes care of the areas with a different numbe rof blocks allocated. I will be creating different sheets each named after a different area.

So the problem is kind of solved if you follow my drift. I appreciate your assistance.

Ted

[Aussiebear]

Hmmm... Hey Bob.... you living in a cave? I just had an echo effect.

You should add the After argument to the second Find, so that it starts where the first find left off, After:=Tgt.Offset(0,1).

And don't forget to test you haven't gone too far (if necessary).

.... cup your ear just so...

You should add the After argument to the second Find, so that it starts where the first find left off, After:=Tgt.Offset(0,1).

And don't forget to test you haven't gone too far (if necessary

[Bob Phillips]

Well I've never been to Kuwait ...