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::
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::
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
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.
Please feed backCode: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
regards
یہ تو پکی با ت ہے کہ ہوسکتی ہیں۔سو فیصد۔ اب سوال آتا ہےکہ کیسے؟ عالم خان نے جو پہلے والا لنک دیا ہے و ہ بہتر ہے
ابھی تو رات بہت ہو چکی ہے اگر کل تک انتظار کر لو تو بہت آسان طریقہ اردو میں بتا دونگا انشا اللہ
یہ تو پکی با ت ہے کہ ہوسکتی ہیں۔سو فیصد۔ اب سوال آتا ہےکہ کیسے؟ عالم خان نے جو پہلے والا لنک دیا ہے و ہ بہتر ہے
ابھی تو رات بہت ہو چکی ہے اگر کل تک انتظار کر لو تو بہت آسان طریقہ اردو میں بتا دونگا انشا اللہ
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,
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.
Bookmarks