Reorganizing data from another sheet

**cadamhill** · 03-29-2011, 07:36 PM

Example. I would like to take data from one sheet (if it is selected) and populate it to another sheet in the workbook, in consecutive row without the spacing of the first sheet. For example. Sheet 1, Rows 2, 9, 31, if selected I would populate to sheet 2, as Rows 1, 2, 3 in order. Basically I am selecting names from a list on sheet 1 and would like to post them on sheet two as the "selected recipents". I want them to populate without all of the extra spaces. Does anyone have any suggestions they might offer. Thanks for any help....

**cadamhill** · 03-29-2011, 08:21 PM

Basically I am adding a list of potential donors to Sheet 1. If someone acually makes a donation, their name would be populated to sheet 2, in consecutive order. I would like to place a check by the name in sheet 1 to indicate they made a donation. From that check mark, their name would populate to sheet 2. EXAMPLE The second selection of sheet one (even if it is the 40th choice on the sheet would need to populate to the second row of sheet 2, and so on... The need is to create a list that is condensed and does not have all of the spaces. It would be some sort of pivot table I suppose but Im really struggling with this. Any thoughts.

**cadamhill** · 03-29-2011, 08:39 PM

I know how to to this by assigning award=1 and no award=0 and they setting up a filter, but I want to be able to do this with by clicking a check box.

**mahju** · 03-30-2011, 09:27 AM

I think you need some VBA to do this.

will try

Regards

**mahju** · 03-30-2011, 11:55 AM

Use this code

Double click the cell in sheet2 to copy cell value in sheet 1 in first row

Change the code as needed

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
q = ActiveCell.Value  ' get value from active cell in sheet 2
Sheets("sheet1").Activate   ' Select sheet1
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate 'Next column in Sheet1
ActiveCell.Value = q   '  Copy cell in sheet 1
Sheets("sheet2").Activate  ' Select sheet 2 again
ActiveCell.Offset(rowOffset:=0, columnOffset:=1).Activate 'Select next cell in sheet 2
End Sub

Regards

**cadamhill** · 03-31-2011, 05:11 PM

Thank you for your help. Im not the greatest with VB and Macros but I can usually follow enough to take the lead and modify it. This one I can not. If you take a look at the sample page I sent, you will see where one can enter a variety of customer info. That info also populates to the far right (off the screen) to a group of lists. I tryed to use the lists to populate the selected "subcontractors" and all of teir data to sheet 2.

Sheet 1 is the "Solicitations"
Sheet 2 is the "Awarded"

Basically, in this example, I am taking a group of subcontractors and their information and selecting the ones I like and populating them to the list of contractors I wish to work with (sheet 2) . It would be cool if under the award? column on sheet 1, (on the actual worksheet), we could have a check box that would work as a means of selection, thus populating all of that contractors data to sheet 2. I figured creating a list off to the right would allow me to put the data in usable form would help but no such luck. Thanks again for any help.