+ Reply to Thread
Results 1 to 15 of 15

comparison macro

Hybrid View

  1. #1
    Registered User
    Join Date
    05-16-2006
    Posts
    93

    fantastic..can this macro be added to another?

    Thanks, that was a bit of a numb skull question which I shot off before thinking about.

    Thanks for all your help, the macro works very well and now gets rid of discrepancies that have been causing problems in the past.

    Is it possible to add this macro to work at the end of a previous macro action
    ie. I now have a macro that I recorded to copy and past a sheet then take out some columns before I run the macro that you wrote, can these two be easily combined? The only way i can do it currently is to add some recorded code that selects your macro and runs it, e.g.
    Application.Run "'Milestone281008v2.xls'!Highlight"
    but this stops working as soon as I change the workbook (Milestone281008v2.xls) name.

    Here is what I run before your one:
    COMP1 Macro
    ' pre highlight macro
    '
    
    '
    Sheets("Milestone").Select
        Cells.Select
        Selection.Copy
        Sheets("mine").Select
        Cells.Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
        Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
    Sheets("mine").Select
        ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
        ActiveWindow.ScrollColumn = 17
        Columns("AA:AA").Select
        Selection.Delete Shift:=xlToLeft
        Columns("AC:AE").Select
        Selection.Delete Shift:=xlToLeft
        Columns("AE:AL").Select
        Selection.Delete Shift:=xlToLeft
        Columns("AH:AI").Select
        Selection.Delete Shift:=xlToLeft
        Columns("AJ:AJ").Select
        Selection.Delete Shift:=xlToLeft
        ActiveWindow.ScrollColumn = 36
        Columns("AP:AW").Select
        Selection.Delete Shift:=xlToLeft
        ActiveWindow.ScrollColumn = 45
        Columns("A:AY").Select
    Thanks again mdbct!

    B.
    Last edited by beatrice25; 10-28-2008 at 06:21 PM.

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1