Excel: Filter for Recent Changes That Need to be Accepted












0














I want to filter a sheet to show only rows with cells that are marked for review by the Track Changes feature. Does anyone know if/how it's possible?










share|improve this question






















  • Use Autofilter with proper filtering condition.
    – Akina
    Dec 4 at 5:17










  • I can suggest you a method will highlight all the changes and filter them along with Sheet, Cell address and New Data to New Sheet. If this works for you just confirm through comments. ☺
    – Rajesh S
    Dec 4 at 6:56










  • @Akina, there's no filter options for the flag that Track Changes places on cells as far as I can tell.
    – dandalfini
    Dec 5 at 14:47










  • @Rajesh, I'm open to any suggestions so fire away.
    – dandalfini
    Dec 5 at 14:54










  • @dandalfini,, check the post, will definitely help you. ☺
    – Rajesh S
    Dec 6 at 4:07
















0














I want to filter a sheet to show only rows with cells that are marked for review by the Track Changes feature. Does anyone know if/how it's possible?










share|improve this question






















  • Use Autofilter with proper filtering condition.
    – Akina
    Dec 4 at 5:17










  • I can suggest you a method will highlight all the changes and filter them along with Sheet, Cell address and New Data to New Sheet. If this works for you just confirm through comments. ☺
    – Rajesh S
    Dec 4 at 6:56










  • @Akina, there's no filter options for the flag that Track Changes places on cells as far as I can tell.
    – dandalfini
    Dec 5 at 14:47










  • @Rajesh, I'm open to any suggestions so fire away.
    – dandalfini
    Dec 5 at 14:54










  • @dandalfini,, check the post, will definitely help you. ☺
    – Rajesh S
    Dec 6 at 4:07














0












0








0







I want to filter a sheet to show only rows with cells that are marked for review by the Track Changes feature. Does anyone know if/how it's possible?










share|improve this question













I want to filter a sheet to show only rows with cells that are marked for review by the Track Changes feature. Does anyone know if/how it's possible?







windows-7 microsoft-excel






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked Dec 3 at 20:59









dandalfini

1




1












  • Use Autofilter with proper filtering condition.
    – Akina
    Dec 4 at 5:17










  • I can suggest you a method will highlight all the changes and filter them along with Sheet, Cell address and New Data to New Sheet. If this works for you just confirm through comments. ☺
    – Rajesh S
    Dec 4 at 6:56










  • @Akina, there's no filter options for the flag that Track Changes places on cells as far as I can tell.
    – dandalfini
    Dec 5 at 14:47










  • @Rajesh, I'm open to any suggestions so fire away.
    – dandalfini
    Dec 5 at 14:54










  • @dandalfini,, check the post, will definitely help you. ☺
    – Rajesh S
    Dec 6 at 4:07


















  • Use Autofilter with proper filtering condition.
    – Akina
    Dec 4 at 5:17










  • I can suggest you a method will highlight all the changes and filter them along with Sheet, Cell address and New Data to New Sheet. If this works for you just confirm through comments. ☺
    – Rajesh S
    Dec 4 at 6:56










  • @Akina, there's no filter options for the flag that Track Changes places on cells as far as I can tell.
    – dandalfini
    Dec 5 at 14:47










  • @Rajesh, I'm open to any suggestions so fire away.
    – dandalfini
    Dec 5 at 14:54










  • @dandalfini,, check the post, will definitely help you. ☺
    – Rajesh S
    Dec 6 at 4:07
















Use Autofilter with proper filtering condition.
– Akina
Dec 4 at 5:17




Use Autofilter with proper filtering condition.
– Akina
Dec 4 at 5:17












I can suggest you a method will highlight all the changes and filter them along with Sheet, Cell address and New Data to New Sheet. If this works for you just confirm through comments. ☺
– Rajesh S
Dec 4 at 6:56




I can suggest you a method will highlight all the changes and filter them along with Sheet, Cell address and New Data to New Sheet. If this works for you just confirm through comments. ☺
– Rajesh S
Dec 4 at 6:56












@Akina, there's no filter options for the flag that Track Changes places on cells as far as I can tell.
– dandalfini
Dec 5 at 14:47




