Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
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.
Join the community of 500,000 technology professionals and ask your questions.