मैं एक्सेल में एक शीट से दूसरी शीट में कॉपी किए गए डेटा को प्राप्त करना चाहता हूं। एफआईआर शीट में डेटा का स्थान स्थिर है, जबकि शीट, कॉलम और रो जिसमें डेटा कॉपी किया जा रहा है, परिवर्तनशील है, और सेल डेटा पर आधारित है। मुझे वीबी कोड के साथ कुछ मदद चाहिए। निम्नलिखित एक्सेल टेबल नमूना डेटा पर विचार करें:

`Sheet1`
'A1 = Apples'
'B1 = Sheet2'
'C1 = 5'
'D1 = 10'

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

0
ExcelForFreelancers 25 अक्टूबर 2011, 18:05
1
वर्कशीट्स ("शीट 2")। रेंज ("ई 10") = वर्कशीट्स ("शीट 1")। रेंज ("ए 1") ऐसा कुछ?
 – 
Lil'Monkey
25 अक्टूबर 2011, 18:32
1
का संभावित डुप्लिकेट हालांकि स्टैक ओवरफ्लो पर एक खोज की
 – 
JMax
25 अक्टूबर 2011, 19:05
@ Lil'Monkey: सुझाव के लिए धन्यवाद हालांकि शीट 2 ई 10 मान सापेक्ष हैं, और बदल सकते हैं/बदलेंगे, इसलिए मैं कुछ कोड की उम्मीद कर रहा था जो शीट 1 से मानों की प्रतिलिपि बनायेगा, इसलिए मैं वर्कशीट्स की तरह कुछ सोच रहा था। (बी 1 ).रेंज(C1&D1)= वर्कशीट्स("शीट1")। रेंज("A1") बेशक वह फॉर्मूला कभी काम नहीं करेगा, लेकिन ऐसा कुछ हो सकता है।
 – 
ExcelForFreelancers
25 अक्टूबर 2011, 20:28
@ जेमैक्स: मैंने एक बहुत व्यापक खोज की है। आपने मुझे जो नमूना दिया है, मेरा मानना ​​है कि वह केवल एक कार्यपुस्तिका से दूसरी कार्यपुस्तिका में डेटा कॉपी करता है। चूंकि जिस स्थान पर डेटा कॉपी किया जा रहा है वह परिवर्तनशील है, मुझे लगता है कि यह अधिक जटिल हो सकता है?
 – 
ExcelForFreelancers
25 अक्टूबर 2011, 20:30
बस सोच रहा था कि क्यों वर्कशीट्स (बी 1)। रेंज (सी 1 और डी 1) = वर्कशीट्स ("शीट 1")। रेंज ("ए 1") काम करेगी? मुझे पता है कि आप एक प्रश्न पूछ रहे हैं लेकिन मैं वास्तव में एक्सेल वीबीए में कभी नहीं आया मेरा मतलब है कि आपके चर वैध तार हैं, आप उन्हें पैरामीटर के रूप में क्यों प्लग नहीं कर सकते
 – 
Lil'Monkey
25 अक्टूबर 2011, 21:33

1 उत्तर

सबसे बढ़िया उत्तर
Dim sht, rw, col, val

With ThisWorkbook.sheets("Sheet1")
  val = .Range("A1").Value
  sht = .Range("B1").Value
  col = .Range("C1").Value
  rw = .Range("D1").Value
End with

if isnumeric(col) then
   thisworkbook.sheets(sht).Cells(rw,col).value = val
else
  thisworkbook.sheets(sht).Range(col & rw).value = val
end if
1
Tim Williams 25 अक्टूबर 2011, 20:43
बढ़िया, मुझे लगता है कि समस्या का समाधान करना चाहिए। मैं कल इस पर काम करूंगा (यहाँ फुकेत, ​​थाईलैंड में देर से) फिर से बहुत बहुत धन्यवाद
 – 
ExcelForFreelancers
25 अक्टूबर 2011, 21:40
यह पूरी तरह से काम कर रहा है। फिर से बहुत बहुत धन्यवाद। काश मैं कुछ वापस दे पाता। :)
 – 
ExcelForFreelancers
27 अक्टूबर 2011, 21:26