ম্যাক্রো / বোতাম ফিল্টার দিয়ে ডেটা অনুলিপি করার কোনও উপায় আছে কি?

Question

আমার উপরে কর্মচারী আইডিসহ একটি কার্যপত্রক রয়েছে এবং পাশের তারিখগুলি।

তারপরে আমাকে প্রতিদিন সেখানে নামযুক্ত একটি ওয়াই বা একটি এন লাগাতে হবে আমার 89 জন কর্মী রয়েছে তাই এটি অনেক দীর্ঘ। এমন কোনও বাটন বা ম্যাক্রো রয়েছে যে কোনও ব্যক্তি যদি ওয়াইআই পায় তবে সেই লোকগুলিকে অন্য একটি শীটে অনুলিপি দিতে পারেন এবং নতুন কেউ যদি ওয়াই পান তবে এটি তাদের ধরেও ফেলবে। যাতে লোকদের কেবল Y এর সাথে সংকুচিত করা সহজ হয়

Comments

স্ক্রিন শট !!!! :) - বা কমপক্ষে, পোস্ট ব্যবহার করে চেষ্টা করুন এবং ডেটা এবং এটি কীভাবে ছড়িয়ে দেওয়া হয়েছে তা দেখান! সুতরাং, আপনাকে ম্যানুয়ালি প্রতিদিন Y বা N যুক্ত করতে হবে। এর শেষে, আপনি এই ডায়াগুলির সমস্ত সারণি একটি অন্য ডকুমেন্টে একটি ওয়াই দিয়ে অনুলিপি করতে চান। এটা কি ঠিক?

— ডেভ

হ্যাঁ, বেশিরভাগই আমি এটি চাই এবং যদি কোনও নতুন ব্যক্তি যদি ওয়াই পায় তবে এটি এটি নতুন শীটে যুক্ত করবে।

— ক্রিস

imgur.com/tNc2Nan সুতরাং এখানে একটি নমুনা রয়েছে যেহেতু আপনি দেখতে পাচ্ছেন কারও কাছে Y আছে এবং কারও কাছে NI আছে এমন কিছু করতে চান যাতে কোনও Y উপস্থিত হয় এটি তাদের সাথে একটি নতুন শীটে এমন লোক রাখে যা কোনও Y পেয়েছিল তারিখ নমুনার মতো একই লেআউট সহ একটি পৃথক শীটে তাদের যুক্ত করুন

— ক্রিস

এটি একটি নতুন ওয়ার্কশিটে কী রাখবে? আমি কলামটি ধরেছি, বা কেবলমাত্র ব্যক্তির নাম, বা পুরো সারিটি?

— ডেভ

আমি পূর্ণ কলামটি শেষ হয়ে যেতে চাই

— ক্রিস

Answer 1

এই ভিবিটা আপনার যা মনে হয় আপনি তাই করেন ... আপনার প্রশ্নটি পরিষ্কার নয়।

মনে রাখবেন, ভিবিএর সাহায্যে প্রথমে ফাইলটির অনুলিপি তৈরি করুন কারণ এতে কোনও পূর্বাবস্থায় ফিচার নেই

Option Explicit

Sub FindYeTheMapOfTreasure()


Worksheets("Sheet2").Range("A:F").Clear
Worksheets("Sheet2").Range("A:B").Value = Worksheets("Sheet1").Range("A:B").Value


    Dim row As Integer
    row = 2

    Do While Worksheets("Sheet1").Range("C" & row).Value <> ""

    If Worksheets("Sheet1").Range("C" & row).Value = "Y" Then
        Worksheets("Sheet2").Range("C:C").Value = Worksheets("Sheet1").Range("C:C").Value
    End If

    If Worksheets("Sheet1").Range("D" & row).Value = "Y" Then
        Worksheets("Sheet2").Range("D:D").Value = Worksheets("Sheet1").Range("D:D").Value
    End If

    If Worksheets("Sheet1").Range("E" & row).Value = "Y" Then
        Worksheets("Sheet2").Range("E:E").Value = Worksheets("Sheet1").Range("E:E").Value
    End If

    If Worksheets("Sheet1").Range("F" & row).Value = "Y" Then
        Worksheets("Sheet2").Range("F:F").Value = Worksheets("Sheet1").Range("F:F").Value
    End If

    If Worksheets("Sheet1").Range("G" & row).Value = "Y" Then
        Worksheets("Sheet2").Range("G:G").Value = Worksheets("Sheet1").Range("G:G").Value
    End If
    row = row + 1
    Loop


End Sub

পত্রক 1

আমি এটি চালানোর পরে, শীট 2 দেখতে দেখতে ভাল লাগে

Comments

অনেক ধন্যবাদ আমি এটি চেষ্টা করে যাচ্ছি। হ্যাঁ আমি জানি, আমি জানি আমার মাথায় কী চায় তবে এটি ব্যাখ্যা করা কিছুটা কঠিন l

— ক্রিস