Results 1 to 10 of 10

Thread: help excel files

  1. #1
    alim khan's Avatar
    alim khan is offline Senior Member+
    Last Online
    9th July 2018 @ 10:36 PM
    Join Date
    22 May 2009
    Age
    46
    Posts
    221
    Threads
    82
    Credits
    1,065
    Thanked
    7

    Default help excel files



    kya excel ki char 4 alag alag files jis ki har file mein 10 se 15 sheet hain inko ek file banai ja sakti hai.

    WSLM::

  2. #2
    Dil_Shah is offline Senior Member
    Last Online
    9th July 2013 @ 06:48 PM
    Join Date
    23 Jun 2009
    Gender
    Male
    Posts
    12,887
    Threads
    216
    Thanked
    719

    Default

    Bhaii iss bary main Mujy itna to neeh pta pr aap ye check kr len.. Omeed hay aap ki madad ho jaiy gi.

    Marrg tow file in one EXal

    Check Video Youtube

    NOT: Kuch b krny sy pehly file ka bakup rkh lena

  3. #3
    alim khan's Avatar
    alim khan is offline Senior Member+
    Last Online
    9th July 2018 @ 10:36 PM
    Join Date
    22 May 2009
    Age
    46
    Posts
    221
    Threads
    82
    Credits
    1,065
    Thanked
    7

    Default thanks

    Quote dil_shah said: View Post
    Bhaii iss bary main Mujy itna to neeh pta pr aap ye check kr len.. Omeed hay aap ki madad ho jaiy gi.

    Marrg tow file in one EXal

    Check Video Youtube

    NOT: Kuch b krny sy pehly file ka bakup rkh lena


    check karta hun.

    WSLM::

  4. #4
    syar is offline Advance Member
    Last Online
    14th March 2024 @ 07:49 PM
    Join Date
    31 Jul 2009
    Location
    Nowshera(KP)
    Age
    47
    Gender
    Male
    Posts
    882
    Threads
    9
    Credits
    548
    Thanked
    340

    Default



    May be this Macro will work for you

    1. Open New Excel File
    2. Press Alt+F11
    3. On left pane Double Click "This workbook"
    4. Paste this Code
    5. Before Running the Code Alter File Directory Name with Complete Path
    6 Run the Code
    NOTE
    Before running this code test it on sample files, and its will be great if Direcotry has no other files than Excel.
    IF you are using excel 2007 and 2010 you may need to change file extension as well e.g from .xls to xlsx.

    Code:
    Sub CombineFiles()
    '========================================================================
    ' THIS COMBINES ALL SHEETS FROM ALL WORKBOOKS IN A DIRECTORY INTO ONE WORKBOOK
    ' MUST BE IN THIS WORKBOOK (OR PERSONAL) - NOT MODULE
    '========================================================================
        Dim Path As String
        Dim FileName As String
        Dim Wkb As Workbook
        Dim ws As Worksheet
    
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        '###################################
        Path = "C:\Users\sheryar\Desktop\New folder"    'Change as needed  #
        '###################################
        FileName = Dir(Path & "\*.xls", vbNormal)
        Do Until FileName = ""
            Set Wkb = Workbooks.Open(FileName:=Path & "\" & FileName)
            For Each ws In Wkb.Worksheets
                ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            Next ws
            Wkb.Close False
            FileName = Dir()
        Loop
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    
    End Sub
    Please feed back
    regards

  5. #5
    alim khan's Avatar
    alim khan is offline Senior Member+
    Last Online
    9th July 2018 @ 10:36 PM
    Join Date
    22 May 2009
    Age
    46
    Posts
    221
    Threads
    82
    Credits
    1,065
    Thanked
    7

    Default

    Quote syar said: View Post


    May be this Macro will work for you

    1. Open New Excel File
    2. Press Alt+F11
    3. On left pane Double Click "This workbook"
    4. Paste this Code
    5. Before Running the Code Alter File Directory Name with Complete Path
    6 Run the Code
    NOTE
    Before running this code test it on sample files, and its will be great if Direcotry has no other files than Excel.
    IF you are using excel 2007 and 2010 you may need to change file extension as well e.g from .xls to xlsx.

    Code:
    Sub CombineFiles()
    '========================================================================
    ' THIS COMBINES ALL SHEETS FROM ALL WORKBOOKS IN A DIRECTORY INTO ONE WORKBOOK
    ' MUST BE IN THIS WORKBOOK (OR PERSONAL) - NOT MODULE
    '========================================================================
        Dim Path As String
        Dim FileName As String
        Dim Wkb As Workbook
        Dim ws As Worksheet
    
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        '###################################
        Path = "C:\Users\sheryar\Desktop\New folder"    'Change as needed  #
        '###################################
        FileName = Dir(Path & "\*.xls", vbNormal)
        Do Until FileName = ""
            Set Wkb = Workbooks.Open(FileName:=Path & "\" & FileName)
            For Each ws In Wkb.Worksheets
                ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            Next ws
            Wkb.Close False
            FileName = Dir()
        Loop
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    
    End Sub
    Please feed back
    regards



    bhai samaj mein nahi aaya.maherbani karke urdu mein bataen.

    WSLM::

  6. #6
    Join Date
    09 Apr 2009
    Location
    KARACHI&
    Gender
    Male
    Posts
    19,306
    Threads
    412
    Credits
    39,750
    Thanked
    1813

    Default

    یہ تو پکی با ت ہے کہ ہوسکتی ہیں۔سو فیصد۔ اب سوال آتا ہےکہ کیسے؟ عالم خان نے جو پہلے والا لنک دیا ہے و ہ بہتر ہے
    ابھی تو رات بہت ہو چکی ہے اگر کل تک انتظار کر لو تو بہت آسان طریقہ اردو میں بتا دونگا انشا اللہ

  7. #7
    Join Date
    09 Apr 2009
    Location
    KARACHI&
    Gender
    Male
    Posts
    19,306
    Threads
    412
    Credits
    39,750
    Thanked
    1813

    Default

    یہ تو پکی با ت ہے کہ ہوسکتی ہیں۔سو فیصد۔ اب سوال آتا ہےکہ کیسے؟ عالم خان نے جو پہلے والا لنک دیا ہے و ہ بہتر ہے
    ابھی تو رات بہت ہو چکی ہے اگر کل تک انتظار کر لو تو بہت آسان طریقہ اردو میں بتا دونگا انشا اللہ

  8. #8
    syar is offline Advance Member
    Last Online
    14th March 2024 @ 07:49 PM
    Join Date
    31 Jul 2009
    Location
    Nowshera(KP)
    Age
    47
    Gender
    Male
    Posts
    882
    Threads
    9
    Credits
    548
    Thanked
    340

    Default

    1.New excel ki File Open Karain
    2. Alt+F11 Press Karain. is sa aik new window open ho gi jo ka VBA editor ki ha.
    3. Open hone wali window k Left side ka pane me "ThisWorkbook" par double click karain.
    4. Aik aur window open ho gi. Jo code aap ko dia he woh yahan par paste kar dain aur jo red ya highligh kya ha us m apni apni file directory jis m app ki files hain us k adress sa change kar dain.
    5.ALt+Q press kar k window sa bahir aa jain.
    6.Excel ki sheet m aa kar alt+F8 press karain.
    7. IS se macro run ho gi aur aap ki workbook ki tamam sheets copy ho gain gi.

    Aur agar koi aur dost is ka screen shot d kar inko samjha sake tu mashkoor honga. Mujh sa screen shot nahee bante. Ya udru m lekh kar samjha da.


    regards,

  9. #9
    alim khan's Avatar
    alim khan is offline Senior Member+
    Last Online
    9th July 2018 @ 10:36 PM
    Join Date
    22 May 2009
    Age
    46
    Posts
    221
    Threads
    82
    Credits
    1,065
    Thanked
    7

    Default

    Quote syar said: View Post
    1.New excel ki File Open Karain
    2. Alt+F11 Press Karain. is sa aik new window open ho gi jo ka VBA editor ki ha.
    3. Open hone wali window k Left side ka pane me "ThisWorkbook" par double click karain.
    4. Aik aur window open ho gi. Jo code aap ko dia he woh yahan par paste kar dain aur jo red ya highligh kya ha us m apni apni file directory jis m app ki files hain us k adress sa change kar dain.
    5.ALt+Q press kar k window sa bahir aa jain.
    6.Excel ki sheet m aa kar alt+F8 press karain.
    7. IS se macro run ho gi aur aap ki workbook ki tamam sheets copy ho gain gi.

    Aur agar koi aur dost is ka screen shot d kar inko samjha sake tu mashkoor honga. Mujh sa screen shot nahee bante. Ya udru m lekh kar samjha da.


    regards,



    bhai mere pas office 7 hai us mein

    3. Open hone wali window k Left side ka pane me "ThisWorkbook" par double click karain.
    nahi mil raha hai

    WSLM::

  10. #10
    syar is offline Advance Member
    Last Online
    14th March 2024 @ 07:49 PM
    Join Date
    31 Jul 2009
    Location
    Nowshera(KP)
    Age
    47
    Gender
    Male
    Posts
    882
    Threads
    9
    Credits
    548
    Thanked
    340

    Default

    1. agar Nazar Nahee aa raha tu is ki jagha par "VBA Project" ho ga is main "Microsoft Excel Object" HO ga is ko expand karain.
    2. Ya Worksheet1 k tab par right click karain aur viewcode select karain phir is m sa "ThisworkBook" Select Karlain
    3.Ya View k menu m sa "Project Explorer" par click karain.

Similar Threads

  1. Magic Video Converter 8.0.2.18 full
    By ali591 in forum Software Reviews
    Replies: 28
    Last Post: 5th July 2017, 03:01 PM
  2. ~~ video mixer~a best solution for mixing~
    By *Xpert~Baba* in forum English IT Zone
    Replies: 29
    Last Post: 9th December 2012, 12:31 AM
  3. Not opening files word, excel, pls help me
    By shahleopak in forum Ask an Expert
    Replies: 14
    Last Post: 21st July 2011, 02:16 PM
  4. agar aap ko hit man ke.............
    By mohaik47 in forum PC Games
    Replies: 2
    Last Post: 14th April 2009, 12:52 PM

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
  •