एक्सेल में चेक बॉक्स चेक होने पर एक निश्चित पंक्ति को नई शीट में कैसे स्थानांतरित करें?
यह आलेख एक्सेल में चेक बॉक्स चेक किए जाने पर एक निश्चित पंक्ति को एक नई शीट में ले जाने के बारे में बात कर रहा है।
जब चेक बॉक्स को VBA कोड से चेक किया जाए तो पंक्ति को स्थानांतरित करें
जब चेक बॉक्स को VBA कोड से चेक किया जाए तो पंक्ति को स्थानांतरित करें
एक्सेल में चेक बॉक्स चेक करते समय कृपया एक निश्चित पंक्ति को निर्दिष्ट वर्कशीट में ले जाने के लिए निम्नानुसार कार्य करें।
1. वर्कशीट पर शिफ्ट करने के लिए आपको चेक बॉक्स के आधार पर पंक्ति को स्थानांतरित करने की आवश्यकता है, क्लिक करें डेवलपर > सम्मिलित करें > चेक बॉक्स (एक्टिवएक्स कंट्रोल) चेक बॉक्स डालने के लिए. स्क्रीनशॉट देखें:
2. शीट टैब पर राइट क्लिक करें और फिर क्लिक करें कोड देखें राइट-क्लिक मेनू से. स्क्रीनशॉट देखें:
3. उद्घाटन में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, कृपया नीचे दिए गए वीबीए कोड को कोड विंडो में कॉपी और पेस्ट करें।
वीबीए कोड: चेक बॉक्स चेक होने पर पंक्ति को निर्दिष्ट वर्कशीट में ले जाएं
Private Sub CheckBox1_Click()
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
If CheckBox1.value Then
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range row you will move(single cell):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1).EntireRow
xRg.Copy
ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
xRg.Clear
Application.CutCopyMode = False
End If
End Sub
नोट: कोड में, Shee3 और A1 इंगित करते हैं कि निर्दिष्ट पंक्ति को शीट3 में पहली पंक्ति में ले जाया जाएगा। कृपया अपनी आवश्यकताओं के आधार पर उन्हें बदलें।
4। दबाएं ऑल्ट + Q बंद करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
5. पर क्लिक करके डिज़ाइन मोड को बंद करें डिजाइन मोड पर बटन डेवलपर टैब.
6. चेक बॉक्स को चेक करें, फिर a एक्सेल के लिए कुटूल संवाद बॉक्स पॉप अप होता है, कृपया पंक्ति का पहला सेल (या संपूर्ण पंक्ति) चुनें जिसे आपको स्थानांतरित करना है और क्लिक करें OK बटन। फिर निर्दिष्ट संपूर्ण पंक्ति को तुरंत एक निश्चित वर्कशीट में ले जाया जाएगा। स्क्रीनशॉट देखें:
संबंधित आलेख:
- एक्सेल में सेल वैल्यू के आधार पर पूरी पंक्ति को दूसरी शीट पर कैसे ले जाएं?
- एक्सेल में सेल वैल्यू के आधार पर पूरी पंक्ति को सक्रिय शीट के नीचे कैसे ले जाएं?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!