एक पंक्ति से दूसरे कार्यपत्रक में केवल कुछ कोशिकाओं को कॉपी करना

Question

मेरे पास एक कार्यपुस्तिका है जिसमें बड़ी संख्या में शीट्स हैं जो मेरी टीम को अपने कार्यभार को अधिक कुशलता से प्रबंधित करने में मदद करने के लिए डिज़ाइन किए गए हैं।

जब कोई व्यक्ति नौकरी करने का अनुरोध करता है, तो एक शीट को 'पेंडिंग ऑथराइजेशन' नामक शीट में जोड़ा जाता है

टीम के बाद प्रत्येक पंक्ति / रिकॉर्ड पर कॉलम 'एन' के तहत एक ड्रॉप डाउन बॉक्स होता है जिसे जोड़ा जाता है और नौकरी स्वीकार या अस्वीकार कर सकता है।

यदि टीम नौकरी स्वीकार करती है, तो यह लंबित कार्य नामक एक और शीट में स्थानांतरित हो जाती है, और लंबित प्राधिकरण शीट से रिकॉर्ड को हटा देती है। ऐसा करने वाला कोड नीचे है:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("N:N")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Dim Lastrow As Long
Lastrow = Sheets("Status Check").Cells(Rows.Count, "N").End(xlUp).Row + 1

If Target.Value = "Accepted" Then
Rows(Target.Row).Copy Destination:=Sheets("Pending Work").Rows(Lastrow)
Rows(Target.Row).Delete
End If
End If
End Sub

हालांकि यह बहुत अच्छी तरह से काम करता है, मैं वास्तव में केवल इस पंक्ति के कुछ कोशिकाओं को पूरी पंक्ति के बजाय अन्य कार्यपत्रक पर कॉपी करना चाहता हूं। क्या कोई आसान तरीका है कि प्रत्येक पंक्ति से केवल कुछ कोशिकाओं का चयन किया जाए?

Comments

उपयोग Range("X" & Target.Row) और कॉपी करें Range("Y" & Lastrow) (कहा पे X तथा Y और क्रमशः स्रोत और लक्ष्य स्तंभ)

— cybernetic.nomad

हां पर हाजिर, यह काम करता है, सरल के बाद मैं देखता हूं कि आप उस जवाब पर कैसे पहुंचे हैं, क्या मैं आपको जवाब का श्रेय दे सकता हूं?

— Nokturnyl

क्या आपने कापी की विशिष्ट कोशिकाओं तक पहुँचने के लिए कोई मापदंड निर्धारित किया है?

— Rajesh S

आप यह भी कोशिश कर सकते हैं ,,, If cell.Value = "Accept" Then Range(Cells(cell.Row, "A"), Cells(cell.Row, "D")).Copy

— Rajesh S

सशर्त / बिना शर्त के कॉपी करने की अन्य सरल विधि, Target.Range("A13").Copy Destination:=Sheets("TEST").Range("A5" & nxtRw) Target.Range("I13:J13").Copy Destination:=Sheets("TEST").Range("E5" & nxtRw

— Rajesh S

Answer 1

पूरी पंक्ति को कॉपी करने के बजाय, आप से कॉपी कर सकते हैं Range("X" & Target.Row) और करने के लिए Range("Y" & Lastrow)

(जहां एक्स और वाई और स्रोत और लक्ष्य कॉलम क्रमशः)