Error in Displaying data fetched from a table

[basubdd]

Hi Guys,

I am facing issues while displaying data fetched from an excel table. The data is fetched dynamically through a loop and I want them to be displayed in other table in the same workbook. The code snippet is mentioned below:

Please Login or Register  to view this content.

****************

The AGE_INSIGHT is the table from where I am fetching the data based on some Scenario ID's.

But currently only the last Scenario Id present in the recordset is getting displayed in the output. i.e say if scenario id's IN0000001 and IN000002 are selected then the data of IN000002 is only displayed in the output.

All the excel guru's out here please help.

[AlphaFrog]

You seem to copy all the records to the same ActiveCell which overwrites the previous copies.

ActiveCell.CopyFromRecordset rs

Offset from the ActiveCell after each copy.

[basubdd]

Hi AlphaFrog,

Thanks for your response but can you elaborate a little bit what actually you are trying to refer when you say offset from the ActiveCell.

Regards
Basu

[AlphaFrog]

Replace this...
ActiveCell.CopyFromRecordset rs

...with this if you copy only one row for each ID
Range("A" & i +1 ).CopyFromRecordset rs

...or this if you copy more than one row for each ID
Range("A" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset rs

[basubdd]

Hi AlphaFrog,

Actually, the code snippet you wanted me to replace is not fetching the data into the new worksheet "Insight_records" but pasting it into the same sheet where I have the control for these.

I am also attaching the Sheet which I am trying to update. May be this can give you a better idea of what I am trying to achieve.

Regards
Basu

[AlphaFrog]

Replace this...
ActiveCell.CopyFromRecordset rs

...with this if you copy only one row for each ID
Sheets("Insight_records").Range("A" & i +1 ).CopyFromRecordset rs

...or this if you copy more than one row for each ID
Sheets("Insight_records").Range("A" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset rs

[basubdd]

Hi,

Please find the attachment.

[basubdd]

Hi AlphaFrog,

Thanks a lot. It works now and it works absolutely fine ... but just one more problem .

The new sheet being created, is not having the header similar to the AGE_INSIGHT table. Actually I want the fields headers also to be populated along with the data.

Appreciate if you can help me with this one as well.

Regards
Basu

[AlphaFrog]

Please Login or Register  to view this content.

[basubdd]

Thanks a ton.

The code works perfectly fine now as I wanted.