Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub FindAndPlaceValuesInColumnC() Dim lr As Long Dim rng As Range, cell As Range Application.ScreenUpdating = False Application.EnableEvents = False lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row ActiveSheet.ListObjects("Table134").Range.AutoFilter field:=7, Criteria1:="1" If Range("G4:G" & lr).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then Set rng = Range("F5:F" & lr).SpecialCells(xlCellTypeVisible) For Each cell In rng Cells(cell.Row, "J") = Trim(Replace(cell.Value, "*", "")) Next cell End If ActiveSheet.ListObjects("Table134").Range.AutoFilter field:=7 Application.EnableEvents = True Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel - Summing a column based on criteria from another column||5||50|
|Userform to show a range in excel.||3||34|
|Need VBA to color cell if 1st three numbers in Column C of Sheet1 match any of the numbers in Column A on Sheet2||22||48|
|Excel VBA to convert a string into a formula||19||14|
Join the community of 500,000 technology professionals and ask your questions.