@Akina, there's no filter options for the flag that Track Changes places on cells as far as I can tell.
– dandalfini
Dec 5 at 14:47












@Rajesh, I'm open to any suggestions so fire away.
– dandalfini
Dec 5 at 14:54




@Rajesh, I'm open to any suggestions so fire away.
– dandalfini
Dec 5 at 14:54












@dandalfini,, check the post, will definitely help you. ☺
– Rajesh S
Dec 6 at 4:07




@dandalfini,, check the post, will definitely help you. ☺
– Rajesh S
Dec 6 at 4:07










1 Answer
1






active

oldest

votes


















0














Below written code will highlight every change and new entry in the Active Sheet and will create a Log Sheet carries Sheet name, Cell address & the entered data.



It's like a audit Sheet.



Highlighting new entries works like Mark Track Changes and move data to Log file is like Filter those entries



You can modify this code for further needs also.



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





share|improve this answer





















    Your Answer








    StackExchange.ready(function() {
    var channelOptions = {
    tags: "".split(" "),
    id: "3"
    };
    initTagRenderer("".split(" "), "".split(" "), channelOptions);

    StackExchange.using("externalEditor", function() {
    // Have to fire editor after snippets, if snippets enabled
    if (StackExchange.settings.snippets.snippetsEnabled) {
    StackExchange.using("snippets", function() {
    createEditor();
    });
    }
    else {
    createEditor();
    }
    });

    function createEditor() {
    StackExchange.prepareEditor({
    heartbeatType: 'answer',
    autoActivateHeartbeat: false,
    convertImagesToLinks: true,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: 10,
    bindNavPrevention: true,
    postfix: "",
    imageUploader: {
    brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
    contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
    allowUrls: true
    },
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    });


    }
    });














    draft saved

    draft discarded


















    StackExchange.ready(
    function () {
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fsuperuser.com%2fquestions%2f1380518%2fexcel-filter-for-recent-changes-that-need-to-be-accepted%23new-answer', 'question_page');
    }
    );

    Post as a guest















    Required, but never shown

























    1 Answer
    1






    active

    oldest

    votes








    1 Answer
    1






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes









    0














    Below written code will highlight every change and new entry in the Active Sheet and will create a Log Sheet carries Sheet name, Cell address & the entered data.



    It's like a audit Sheet.



    Highlighting new entries works like Mark Track Changes and move data to Log file is like Filter those entries



    You can modify this code for further needs also.



    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





    share|improve this answer


























      0














      Below written code will highlight every change and new entry in the Active Sheet and will create a Log Sheet carries Sheet name, Cell address & the entered data.



      It's like a audit Sheet.



      Highlighting new entries works like Mark Track Changes and move data to Log file is like Filter those entries



      You can modify this code for further needs also.



      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





      share|improve this answer
























        0












        0








        0






        Below written code will highlight every change and new entry in the Active Sheet and will create a Log Sheet carries Sheet name, Cell address & the entered data.



        It's like a audit Sheet.



        Highlighting new entries works like Mark Track Changes and move data to Log file is like Filter those entries



        You can modify this code for further needs also.



        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





        share|improve this answer












        Below written code will highlight every change and new entry in the Active Sheet and will create a Log Sheet carries Sheet name, Cell address & the entered data.



        It's like a audit Sheet.



        Highlighting new entries works like Mark Track Changes and move data to Log file is like Filter those entries



        You can modify this code for further needs also.



        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






        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered Dec 6 at 4:02









        Rajesh S

        3,6651522




        3,6651522






























            draft saved

            draft discarded




















































            Thanks for contributing an answer to Super User!


            • Please be sure to answer the question. Provide details and share your research!

            But avoid



            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.


            To learn more, see our tips on writing great answers.





            Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


            Please pay close attention to the following guidance:


            • Please be sure to answer the question. Provide details and share your research!

            But avoid



            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.


            To learn more, see our tips on writing great answers.




            draft saved


            draft discarded














            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fsuperuser.com%2fquestions%2f1380518%2fexcel-filter-for-recent-changes-that-need-to-be-accepted%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            Popular posts from this blog

            Сан-Квентин

            8-я гвардейская общевойсковая армия

            Алькесар