एक्सेल: हाल के परिवर्तनों के लिए फ़िल्टर जिसे स्वीकार किए जाने की आवश्यकता है

Question

मैं ट्रैक चेंज फीचर द्वारा समीक्षा के लिए चिह्नित कोशिकाओं के साथ केवल पंक्तियों को दिखाने के लिए एक शीट को फ़िल्टर करना चाहता हूं। किसी को पता है कि क्या / कैसे संभव है?

Comments

उचित फ़िल्टरिंग स्थिति के साथ ऑटोफ़िल्टर का उपयोग करें।

— अकिना

मैं आपको सुझाव दे सकता हूं कि एक विधि सभी परिवर्तनों को उजागर करेगी और उन्हें शीट, सेल पते और नए डेटा के साथ नई शीट पर फ़िल्टर करेगी। यदि यह आपके लिए काम करता है तो केवल टिप्पणियों के माध्यम से पुष्टि करें। ☺

— राजेश एस

@ अकिना, ध्वज के लिए कोई फ़िल्टर विकल्प नहीं है जो कोशिकाओं पर उन स्थानों को ट्रैक करता है जहां तक ​​मैं बता सकता हूं।

— डंडालफिनी

@ राजेश, मैं किसी भी सुझाव के लिए खुला हूँ ताकि आग दूर हो।

— dandalfini

@dandalfini ,, पोस्ट को जरूर देखें, आपकी मदद जरूर करेंगे। ☺

— राजेश एस

Answer 1

नीचे लिखित कोड सक्रिय शीट में हर परिवर्तन और नई प्रविष्टि को उजागर करेगा और एक लॉग शीट ले जाएगा शीट नाम, सेल पता और दर्ज डेटा।

यह ऑडिट शीट की तरह है।

नई प्रविष्टियों को हाइलाइट करना काम करता है Mark Track Changesऔर लॉग फ़ाइल में डेटा स्थानांतरित करना पसंद हैFilter those entries

आप आगे की जरूरतों के लिए भी इस कोड को संशोधित कर सकते हैं।

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws As Worksheet, ws2 As Worksheet
Dim i As Boolean
Application.ScreenUpdating = False

i = False
For Each ws In ThisWorkbook.Worksheets
    If ws.Name = "Change Log" Then
        i = True
        Exit For
    End If
Next ws
If Not i Then
   Set ws2 = ThisWorkbook.Worksheets.Add

   ws2.Name = "Change Log"
   ws2.Range("A1") = "Sheet"
   ws2.Range("B1") = "Range"
   ws2.Range("C1") = "New Data"
Else
   Set ws2 = Sheets("Change Log")
End If


ws2.Range("A1").Offset(ws2.UsedRange.Rows.Count, 0) = Target.Worksheet.Name
ws2.Range("B1").Offset(ws2.UsedRange.Rows.Count - 1, 0) = Target.Address
ws2.Range("C1").Offset(ws2.UsedRange.Rows.Count - 1, 0) = Target.Cells.Value

Target.Font.Color = 255

Application.ScreenUpdating = True
End Sub