কপি এবং বন্ধ কর্মপরিসর সারি পেস্ট করুন

Question

আমি একটি সারি এবং কপি নির্বাচন করতে সক্ষম হতে চান & amp; এটি বন্ধ করে রাখা (একটি কমান্ড বোতাম সহ) বন্ধ হওয়া অবধি কাজপুস্তিকাতে আটকে দিন। নীচের কোড একটি পরিসীমা নীচের সবকিছু কপি। আমি শুধু নির্বাচিত সারি অনুলিপি করতে চাই।

এই লাইন পরিবর্তন করা প্রয়োজন:

With ThisWorkbook.Worksheets("Sheet1")
With .Range(.Range("A4:Q4"), .Range("A4:Q4").End(xlDown))
destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value 

সম্পূর্ণ কোড:

Sub copytoarchive()
Dim destSht As Worksheet
Workbooks.Open ("C:\...\FileToCopyTo.xlsx") 
Set destSht = ActiveWorkbook.Worksheets("Sheet3") 
With ThisWorkbook.Worksheets("Sheet1")
With .Range(.Range("A4:Q4"), .Range("A4:Q4").End(xlDown))
destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value 
End With
End With
destSht.Parent.Close True 
End Sub

Comments

আপনি যদি কোনও ফাইল সম্পাদনা করতে চান তবে আপনাকে এটি খুলতে হবে। এটি সংরক্ষণ করার পরে আপনি এটি আবার বন্ধ করতে পারেন।

— Sir Adelaide

আমি দুঃখিত, কিন্তু আমি বুঝতে পারছি না।

— L White

ভাল, আপনি বলেছিলেন যে আপনি বন্ধ থাকা অবশেষে বন্ধ হওয়া কার্যপুস্ত্রে ডেটা পেস্ট করতে চান - যদি আপনি ডাটা পেস্ট করতে চান তবে এটি খুলতে হবে

— Sir Adelaide

হ্যাঁ, আমি জানি। সমস্যা এই কোডটি বিভিন্ন রেঞ্জ কপি করে। আমি শুধু নির্বাচিত সারি অনুলিপি করতে চাই।

— L White

Answer 1

হয়তো কিছু ভালো:

Sub copytoarchive()
Dim destSht As Worksheet

Selection.Copy

Workbooks.Open ("C:\...\FileToCopyTo.xlsx")
Set destSht = ActiveWorkbook.Worksheets("Sheet3")

destSht.Activate
Range("A1").Select
destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1).Select
ActiveSheet.Paste

destSht.Parent.Close True

End Sub

এটি অনুলিপি করে, টার্গেট শীটটি খোলে, পরবর্তী সারিটি আপনি ইতিমধ্যে এটি কীভাবে করছেন তা খুঁজে বের করে, তারপর pastes এবং বন্ধ করে।

Comments

এটি লাইন রেঞ্জ ("A1") এর জন্য একটি ত্রুটি প্রদান করে। নির্বাচন করুন

— L White