मुख्य सामग्री पर जाएं

 एक्सेल में सेल वैल्यू के आधार पर शीट की प्रतिलिपि कैसे बनाएं और उसका नाम कैसे बदलें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-07-03

आम तौर पर, आप इसे लागू कर सकते हैं ले जाएं या कॉपी करें वर्कशीट की प्रतिलिपि बनाने की सुविधा, और फिर अपनी आवश्यकता के अनुसार मैन्युअल रूप से कॉपी के लिए एक नया नाम टाइप करें। लेकिन, क्या आपने कभी वर्कशीट की प्रतिलिपि बनाने के बाद सेल वैल्यू के आधार पर शीट का नाम बदलने का प्रयास किया है? इस लेख में, मैं इस बारे में बात करूंगा कि कॉपी बनाते समय सेल वैल्यू के आधार पर वर्कशीट का नाम स्वचालित रूप से कैसे बदला जाए।

वर्कशीट की प्रतिलिपि बनाएँ और VBA कोड के साथ सेल मान के आधार पर नाम बदलें

किसी वर्कशीट को कई बार कॉपी करें और एक्सेल के लिए कुटूल के साथ सेल मानों के आधार पर नाम बदलें


वर्कशीट की प्रतिलिपि बनाएँ और VBA कोड के साथ सेल मान के आधार पर नाम बदलें

निम्नलिखित वीबीए कोड आपको वर्कशीट की प्रतिलिपि बनाने और स्वचालित रूप से एक विशिष्ट सेल मान के साथ इसका नाम बदलने में मदद कर सकता है, कृपया ऐसा करें:

1. उस वर्कशीट को सक्रिय करें जिसे आप कॉपी करना चाहते हैं, और फिर दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: वर्कशीट की प्रतिलिपि बनाएँ और सेल मान के साथ नाम बदलें:

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. और फिर दबाएं F5 इस कोड को चलाने के लिए कुंजी, और आपकी वर्तमान वर्कशीट को सभी वर्कशीट के बाद वर्तमान वर्कबुक में कॉपी किया गया है, और आपके द्वारा निर्दिष्ट सेल मान के साथ इसका नाम बदल दिया गया है, स्क्रीनशॉट देखें:

मान 1 के आधार पर डॉक कॉपी नाम बदलें

नोट: उपरोक्त कोड में, सेल संदर्भ A1 वह सेल मान है जिसे आप नई कॉपी की गई शीट के लिए नाम बदलना चाहते हैं, आप इसे अपनी आवश्यकता के अनुसार बदल सकते हैं।


किसी वर्कशीट को कई बार कॉपी करें और एक्सेल के लिए कुटूल के साथ सेल मानों के आधार पर नाम बदलें

उपरोक्त कोड केवल एक सेल मान के साथ नाम बदल सकता है, यदि आपको शीट को कई बार कॉपी करने और सेल मानों की सूची के आधार पर उनका नाम बदलने की आवश्यकता है, एक्सेल के लिए कुटूलहै अनुक्रम वर्कशीट बनाएं इस कार्य को यथाशीघ्र पूरा करने में आपकी सहायता कर सकता हूँ।

एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. 

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:

1। क्लिक करें कुटूल्स प्लस > वर्कशीट > अनुक्रम वर्कशीट बनाएं, स्क्रीनशॉट देखें:

मान 3 के आधार पर डॉक कॉपी नाम बदलें

2. में अनुक्रम वर्कशीट बनाएं संवाद बॉक्स में, निम्नलिखित कार्य करें:

(1.) उस वर्कशीट नाम का चयन करें जिसे आप कॉपी करना चाहते हैं बेस वर्कशीट ड्रॉप डाउन सूची;

(2.) के अंतर्गत डेटा इन ए रेंज विकल्प का चयन करें शीट के नाम के आधार पर अनुभाग, और क्लिक करें मान 5 के आधार पर डॉक कॉपी नाम बदलें उन सेल मानों का चयन करने के लिए बटन, जिनके आधार पर आप कॉपी की गई वर्कशीट का नाम बदलना चाहते हैं।

एक्सेल के लिए अभी कुटूल डाउनलोड करें!

3। तब दबायें Ok बटन, और विशिष्ट वर्कशीट को कई बार कॉपी किया गया है और नई वर्कबुक में आपके द्वारा चुने गए सेल मानों के साथ इसका नाम बदल दिया गया है, स्क्रीनशॉट देखें:

मान 4 के आधार पर डॉक कॉपी नाम बदलें

एक्सेल के लिए कुटूल अभी डाउनलोड करें और निःशुल्क परीक्षण करें!


डेमो: वर्कशीट को कई बार कॉपी करें और एक्सेल के लिए कुटूल के साथ सेल मानों के आधार पर नाम बदलें

एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। अभी डाउनलोड करें और निःशुल्क परीक्षण करें!

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date. For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017. What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17". Is this possible? By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools. Thanks in advance!
This comment was minimized by the moderator on the site
The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template. Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Value "" Then ActiveSheet.Name = wh.Range("A1").Value End If wh.Activate End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations