Results 1 to 4 of 4
  1. #1
    2 Star Lounger
    Join Date
    Jun 2006
    Posts
    165
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Dear all

    I need help with a spread sheet. Please can you help me, I am running office outlook 2010 and 2003.

    If you open the excel spread sheet , you will see that I have highlighted some cells in Yellow on the ‘Master’ workbook and some cells in orange.

    The information as you can see is ‘test’ apart from the drop down boxes and the number cells. If you want to test it you can insert anything, apart from the drop down boxes.

    What happens is that when you type in the information like I have done and click on the ‘Save’ button this transfers all the submitted information in to the ‘Database’ workbook. That process is fine, but when you go back to the ‘Master workbook’ to type in another entry the cell titles in yellow disappear, and the cells in orange stay. What I would like to do is that when you click on save, the data gets transferred to the ‘Database’ and when you go back to the ‘Master’ workbook the cell titles remain ( Yellow ) and the (orange) cells remove the information.

    Macro settings need to be set to low, you might need to download the original excel from woodys as when you click on the save button it removes the titles. The titles can be found on the example workbook.

    If you can help , that would be great.


    Thanks a million.
    Attached Files Attached Files

  2. #2
    2 Star Lounger
    Join Date
    Jun 2006
    Posts
    165
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Quote Originally Posted by fulhamn View Post
    Dear all

    I need help with a spread sheet. Please can you help me, I am running office outlook 2010 and 2003.

    If you open the excel spread sheet , you will see that I have highlighted some cells in Yellow on the ‘Master’ workbook and some cells in orange.

    The information as you can see is ‘test’ apart from the drop down boxes and the number cells. If you want to test it you can insert anything, apart from the drop down boxes.

    What happens is that when you type in the information like I have done and click on the ‘Save’ ( The save button is the big save button on the 'Master' Workbook' Not the file- save)button this transfers all the submitted information in to the ‘Database’ workbook. That process is fine, but when you go back to the ‘Master workbook’ to type in another entry the cell titles in yellow disappear, and the cells in orange stay. What I would like to do is that when you click on save, the data gets transferred to the ‘Database’ and when you go back to the ‘Master’ workbook the cell titles remain ( Yellow ) and the (orange) cells remove the information.

    Macro settings need to be set to low, you might need to download the original excel from woodys as when you click on the save button it removes the titles. The titles can be found on the example workbook.

    If you can help , that would be great.


    Thanks a million.

  3. #3
    Super Moderator RetiredGeek's Avatar
    Join Date
    Mar 2004
    Location
    Manning, South Carolina
    Posts
    9,436
    Thanks
    372
    Thanked 1,457 Times in 1,326 Posts
    Heather,

    Code:
    Sub Print_and_save2()
    '
    ' Print_and_save2 Macro
    ' Macro recorded 04/06/2008 by HeatherW
    '
    
    '
        Application.ScreenUpdating = False
        Sheets("Database").Select
        ActiveSheet.Unprotect
        Rows("2:2").Select
        Selection.Copy
        Range("A3").Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
        Selection.Font.ColorIndex = 0
        Selection.Insert Shift:=xlDown
        Range("A2").Select
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        Sheets("Master").Select
        Range("B2:B8").Select
        Selection.ClearContents
    ***** Range("B11:D16").Select ******
        Selection.ClearContents
    ***** Range("G11:G16").Select ******
        Selection.ClearContents
    ***** Range("I11:I16").Select *****
        Selection.ClearContents
        Range("B2").Select
        ActiveWorkbook.Save
    End Sub
    The ranges you have above include the disappearing headings. on Row 13.

    RG
    May the Forces of good computing be with you!

    RG

    PowerShell & VBA Rule!

    My Systems: Desktop Specs
    Laptop Specs

  4. #4
    2 Star Lounger
    Join Date
    Jun 2006
    Posts
    165
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Resolved , cheers


    Quote Originally Posted by RetiredGeek View Post
    Heather,

    Code:
    Sub Print_and_save2()
    '
    ' Print_and_save2 Macro
    ' Macro recorded 04/06/2008 by HeatherW
    '
    
    '
        Application.ScreenUpdating = False
        Sheets("Database").Select
        ActiveSheet.Unprotect
        Rows("2:2").Select
        Selection.Copy
        Range("A3").Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
        Selection.Font.ColorIndex = 0
        Selection.Insert Shift:=xlDown
        Range("A2").Select
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        Sheets("Master").Select
        Range("B2:B8").Select
        Selection.ClearContents
    ***** Range("B11:D16").Select ******
        Selection.ClearContents
    ***** Range("G11:G16").Select ******
        Selection.ClearContents
    ***** Range("I11:I16").Select *****
        Selection.ClearContents
        Range("B2").Select
        ActiveWorkbook.Save
    End Sub
    The ranges you have above include the disappearing headings. on Row 13.

    RG

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •