एक्सेल में सेल वैल्यू के आधार पर पूरी पंक्ति को दूसरी शीट पर कैसे ले जाएं?
सेल वैल्यू के आधार पर पूरी पंक्ति को दूसरी शीट पर ले जाने के लिए, यह लेख आपकी मदद करेगा।
वीबीए कोड के साथ सेल वैल्यू के आधार पर पूरी पंक्ति को दूसरी शीट पर ले जाएं
एक्सेल के लिए कुटूल के साथ सेल वैल्यू के आधार पर पूरी पंक्ति को दूसरी शीट पर ले जाएं
वीबीए कोड के साथ सेल वैल्यू के आधार पर पूरी पंक्ति को दूसरी शीट पर ले जाएं
जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, यदि कॉलम सी में एक विशिष्ट शब्द "संपन्न" मौजूद है, तो आपको पूरी पंक्ति को शीट 1 से शीट 2 पर ले जाना होगा। आप निम्नलिखित वीबीए कोड आज़मा सकते हैं।
1। दबाएँ ऑल्ट+ F11 खोलने के लिए एक साथ कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. एप्लिकेशन विंडो के लिए Microsoft Visual Basic में, क्लिक करें सम्मिलित करें > मॉड्यूल. फिर नीचे दिए गए VBA कोड को कॉपी करके विंडो में पेस्ट करें।
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
नोट: कोड में, Sheet1 क्या वर्कशीट में वह पंक्ति है जिसे आप स्थानांतरित करना चाहते हैं। और Sheet2 गंतव्य वर्कशीट है जहां आप पंक्ति का पता लगाएंगे। “सी:सी" स्तंभ में निश्चित मान है, और शब्द "करेंकिया गया"वह निश्चित मान है जिसके आधार पर आप पंक्ति को स्थानांतरित करेंगे। कृपया अपनी आवश्यकताओं के आधार पर उन्हें बदलें।
3। दबाएं F5 कोड को चलाने के लिए कुंजी, फिर शीट 1 में मानदंडों को पूरा करने वाली पंक्ति को तुरंत शीट 2 में ले जाया जाएगा।
नोट: उपरोक्त वीबीए कोड एक निर्दिष्ट वर्कशीट पर जाने के बाद मूल डेटा से पंक्तियों को हटा देगा। यदि आप पंक्तियों को हटाने के बजाय केवल सेल मान के आधार पर उन्हें कॉपी करना चाहते हैं। कृपया नीचे दिया गया VBA कोड 2 लागू करें।
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
एक्सेल के लिए कुटूल के साथ सेल वैल्यू के आधार पर पूरी पंक्ति को दूसरी शीट पर ले जाएं
यदि आप VBA कोड में नौसिखिया हैं। यहां मैं परिचय कराता हूं विशिष्ट कक्षों का चयन करें की उपयोगिता एक्सेल के लिए कुटूल. इस उपयोगिता के साथ, आप वर्कशीट में एक निश्चित सेल वैल्यू या विभिन्न सेल वैल्यू के आधार पर सभी पंक्तियों का आसानी से चयन कर सकते हैं, और चयनित पंक्तियों को अपनी आवश्यकता के अनुसार गंतव्य वर्कशीट में कॉपी कर सकते हैं। कृपया निम्नानुसार करें.
आवेदन करने से पहले एक्सेल के लिए कुटूल, कृपया सबसे पहले इसे डाउनलोड करें और इंस्टॉल करें.
1. उस कॉलम सूची का चयन करें जिसमें वह सेल मान है जिसके आधार पर आप पंक्तियों को स्थानांतरित करेंगे, फिर क्लिक करें कुटूल > चुनते हैं > विशिष्ट कक्षों का चयन करें. स्क्रीनशॉट देखें:
2. उद्घाटन में विशिष्ट कक्षों का चयन करें संवाद बॉक्स, चुनें पूरी पंक्ति में चयन प्रकार अनुभाग चुनें बराबरी में विशिष्ट प्रकार ड्रॉप-डाउन सूची, टेक्स्ट बॉक्स में सेल मान दर्ज करें और फिर क्लिक करें OK बटन.
अन्य विशिष्ट कक्षों का चयन करें संवाद बॉक्स आपको चयनित पंक्तियों की संख्या दिखाने के लिए पॉप अप होता है, और इस बीच, चयनित कॉलम में सभी पंक्तियों में निर्दिष्ट मान का चयन किया जाता है। स्क्रीनशॉट देखें:
3। दबाएं कंट्रोल + C चयनित पंक्तियों को कॉपी करने के लिए कुंजियाँ, और फिर उन्हें अपनी इच्छित गंतव्य वर्कशीट में पेस्ट करें।
नोट: यदि आप दो अलग-अलग सेल मानों के आधार पर पंक्तियों को किसी अन्य वर्कशीट में ले जाना चाहते हैं। उदाहरण के लिए, सेल मानों के आधार पर पंक्तियों को "संपन्न" या "प्रसंस्करण" में स्थानांतरित करें, आप इसे सक्षम कर सकते हैं Or स्थिति में विशिष्ट कक्षों का चयन करें नीचे दिए गए स्क्रीनशॉट के अनुसार डायलॉग बॉक्स दिखाया गया है:
यदि आप इस उपयोगिता का निःशुल्क परीक्षण (30-दिन) चाहते हैं, कृपया इसे डाउनलोड करने के लिए क्लिक करें, और फिर उपरोक्त चरणों के अनुसार ऑपरेशन लागू करने के लिए जाएं।
संबंधित लेख:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!