vba clear cell after macro runs for this cell in Excel

Q175. In Excel, how can I clear cell after activating a routine when there is a change in value of a cell?

For example, I want to filter records pertaining to the person name specified in cell AV2. Whenever name in AV2 changes, I want to apply filter based on name selected and then copy the filtered data and paste it in cell AT4.

Then I want to clear the name without affecting the filtered data that has been copied over into cell AT4.

excel vba clear cell after macro runs for this cell

To do it in Excel, here is the answer:

  1. Option Explicit
  2. Private Sub WorkSheet_Change(ByVal Target As Range)
  3. Dim KeyCells As Range
  4. Dim sName As String
  5. ''
  6. Set KeyCells = ActiveSheet.Range("$AV$2")
  7. If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
  8. ''
  9. sName = ActiveSheet.Range("$AV$2").Value
  10. ''
  11. 'Clear existing data in Destination.
  12. ActiveSheet.Range("AT4:AV14").Clear
  13. ''
  14. 'Filter rows based on Name which is Field 2 (Col AQ).
  15. ActiveSheet.Range("AP4:AR4").AutoFilter
  16. ActiveSheet.Range("AP4:AR14").AutoFilter Field:=2, Criteria1:=sName
  17. ''
  18. 'Copy filtered table and paste it in Destination cell.
  19. ActiveSheet.Range("AP4:AR14").SpecialCells(xlCellTypeVisible).Copy
  20. ActiveSheet.Range("AT4").PasteSpecial Paste:=xlPasteAll
  21. Application.CutCopyMode = False
  22. ''
  23. 'Remove filter that was applied.
  24. ActiveSheet.AutoFilterMode = False
  25. ''
  26. 'Disable Events to avoid clearing of Target cell contents from activating this Worksheet_Change routine again.
  27. Application.EnableEvents = False
  28. ''
  29. Target.ClearContents
  30. ''
  31. 'Enable Events
  32. Application.EnableEvents = True
  33. ''
  34. End If
  35. End Sub

Description:

a) The above code has to be included in the module of the "Sheet" in which the input Table resides.

b) Line 2 - Whenever there is change in any cell in the sheet, this routine is executed.

c) Line 7 - Check if the change in WorkSheet pertains to cell of interest (AV2 in this case). If yes, execute code to filter, copy filtered data, paste it in destination and remove filter (Lines 7-23).

d) Line 27 prevents the code from entering into infinite loop by preventing "Worksheet_Change" routine from being activated when Target cell content is cleared.

 

You can find similar Excel Questions and Answer hereunder

1) How do I restrict user entry in ActiveX Text Box to just numeric values?

2) How do I enter a formula in a cell using VBA (using Relative Reference)?

3) How can I hide all comments in my WorkSheet using VBA?

4) How can I identify the cells that influence a particular cell to help with debugging of my spreadSheet or understand a spreadSheet that I inherited?

5) How can I copy and rename a WorkSheet using VBA?

6) How can I enter a text in a cell with subscript and superscript?

7) Userform initialize vs userform show in Excel

8) How can I filter and copy only filtered data using VBA?

9) How can I find the number of working days between 2 dates using VBA?

10) How can I hide Formula Bar and Headings using VBA?

11) How can I update a listbox based on data in a list using VBA?

12) How can I prevent users from seeing / accessing my macro code?

13) How can I dynamically add series to an existing chart using VBA?

14) Line break in vba message box in Excel

15) I want to add a trend indicator symbol next to my sales data - how can I do that?