Saving userform to sheet

**zebra** · 09-08-2009, 09:01 AM

Just tried it but the Rate column formula isn't working. If I select it I can see the formula in the top bar but the cell is blank. hm. If I write over it with a number the total does change so that part works!

meeting someone for lunch but will be back soon.

**royUK** · 09-08-2009, 09:34 AM

Are you sure that the formula you provided is correct?

**zebra** · 09-08-2009, 10:18 AM

wayhey... it works! you were right, I forgot I changed one of the columns around.
Thank you so much for your help!

Ah, can I ask one more question please. As you maybe saw on the dummy I have a EXTRACTED sheet which I need to contani the same information as the DATABASE sheet but without the last 3 columns. I then need to find a way to email only the EXTRACTED sheet to the finance department. I don't know if I can do this by putting a send button which would save the single sheet as a new workbook to be sent. Or if I just have to get people to copy and paste it into a new document to send. Any ideas?

thanks again
Z

**royUK** · 09-08-2009, 10:32 AM

There's plenty of email/excel VBA code here.

Copying the relevant data isn't difficult

Code:

Sub Extract()
    Dim rng    As Range

    Sheets("Extracted").Cells.Clear
    With Sheets("Database")
        Set rng = .UsedRange

        rng.Resize(rng.Rows.Count, _
                   rng.Columns.Count - 3).Copy Sheets("Extracted").Cells(1, 1)
    End With
End Sub

To avoid errors unmerge the cells on the Extract sheet & try to avoid using them in future.

**zebra** · 09-08-2009, 12:19 PM

Ok thanks for the link to the email stuff.

With regard to the code you gave, where is it that I enter the columns that I'm wanting to extract - columns A to N ?

**royUK** · 09-08-2009, 12:52 PM

I've adjusted the code, it was copying the correct number of columns

Code:

Sub Extract()
    Dim rng    As Range

    Sheets("Extracted").Cells.Clear
    With Sheets("Database")
        Set rng = .UsedRange

        rng.Resize(rng.Rows.Count, 14).Copy Sheets("Extracted").Cells(1, 1)
    End With

End Sub

**zebra** · 09-08-2009, 01:23 PM

It works : D And just in time for half 5...

Thank you so so much for your help!

**royUK** · 09-08-2009, 03:01 PM

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save