Results 1 to 4 of 4

Thread: Excel 97 2003 File Created In 2007 Does Not Work In 2003

  1. #1
    Member
    Join Date
    Nov 2012
    Posts
    47
    Rep Power
    0

    Excel 97 2003 File Created In 2007 Does Not Work In 2003

    Hi friends,
    caught in a labyrinth from which I can not go. Attachment, which is the big macro problem:
    On my PC excel file works flawlessly. How: pressing the macro searches for a match in column E42: Well according to demand and make a new sheet and the information it carries, but it is on my computer when I go to work does not work, but the file is actually the same. the other thing is that it starts from the branch down D42 cells than other countries and D are hidden.
    Then look in column E42: E -> DB + number (BD 1000, BD 2000, BD ................... BD9000; ......... BD42000 ..........) then make a new worksheet name (BD1000 and so for all others) and transfer the entire column (columns) of D41:BB41 and down. As an introduction to the pictures you will see.
    Attached Images Attached Images
    Attached Files Attached Files

  2. #2
    Member
    Join Date
    Nov 2012
    Posts
    47
    Rep Power
    0
    Hi friends,
    I submitted a working macro that somewhere must be touched to my work. Nobody can respond and help me, it is very difficult to implement??

  3. #3
    Member
    Join Date
    Nov 2012
    Posts
    47
    Rep Power
    0
    Hi friends,
    Is it possible that no one can help me?
    I very urgently, and no one responds, you can even write another code, I have no explanation for why so gets home office is 2007 in my work office 2003 but the macro works like office 2003. I checked and everything is included libraries, everything that does not jeopardize my job, but .......

  4. #4
    Administrator Excel Fox's Avatar
    Join Date
    Mar 2011
    Posts
    1,402
    Rep Power
    10
    I checked the code (in 2007), and it doesn't seem to have any code that may not work in 2003. Anyway, I've made a minor modification in the code.

    Code:
    Option ExplicitOption Base 1
    Sub ContractListt()
    
    
        Dim AllCells As Range
        Dim cell As Range, Rng As Range
        Dim NoDupes As New Collection
        Dim lrow As Long, Rlrow As Long
        Dim Myval As Integer
        Dim wks As Worksheet
        Dim Item As Variant
        Dim Hdrarray As Variant
        Dim cnt As Long
        Dim Ctempws As Worksheet
        
        Application.ScreenUpdating = False
        Set Ctempws = Sheets("Template")
        lrow = Sheets("BD").Range("E" & Rows.Count).End(xlUp).Row
        Set AllCells = Range("E42:E" & lrow)
        
        For Each cell In AllCells
            On Error Resume Next
            NoDupes.Add cell.Value, CStr(cell.Value)
        Next cell
        On Error GoTo 0
        
        For Each Item In NoDupes
            Range("D41:BB41").Select
            Selection.AutoFilter
            With Selection
                .AutoFilter Field:=2, Criteria1:=Item
            End With
            Set Rng = ActiveSheet.AutoFilter.Range
            
            Myval = Range("D42:D" & lrow).SpecialCells(xlCellTypeVisible).Count
        
            On Error Resume Next
            Rlrow = Sheets(Item).Range("D" & Rows.Count).End(xlUp).Row + 1
            If Err = 9 Then
                Ctempws.Copy after:=Worksheets(Worksheets.Count)
                ActiveSheet.Name = Item
                With Sheets(Item)
                    Rlrow = .Range("D" & Rows.Count).End(xlUp).Row + 1
                    Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1).Copy
                    .Cells(Rlrow, 4).PasteSpecial xlValue
                    Application.CutCopyMode = xlCopy
                    Sheets(Item).Cells.EntireColumn.AutoFit
                    Sheets(Item).Range("D41").Select
                    Sheets("BD").Activate
                End With
            Else
                Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1).Copy
                Sheets(Item).Cells(Rlrow, 4).PasteSpecial xlValue
                Sheets(Item).Cells.EntireColumn.AutoFit
                Sheets(Item).Range("D42").Select
                Application.CutCopyMode = xlCopy
            End If
        Next Item
        Selection.AutoFilter
    End Sub
    Can you check if you've enabled macro (ie, the macro security should not be high)
    A dream is not something you see when you are asleep, but something you strive for when you are awake.

    It's usually a bad idea to say that something can't be done.

    The difference between dream and aim, is that one requires soundless sleep to see and the other requires sleepless efforts to achieve

    Join us at Facebook

Similar Threads

  1. Excel 2003 Classic Menu in Excel 2007-2010
    By Excel Fox in forum Classic Menu
    Replies: 7
    Last Post: 09-10-2014, 10:29 PM
  2. Replies: 1
    Last Post: 03-07-2013, 11:42 AM
  3. Replies: 1
    Last Post: 02-14-2013, 11:08 AM
  4. Version 2003 to 2007
    By PcMax in forum Excel Help
    Replies: 5
    Last Post: 11-23-2011, 07:52 PM
  5. Excel 2003 Classic Menu for 2007-10
    By Admin in forum Greetings and Inception
    Replies: 0
    Last Post: 09-09-2011, 11:51 PM

Posting Permissions

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