আমি কিভাবে ফিল্টারেড তথ্য অনুলিপি করতে VBA মডিউল বাস্তবায়ন করব

Question

আমি একটি VBA ম্যাক্রো বাস্তবায়ন করতে হবে যা একটি এক্সেল কার্যপত্র থেকে তথ্য কপি করে এবং নির্দিষ্ট কলামটিকে অন্যটিতে রাখে।

Sub sbCopyRangeToAnotherSheet()

'Method 1
Sheets("Sheet1").Range("A1:B10").Copy Destination:=Sheets("Sheet2").Range("E1")

'Method 2
'Copy the data
Sheets("Sheet1").Range("A1:B10").Copy
'Activate the destination worksheet
Sheets("Sheet2").Activate
'Select the target range
Range("E1").Select
'Paste in the target destination
ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

এটি নতুন শিটগুলির জন্য কাজ করবে না যেমন শিট 3 উদাহরণস্বরূপ ফিল্টারেড ডেটার জন্য এটি কার্যকরভাবে চালানো হবে না। আমার এমন একটি কোড দরকার যা ফিল্টার করা তথ্য অনুলিপি করতে পারে এবং নির্দিষ্ট কলামটিকে অন্য ওয়ার্কশীটে পেস্ট করতে পারে।

Answer 1

ফিল্টার করা পরিসরে কেবলমাত্র দৃশ্যমান কক্ষগুলি অনুলিপি করার জন্য, আপনি যা করতে চেষ্টা করছেন তা নির্দিষ্ট করতে হবে। এই ক্ষেত্রে:

Sheets("Sheet1").Range("A1:B10").SpecialCells(xlCellTypeVisible).Copy _
                                 Destination:=Sheets("Sheet2").Range("E1")

ভিবিএ-কোডে অটোফিল্টার ব্যবহার করার কিছু ভাল উদাহরণ অন্যান্য জায়গায়, এখানে পাওয়া যাবে ।

আমি আপনার ব্যবহারের ব্যতীত অন্যান্য শীটগুলি উল্লেখ করার সময় এটি কাজ করা উচিত নয় এমন কোনও কারণ দেখতে পাচ্ছি না Activate এবং Select হয়তো কিছু সময়ে কপি-কর্ম বাতিল। কোনও কারণে আপনি এটির উপরে কীভাবে রূপরেখা করবেন তার পরিবর্তে আপনি যেভাবে এটি করেন, আপনি যখন অনুলিপি করবেন তখন নির্দিষ্ট লক্ষ্য পরিসীমা নির্দিষ্ট করে? আমি দেখি এটি কিভাবে আপনার প্রথম উদাহরণে করা যায়, যা আমি অনুমান করি।