Help with script. Join values in helper column and run routine.

S

Sinner

Hi,

How can I use the below script to join values in column L&J in helper
column 'columnM', then run the routine on columnM. At the end delete
columnM.
-------------------------------------------------
Sub Trimmer()
Worksheets("Data").Select
Range("a2").Select
firstRowFound = True
LastRow = Cells(Rows.Count, "j").End(xlUp).Row + 1
For i = 2 To LastRow
If IsError(Application.Match(Range("j" & i), _
Range("Susers"), 0)) Then
If firstRowFound = True Then
Rows(i).Select
firstRowFound = False
Else
Union(Selection, Rows(i)).Select
End If
End If
Next i
Selection.Delete Shift:=xlShiftUp
Columns.AutoFit
Range("L2").Select

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Delete rows if value from cell is not in list Options 1
Delete rows if value from cell is not in list 1
Permutations andText to column problem 6
Run macro on all files in a specific folder 3
Help in sorting data 2
MACRO RUN random percentage and copy of column values 1
conditional format based on column statistics and loop over columns 1
Column is overwritten 4

Top