Transfer data from multiple sheet into single sheet using VBA...... learn in hindi

Transfer Data From Multiple Sheet into Master Sheet

दोस्तों आज की इस पोस्ट में हम विजुअल बेसिक के द्वारा मल्टीपल सीट से डाटा को मास्टर सीट में कैसे ट्रांसफर करते हैं जानेंगे  इसके लिए आपको विजुअल बेसिक का बेसिक ज्ञान होना आवश्यक है यही सोच कर के हम यह पोस्ट लिख रहे हैं तो इसे ध्यान से पढ़िए गा |

मल्टीपल सीट से डाटा को मास्टर सीट में ट्रांसफर करने के लिए निम्नलिखित स्टेप्स को फॉलो करें |

1 इसके लिए दो वेरिएबल को डिफाइन करें |


Dim J, lrow As Long

2. दूसरे स्टेप में वर्कशीट डॉट काउंट फंक्शन का इस्तेमाल फॉर नेक्स्ट लुक के साथ करेंगे |

For J = 2 To Worksheets.Count


Worksheets(J).Select

3. जिस सीट से Data को कॉपी करके मास्टर सीट में ट्रांसफर करना चाहते हैं उस सीट में जाएं और जहां से डाटा को कॉपी करना चाहते हैं उसकी पहली सेल को सेलेक्ट कर ले |


Range("B5").Select

4.रेंज सिलेक्शन का कोड लिखें |

Range(Selection, Selection.End(xlToRight)).Select


Range(Selection, Selection.End(xlDown)).Select

5. सिलेक्शन को कॉपी करें|

    Selection.Copy

6. जिस सीट में डाटा को paste करना चाहते हैं उस सीट को सेलेक्ट करें |

    Sheets("sheet1").Select

7. लास्ट row ko डिफाइन करें और एक celll नीचे चले जाएं last row को डिफाइन करने का code कोड नीचे       लिखा हुआ है |

lrow = Range("B500").End(xlUp).Select

ActiveCell.Offset(1, 0).Select

8. अंत में डाटा को पेस्ट कर दें |

  ActiveSheet.Paste

विस्तृत जानकारी के लिए नीचे वीडियो को देखें |