VBA For Filtering Comments in a Column

[mayoung]

I am using Office 365 excel Is there away to filter Comments NOT Notes in a Column? Can be using a helper column if necessary.
I have the ability to filter Notes in a column but want to filter Comments.
Any help would be appreciated.

 

[Micron]

By filter do you mean show only rows where a particular comment exists in a cell? Or highlight the row? Or select the row?
If it involves multiple non-contiguous rows being selected, that's not something I've done - yet.
If you want a formula, I can't help with that but I think something can be done via code. Just not sure what that something is at the moment.

 

[JEC]

This macro extracts every comment in column A and writes them to column C

Sub jec()
 Dim it, x As Long
 With Range("A2", Range("A" & Rows.Count).End(xlUp))
    ReDim ar(.Rows.Count, 0)
    For Each it In .Cells
       If Not it.CommentThreaded Is Nothing Then
         ar(x, 0) = it.CommentThreaded.Text
         x = x + 1
       End If
    Next
    Range("C2").Resize(x) = ar
  End With
End Sub

 

[mayoung]

By filter do you mean show only rows where a particular comment exists in a cell? Or highlight the row? Or select the row?
If it involves multiple non-contiguous rows being selected, that's not something I've done - yet.
If you want a formula, I can't help with that but I think something can be done via code. Just not sure what that something is at the moment.

Correct I am wanting to filter to show only rows that contain Comments (Not Notes) using a Macro.

 

[Micron]

Gotta run out. Will see where this went when I get back.

 

[JEC]

For filtering as desired (column A in this example)

Sub jec()
 Dim it, sp
 Set sp = Cells(99999, 1)
 
 For Each it In Range("A2", Range("A" & Rows.Count).End(xlUp))
    If it.CommentThreaded Is Nothing Then Set sp = Union(sp, it)
 Next

 sp.EntireRow.Hidden = True
End Sub

 

[mayoung]

In Excel you have the option to add a Comment or Note..What I am wanting to filter is the rows with Comments.
Any suggestions?

 

[JEC]

Did you even try the codes?
It is only possible with VBA

 

[mayoung]

Did you even try the codes?
It is only possible with VBA

I did try the all code so far it copied over the Notes not Comments?

 

[JEC]

But my codes both work for comments.
Do the cells have purple corners?