Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

I am trying to pass the contents of 1

Status
Not open for further replies.

tait

Technical User
Jan 31, 2003
4
GB
I am trying to pass the contents of cell A1, A2 etc to a new worksheet only if the corresponding check box in cells B1, B2 etc are selected. I also need the new worksheet to show the cells neatly formatted with no blank cells.

Thanks
 
Here is a non-VBA way to approximate what you are asking for:

1. Set the LinkedCell property of each checkbox to the corresponding cell in another column (e.g., column "C")

2. Hide the column if you want to (optional)

3. On sheet 2, put formulas starting in row 2:
Code:
         =IF(Sheet1!C1,Sheet1!A1,"")

4. Put an appropriate header in row 1.

5. With the header cell selected, click Data/Filter/Autofilter from the menu

6. Click the button in row 1 and select (NonBlanks)

7. When different boxes are checked on sheet 1, click the button in row1 of sheet2, select (All), then repeat step 6.

If you want a VBA solution, you should post again in forum707 - VBA Visual Basic for Applications (Microsoft)

Hope this helps.
 
Thanks,

I had the first part with using the linked cells but was unsure about the formatting.

I'll try posting in the VBA forum and see if I can get something a bit neater but otherwise great thanks.

tait
 
tait,

As for extracting the required data to a separate sheet, I can provide the VBA code and extraction criteria. The best way to do this (faster for both you and me) would be to have you email me your file. I'll then modify it and return the file. If you happen to have sensitity data, perhaps you could replace it with fictitious data that still reflects the type of data you're working with.

Hope this helps.

Regards, ...Dale Watson dwatson@bsi.gov.mb.ca
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top