>(Let's Move to Learn Something New With Excel in Hindi)<

Merge Multiple Sheets Into One Worksheet in Hindi

यदि आपका कोई सवाल है इस Post से Related तो आप हमें Comment Box में लिख सकते है

हैलो दोसतो,

मान लिजिये की आपके पास काफी सारी Excel की Files है जिनमें आपके डाटा की अलग अलग Sheets बनी हुई है और आपको उन सभी Sheets को एक साथ किसी एक Excel की File में लेकर आना है तो आप कैसे करेगे । मैं बताता हुं कि आप कया करेगे आप एक-एक करके हर Excel की File को खोलेगे और उन Sheets को Copy करके उस Excel की File में Paste करगे जिसमें आपको सारी Sheets को रखना है यां फिर आप उन Sheets का सारा डाटा Copy करेगे और Paste करेगे यदि आपको Sheets को Copy / Move करना नहीं आता है , तो आप सोच सकते है कि आपको इन सब में कितना समय लग सकता है । और समय तो कीमती होता है तो कयो ना आपका समय बचाया जाये और आपको एक ऐसी Trick बताई जाये जिससे आपका कीमती समय बच सके तो चलिये आपका समय बचाने का काम शुरु करते है ।

सबसे पहले आपको अपनी Excel की वह file को खोलना है जिसमें आप सारी Files के डाटा को Copy करना चाहते है । File को खोलने के बाद आपको Developer Tab में जाना है यदि आपके पास Developer Tab नहीं Show हो रहा तो मैंने एक Article लिखा है इसी के ऊपर जिसमें मैंने यह बताया है कि Developer Tab को कैसे Enable करते है जिसका Link मैंने नीचे दे दिया है ।

https://excelmama.com/create-a-macro-in-excel-excelmama/

Developer Tab में जाने के बाद आपको जाना है Visual Basic वाले Option पर Visual Basic पर कलिल करने के बाद आपके सामने एक Window Open हो जायेगी जो एक Visual Basic Coding की Window होगी ।

Visual Basic Window Open होने के बाद आपको एक Module बनाना पडेगा जिसका उदाहरण मैंने नीचे दिया है ।

Module के ऊपर कलिल करने के बाद आपके सामने एक और Window open हो जायेगी जिसमें आपको एक Code डालना है जो एक Visual Basic Code है Code मैने नीचे दिया है आपको Code को Copy करके इस Window में डाल देना है और इसके बाद आपको File को Macro Enable Workbook में Save कर देना है । उदाहरण के लिए नीचे फोटो को देखे ।

Code

Sub MergeExcelFiles()
    Dim fnameList, fnameCurFile As Variant
    Dim countFiles, countSheets As Integer
    Dim wksCurSheet As Worksheet
    Dim wbkCurBook, wbkSrcBook As Workbook
 
    fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True)
 
    If (vbBoolean <> VarType(fnameList)) Then
 
        If (UBound(fnameList) > 0) Then
            countFiles = 0
            countSheets = 0
 
            Application.ScreenUpdating = False
            Application.Calculation = xlCalculationManual
 
            Set wbkCurBook = ActiveWorkbook
 
            For Each fnameCurFile In fnameList
                countFiles = countFiles + 1
 
                Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile)
 
                For Each wksCurSheet In wbkSrcBook.Sheets
                    countSheets = countSheets + 1
                    wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)
                Next
 
                wbkSrcBook.Close SaveChanges:=False
 
            Next
 
            Application.ScreenUpdating = True
            Application.Calculation = xlCalculationAutomatic
 
            MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files"
        End If
 
    Else
        MsgBox "No files selected", Title:="Merge Excel files"
    End If
End Sub

End Sub

File को Macro Enable Workbook में Save करने के बाद आपको उसी File में एक Command Button बनाना होगा जिसकी मदद से आप असानी से Files को Select कर पायेगे Command Button बनाना कैसे है उसकी उदाहरण नीचे दी है ।

Command Button पर कलिल करके आपको एक Box Draw करना है और उसके बाद उसपर Right Click करके Assign Macro पर कलिल करके उस Code को Button में Select करना है जो हमने Paste किया है उदाहरण के लिए नीचे फोटो को देखे ।

इसके बाद आप जैसे ही Command Button पर कलिल करेगे तो आपके सामने एक Popup Window Open हो जायेगी जिसमें आप अपनी वह सारी Files को Select कर सकते है जिनका डाटा आपको इस Workbook मेंं लेकर आना है ।

LEAVE A RESPONSE

Your email address will not be published. Required fields are marked *