Hello,
I am needing to add to my existing Macro to replace the value in a column after filtering for the range.
I have 3 users that I need it to find (column A), then replace the text in Column B. (example below to protect privacy)
I've tried the following code but I can only get the filter, it will not replace the text from "Not Complete" to "Complete"
I am needing to add to my existing Macro to replace the value in a column after filtering for the range.
I have 3 users that I need it to find (column A), then replace the text in Column B. (example below to protect privacy)
User | All CUR Complete |
111 | Not Complete |
111 | Not Complete |
111 | Not Complete |
222 | Not Complete |
222 | Not Complete |
222 | Not Complete |
333 | Not Complete |
333 | Not Complete |
333 | Not Complete |
I've tried the following code but I can only get the filter, it will not replace the text from "Not Complete" to "Complete"
VBA Code:
With ActiveSheet
If .AutoFilterMode Then .AutoFilterMode = False
.Range("A1:B" & .Range("B" & Rows.Count).Row).AutoFilter 1, Array("111", "222", "333"), xlFilterValues
.AutoFilter.Range.Offset(1).ActiveSheet.Range("B:B").Replace "Not Complete", "Complete"
.ShowAllData
End With